Recopie incrémentale jusqu'à la prochaine cellule non vide

Résolu/Fermé
ZAEK Messages postés 1 Date d'inscription vendredi 8 juillet 2016 Statut Membre Dernière intervention 8 juillet 2016 - 8 juil. 2016 à 14:37
 Zaek - 19 juil. 2016 à 17:59
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

thev Messages postés 1854 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 3 mai 2024 683
Modifié par thev le 8/07/2016 à 16:58
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


 
0
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
0