répeter des valeurs dans une colonne jusqu'à cellule non vide

[eldorado]

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.

 

[tototiti2008]

Re : répeter des valeurs dans une colonne jusqu'à cellule non vide

Bonjour eldorado,

Si j'ai compris, tu peux le faire manuellement
Sélectionne la colonne (par exemple A)
Rechercher et sélectionner - Atteindre
Cellules...
Cellules vides
OK
taper la formule
=A1 (si la ligne 2 est vide)
valider par Ctrl+Entrée

si tu ne souhaites pas avoir de formule, tu peux sélectionner la colonne et la copier / collage spécial - valeurs pour ne conserver que les valeurs

 

[Pierrot93]

Re : répeter des valeurs dans une colonne jusqu'à cellule non vide

Bonjour eldorado, toto🙂

essaye peut être ainisi :

On Error Resume Next
With Range("A1", Range("A65536").End(xlUp))
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With
On Error GoTo 0

bon après midi
@+

 

[eldorado]

Re : répeter des valeurs dans une colonne jusqu'à cellule non vide

merci infinement Pierrot93,
c'est ce que je cherchais comme réponse.
à bientôt