Sujet Précédent Sujet Suivant

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

Réponse 1 / 1
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
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

Discussions similaires

liste de noms par ordre alphabétique
alma -
alma13 -

23 réponses
colonne A disparue tableur excel
reno78840 -
Anst20 -

4 réponses
Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
mamybigoud68 -

9 réponses