Autofill avec VBA

[Davets]

Bonjour,

Je souhaite intégrer dans une macro, une fonction qui permette d'étendre une cellule, jusqu'à la prochaine cellule non vide. Voici un exemple :

[table="width: 500, class: grid"]
[tr]
[td][/td]
[td]A[/td]
[/tr]
[tr]
[td]1[/td]
[td]Chien[/td]
[/tr]
[tr]
[td]2[/td]
[td][/td]
[/tr]
[tr]
[td]3[/td]
[td][/td]
[/tr]
[tr]
[td]4[/td]
[td]Chat[/td]
[/tr]
[tr]
[td]5[/td]
[td][/td]
[/tr]
[tr]
[td]6[/td]
[td]Rat[/td]
[/tr]
[tr]
[td]7[/td]
[td][/td]
[/tr]
[/table]

Le but serait donc d'étendre "Chien" à la cellule A2 et A3; "Chat" à A5,...

Le problème, c'est que le nombre de cellule vide entre les données (chien, chat, rat) varient et les données ne sont pas forcément toujours sur la même ligne. La fonction Autofill ne marche qu'avec une plage fixe

Pouvez vous m'aider s'il vous plait?

 

[chris]

Re : Autofill avec VBA

Bonjour

C'est faisable sans macro :

• sélectionner la plage concernée : exemple A2:A100
• Touche F5, cellules, cellules vides
• Taper la formule = A1 (adresse de la cellule au dessus de la 1ère vide)
• Valider par CTRL Entrée
• Copier
• Collage spécial valeur

Sinon il faut une boucle de la ligne 2 à la ligne N qui teste si c'est vide, et si oui écrive la valeur au dessus d la ligne courante

 

[Davets]

Re : Autofill avec VBA

Magnifique c'est parfait! Merci pour la réponse rapide 😀

 

[vgendron]

Re : Autofill avec VBA

Bonjour à tous
et sinon, la méthode de Chris que je découvre. (merci) avec l'enregistreur de macro. ca donne ca.

Sub Macro4()

'
    Range("A1:A9").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "=R[-1]C"
    Range("A1:A9").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

 

[Davets]

Re : Autofill avec VBA

Ou même simplement :

Range("A3:A1290").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "=R[-1]C"