Recopie incrémentale jusqu'à la prochaine cellule non vide [Résolu/Fermé]

Signaler
Messages postés
1
Date d'inscription
vendredi 8 juillet 2016
Statut
Membre
Dernière intervention
8 juillet 2016
-
 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

2 réponses

Messages postés
1769
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
15 juin 2020
553
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