VBA sélectionner une colonne d'une cellule jusqu’à la dernière

Résolu
max-iime Messages postés 30 Date d'inscription   Statut Membre Dernière intervention   -  
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Quand j'exécute ma macro elle recherche la valeur situé dans une cellule, jusqu'ici aucun problème, ensuite je veux qu'à partir de la cellule trouvé que la macro sélectionne tous le reste de la colonne mais sans s’arrêter à la première cellule vide car j'ai énormément de cellule vide mais je veux quand même les récurer.

Cells.Find(What:=Range("C1"), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

en code j'ai cela, j'ai bien évidement mis plusieurs fois à suivre "Range(Selection, Selection.End(xlDown)).Select" mais sans succès ^^

Je vous remercie de votre aide part avance ;)
A voir également:

1 réponse

Réponse 1 / 1
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour,

A tester : 
Sub test()
Dim C As Range, D As Range
    Set C = Cells.Find(What:=Range("C1"), After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
    If Not C Is Nothing Then
        Set D = Cells(Rows.Count, C.Column).End(xlUp)
        Range(C, D).Copy
    End If
End Sub

A+
0