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

Question

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

thev · Answer

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

Zaek · Answer

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

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

2 réponses

Discussions similaires