EXCEL - MACRO

Ce n'est pas clair ou vous ne savez pas?

Si vous lisez ce message dites moi au moins...

Je précise un peu :

En 'français' la macro ferait ceci :

E19 en valeur de référence
> trouver dans la colonne AC la valeur identique
> Si trouvé, déplacer la ligne correspondante à la valeur identique trouvée de AA jusqu'à HV en AA19

et ainsi de suite jusqu'a la ligne 2304 !!

Si vous avez des idées ou si mon explication n'est pas clair dites le moi

Merci Olive

Je vous paierais bien une bière pour un coup de main... ;-)

zémé po la bière?

franchement je comprends ce que tu veux faire mais je pourrais pas t'aider en macro...

bon courage

Ophélie

Aidez moi sil vous plait je suis en galère jusquau cou

Salut Olive,
ça va jusqu'à la ligne 2304, certes ; mais ça commence à quelle ligne de la colonne AC ?
à la première valeur trouvée, on déplace la ligne en AA19 ; et après, en AA20, AA21, etc ?

tu peux déjà faire une grosse partie du travail par toi-même en utilisant l'enregistrement automatique de macros.
Pour trouver ta valeur, utilise Rechercher (Ctrl+F)
Pour déplacer tes cellules, utilise Couper/Coller (Ctrl+X puis Ctrl+V)
Une fois que tu as un semblant de macro, poste-là et on corrigera pour faire la boucle,entre autres.

A suivre...

test?

Bonjour,
Ta macro rectifiée, à condition qu'elle fonctionnait avec une ligne, j'ai pas tester.

Sub en_conc_la_liste_vente_ac_liste_ref()
Dim i As Long
    For i = 307 To 2304
        Sheets("vente monde").Select
        Cells(i, 5).Select
            'Range("E307").Select
            'la je selectionne la valeur à trouver
            '(cela serait bien si ca pouvais faire la même chose jusqu'à E2304)
        Selection.Copy
            'Sheets("vente monde").Select
            'Columns("F:F").Select
            ' la je fais un find avec la valeur a trouver
        Range("E253").Select
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Application.CutCopyMode = False
        Selection.Copy Sheets("requet_temp").Cells(i, 28)
            'Range("AB307").Select
            'ActiveSheet.Paste
    Next i
    
End Sub

J'ai laissé tes lignes en commentaires pour que tu t'y retrouve. Après tu peu les supprimés.
A+

Merci bcp lhermitte!!!

mais j'ai l'impression que la macro ne fait pas exactememnt ce que je voudrais!

en effet, elle devrait :

Dans la feuille "requet_temp" prendre la valeur en E307.
aller dans la feuille "vente monde"
rechercher la meme valeur dans la colonne F
Si elle trouve selectionner dans "vente monde" la ligne correspondante à la valeur trouvée et la copier
retourner dans la feuille "requet_temp" et la coller en ligne 307 à partir de la colonne AB

pour la suite :

Dans la feuille "requet_temp" prendre la valeur en E308.
aller dans la feuille "vente monde"
rechercher la meme valeur dans la colonne F
Si elle trouve selectionner dans "vente monde" la ligne correspondante à la valeur trouvée et la copier
retourner dans la feuille "requet_temp" et la coller en ligne 308 à partir de la colonne AB

et ainsi de suuite jusq'ua la ligne E2304...

Sivous pouvez m'aider je suis très embeté depuis 3 jours avec cette macro

Pleeease je suis meme pret a faire une donation a CCM !!!!!!!! :-)

en fait quand j'enregistre une macro "automatiquement" ou "a la main", je crois que VBA ne capte pas quand je fais un find (ctrl+F)...

AIDEZ moi please!!!

:D
J'ai dit...
à condition qu'elle fonctionnait avec une ligne !!!

Bon, ont va rectifié tes lignes alors..

Pas s'énervé, je m'en occupe mais il faut un peu de temps..et tu n'est pas le seul non plus

Meci lhermitte tu es un chef!!! si tu peux regarde la description de la macro que je viens de faire un peu plus haut...

encore désolé pour l'harcelement (profil bas) :-)

J'ai presque fini, mais c'est pas possible de copier toute une ligne sur une adresse cellule...
tu dit..
selectionner dans "vente monde" la ligne correspondante
Faut me dire ce qui est à copier.. de colonne ? ,jusque colonne ?

copier la ligne correspondante de la colonne E à GY

si tu as d'autres questions je suis la

MErci lhermiite

Olive

Fait quand même un backup avant de lancer la macro.

'Dans la feuille "requet_temp" prendre la valeur en E307.
'aller dans la feuille "vente monde"
'rechercher la meme valeur dans la colonne F
'Si elle trouve selectionner dans "vente monde" la ligne correspondante à la valeur trouvée et la copier
'retourner dans la feuille "requet_temp" et la coller en ligne 307 à partir de la colonne AB
'copier la ligne correspondante de la colonne E à GY
Sub en_conc_la_liste_vente_ac_liste_ref()
Dim i As Long, e As Long
Dim FL1 As Worksheet
Dim FL2 As Worksheet
    Set FL1 = Sheets("vente monde")
    Set FL2 = Sheets("requet_temp")
    For i = 307 To 2304
        For e = i To FL2.Range("F65536").End(xlUp).Row
            If FL2.Cells(e, 6) = FL1.Cells(i, 5) Then
                'ici trouver le nom
                FL2.Range(Cells(e, 5), Cells(e, 207)).Copy FL1.Cells(i, 28)
            End If
        Next e
    Next i
End Sub

J'ai pas ton classeur donc sais pas tester, tu dit...

Merci lhermite!

Mais il n'y a aucune réaction...

la macro n'a apparemment aucune action...

???

Et comment tu la lance, elle va pas partir par l'opération du saint esprit.

je lance prudemment en faisant F8

ou carrément "Run"

Up :-)