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

Question

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 ;)

Gyrus · Answer

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 IfEnd Sub
A+

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

1 réponse

Discussions similaires