bonjour à tous,
j'aimerai bien affiner un code que j'ai trouvé, en effet le code permet de répeter des valeurs dans une colonne jusqu'à la cellule non vide mais celà s'effectue pour l'ensemble de la colonne, ce qui prend un peu de temps et parfois bloque l'opération.
il s'agit de selectionner le tableau et de limiter le code au tableau, or à chaque fois je suis obliger de repeter l'opération.
ainsi je m'adresse à vous afin de pouvoir trouver un code similaire plus performant ayant la même utilité.
Sub Classeur1()
colonne = 1
derniere = ActiveCell.SpecialCells(xlLastCell).Row
For ligne = 2 To derniere
If Cells(ligne, colonne) = "" Then
Cells(ligne - 1, colonne).Copy Cells(ligne, colonne)
End If
Next
merci d'avance.
j'aimerai bien affiner un code que j'ai trouvé, en effet le code permet de répeter des valeurs dans une colonne jusqu'à la cellule non vide mais celà s'effectue pour l'ensemble de la colonne, ce qui prend un peu de temps et parfois bloque l'opération.
il s'agit de selectionner le tableau et de limiter le code au tableau, or à chaque fois je suis obliger de repeter l'opération.
ainsi je m'adresse à vous afin de pouvoir trouver un code similaire plus performant ayant la même utilité.
Sub Classeur1()
colonne = 1
derniere = ActiveCell.SpecialCells(xlLastCell).Row
For ligne = 2 To derniere
If Cells(ligne, colonne) = "" Then
Cells(ligne - 1, colonne).Copy Cells(ligne, colonne)
End If
Next
merci d'avance.