XL 2013 copier coller avec condition

[pes_com]

Bonjour,
je reste bloqué pour une manip qui est certainement simple pour les experts que l'on trouve sur ce site!


copier coller avec condition juste les ligue dans la colonne A comme celle photo merci


Lien supprimé

 

[natorp]

Bjr pes_com

Désolé mais je ne comprends pas le besoin ???
Quelle est le besoin initial ??

Cordialement, Gérard

 

[pes_com]

COPIER LES Ligues sélectionner sur colonne A sur colonne H I J K

 

[natorp]

Re,

juste pour avoir la même chose en HIJK ?

--> en B1 et H1 écrire =A1 et ainsi de suite
et
--> en H2 écrire =C2 et ainsi de suite...

Cordialement, Gérard

 

[vgendron]

Hello
avec ce code dans un module standard vba (Alt + F11 pour ouvrir l'éditeur)

Sub recopie()
'pour chaque nom de la colonne A
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    'on récupère le nom
    Nom = Cells(i, 1)
    'on le cherche dans la colonne B
    Set c = Range("B:B").Find(Nom, lookat:=xlWhole)
    If Not c Is Nothing Then 'si trouvé
        'on regarde le nombre de ligne à copier (attention! elles doivent etre VIDES SANS ESPACE)
     
        x = c.End(xlDown).Row - 1
        'on initialise la zone à recopier
        Set zone = c.Resize(x - c.Row + 1)
        'on copie les 4 colonnes à droite
        zone.Offset(0, 1).Resize(, 4).Copy Destination:=zone.Offset(0, 6)
    End If
Next i
End Sub

attention. ton fichier doit etre légèrement nettoyé.
Dans ta colonne B, des cellules apparemment vides contiennent en fait des espaces
il faut les effacer

 

[pes_com]

Bjr
copier JUST MATCH QUI CONTIENT LES ligues colonne A
Cordialement

Lien supprimé

 

[vgendron]

re.. avais tu vu ma proposition?

que j'ai modifié ici pour prendre en compte la présence multiple d'une ligue en colonne B

Sub recopie()
'on commence par effacer les colonnes H--K
Columns("H:K").ClearContents
'pour chaque nom de la colonne A
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    'on récupère le nom
    Nom = Cells(i, 1)
    'on le cherche dans la colonne B
    With Range("B:B") ' & Rows.Count.End(xlUp).Row)
        Set c = .Find(Nom, lookat:=xlWhole)
        If Not c Is Nothing Then 'si trouvé
            firstAdress = c.Address
            Do 'au cas où la ligue apparaitrait plusieurs fois dans la colonne
                'on regarde le nombre de lignes à copier (attention! elles doivent etre VIDES SANS ESPACE)
                x = c.End(xlDown).Row - 1
                'on initialise la zone à recopier
                Set zone = c.Resize(x - c.Row + 1)
                'on copie les 4 colonnes à droite
                zone.Offset(0, 1).Resize(, 4).Copy Destination:=zone.Offset(0, 6)
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAdress
        End If
    End With
Next i
End Sub

 

[pes_com]

re
ça marche pas

 

[vgendron]

ça marche pas

mais encore....??
as tu lu ce que j'ai écris sur les espaces "invisibles" dans tes cellules.
as tu essayé le fichier que j'ai posté..?
parce que moi. ca marche