vave Nice to meet me | Bonjour,
Un code qui devrait fonctionner :
Code :
- Sub test()
- Dim c As Range
- Dim a As Integer
- Dim b As Integer
- a = Cells(1, 2).End(xlToRight).Column 'recherche dernière colonne
- For Each c In Range(Cells(1, 2), Cells(1, a))
- If c.Value = "mot" Then
- b = Cells(65000, c.Column).End(xlUp).Row 'recherche dernière ligne
- Range("A1:A" & b).Value = Range(Cells(1, c.Column), Cells(b, c.Column)).Value
- Exit For
- End If
- Next c
- End Sub
|
Attention, il ne faut pas qu'il y ai d'entête de colonne vide, sinon, la boucle s'arrêtera à la colonne vide. ---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"- Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1
|