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

Résolu/Fermé
max-iime
Messages postés
30
Date d'inscription
dimanche 22 novembre 2015
Statut
Membre
Dernière intervention
23 mars 2019
- 9 nov. 2016 à 16:23
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
- 9 nov. 2016 à 18:37
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

Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
529
9 nov. 2016 à 18:37
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