Recopie incrémentale jusqu'à la prochaine cellule non vide
Résolu
ZAEK
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
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
A voir également:
- Recopie incrémentée excel raccourci clavier
- Télécharger clavier arabe - Télécharger - Divers Web & Internet
- Raccourci clavier retourner écran - Guide
- Creer un raccourci clavier - Guide
- Liste déroulante excel - Guide
- Raccourci clavier - Guide
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
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