Recopie incrémentale jusqu'à la prochaine cellule non vide
Résolu
ZAEK
Messages postés
1
Statut
Membre
-
Zaek -
Zaek -
Bonjour à tous je débute dans le VBA.
Après avoir trié deux colonnes, je tente de remplir mes cellules vides (colonne de droite) en utilisant la recopie de la cellule de dessus.
J'ai besoin que cette recopie s'arrête dès qu'elle trouve une cellule non vide
j'ai besoin de réaliser cette étape plusieurs fois (je me suis tenté aux boucles, mais sans succès pour le moment... une histoire de boucle infinie peut-être me pose problème^^)
Voici ma tentative de recopie :
Dim DernLigne As Long
DernLigne = Range("EE" & Rows.Count).End(xlUp).Row
Range("EE2").AutoFill Destination:=Range("EE2:EE" & DernLigne)
Selection.End(xlDown).Select
Selection.AutoFill Destination:=Range("activecell:EE" & DernLigne)
Selection.End(xlDown).Select
Selection.AutoFill Destination:=Range("activecell:EE" & DernLigne)
Selection.End(xlDown).Select
Dans l'attente de votre aide précieuse,
Merci
Après avoir trié deux colonnes, je tente de remplir mes cellules vides (colonne de droite) en utilisant la recopie de la cellule de dessus.
J'ai besoin que cette recopie s'arrête dès qu'elle trouve une cellule non vide
j'ai besoin de réaliser cette étape plusieurs fois (je me suis tenté aux boucles, mais sans succès pour le moment... une histoire de boucle infinie peut-être me pose problème^^)
Voici ma tentative de recopie :
Dim DernLigne As Long
DernLigne = Range("EE" & Rows.Count).End(xlUp).Row
Range("EE2").AutoFill Destination:=Range("EE2:EE" & DernLigne)
Selection.End(xlDown).Select
Selection.AutoFill Destination:=Range("activecell:EE" & DernLigne)
Selection.End(xlDown).Select
Selection.AutoFill Destination:=Range("activecell:EE" & DernLigne)
Selection.End(xlDown).Select
Dans l'attente de votre aide précieuse,
Merci
2 réponses
-
Bonjour,
2 remarques.
1- pour une recopie, les 2 premières instructions sont nécessaires et suffisantes
2- pour une recopie incrémentale à partir d'une seule cellule, il vaut mieux préciser le type de recopie
soit
DernLigne = Range("EE" & Rows.Count).End(xlUp).Row
Range("EE2").AutoFill Destination:=Range("EE2:EE" & DernLigne), Type:=xlFillSeries
-
Merci Thev,
Désolé pour ma réponse tardive. je suis parti sur une table de correspondance finalement pour ce sujet.
A bientôt
ZaeK
