Copier lignes sur autre feuille si valeurs identiques

[BChaly]

Bonsoir,

Avec le code suivant je copie les données d'une feuille "AAA" sur une autre feuille "BBB"
si les valeurs de la colonne "A" des deux feuilles sont identiques.

Comment puis-je copier les données sur la feuille "BBB" sur la ligne des valeurs correspondantes.

Merci pour votre aide.

Cordialement,

BChaly

Sub CopieDonnées()

    Dim a, b As Range
    
    Worksheets("AAA").Activate
    
        For Each a In Range("A1:A50")
            For Each b In Worksheets("BBB").Range("A1:A50")
                If a = b Then
                    a.Resize(1, 5).Copy Worksheets("BBB").Range("A65536").End(xlUp).Offset(1, 0)
                    Exit For
                End If
            Next
        Next
        
    Worksheets("BBB").Activate
    Range("A1").Select
    
End Sub

 

[job75]

Re : Copier lignes sur autre feuille si valeurs identiques

Bonsoir BChaly,

Je ne comprends pas, où est le problème 😕

a.Resize(, 5).Copy b

Bonne nuit et A+

 

[bbb38]

Re : Copier lignes sur autre feuille si valeurs identiques

Bonjour BChaly, job75, le forum,
Re bonjour job75
Si j’ai bien compris la demande de BGhaly, son code copie les données de la feuille AAA sous les noms existants de la feuille BBB, alors qu’il souhaite copier les données de la feuille AAA sur la ligne des valeurs correspondantes de la feuille B.
Pour me permettre de progresser (j’en ai bien besoin), aurais-tu l’amabilité de corriger mon code, en utilisant les boucles «For Each … In … » ?
Avec mes remerciements,
Cordialement,
Bernard

 

[BChaly]

Re : Copier lignes sur autre feuille si valeurs identiques

Bonjour job75, bbb38,

C'est bien ça, je souhaite copier les valeurs dans le feuille "BBB", sur les lignes des valeurs correspondantes.

bbb38 ton code fonctionne et me donne le résultat souhaité. J'ai plusieurs centaines de valeurs
concernées et je vais donc tester ça.

Merci pour votre aide précieuse.

Cordialement,

BChaly