Autofill sur sélection
Résolu
Bonjour à tous.
Ce n'est pas le printemps mais une fois de plus Visual "Basilic" me donne du fil à retordre.
J'ai réussi, dans ma macro, à sélectionner une partie de colonne, dans laquelle je souhaiterais incrémenter des chiffres en partant de 1 avec un pas de 1.
Il y a la commande Autofill mais je ne sais pas l'appliquer à ma sélection.
Puis-je solliciter de l'aide ?
Merci par avance
Ce n'est pas le printemps mais une fois de plus Visual "Basilic" me donne du fil à retordre.
J'ai réussi, dans ma macro, à sélectionner une partie de colonne, dans laquelle je souhaiterais incrémenter des chiffres en partant de 1 avec un pas de 1.
Il y a la commande Autofill mais je ne sais pas l'appliquer à ma sélection.
Puis-je solliciter de l'aide ?
Merci par avance
4 réponses
-
Bonjour,
Voici un exemple de code pour inscrire une série de D5 à D15.Range("D5").Value = 1
Range("D5").AutoFill Destination:=Range("D5:D15"), Type:=xlFillSeries
A+ -
Bonjour Gyrus
Merci pour le bout de code.
J'ai encore un problème : Erreur 400 (pourtant la fonction semble donner les résultats escomptés) :
L'objectif était de réaliser une incrémentation en +1 à partir de la cellule C6 en colonne jusqu'à la dernière cellule non vide.
Voici le code correspondant :Sub Incrementation()
Range("C6", Range("C6").End(xlDown)).Select
Range(ActiveCell, ActiveCell.End(xlDown)).AutoFill Destination:=Range(ActiveCell, ActiveCell.End(xlDown)), Type:=xlFillSeries
End Sub
Je pense qu'il y a une faute quelque part.
Un grand merci d'avance ! -
Bonsoir,
Si j'ai bien compris, ce code devrait suffire :Sub Incrementation()
Range("C6").AutoFill Destination:=Range(Range("C6"), Range("C6").End(xlDown)), Type:=xlFillSeries
End Sub
A+ -
Hello Gyrus
Je pense que tu as tout compris parce que ça fonctionne.
Pas toujours facile la syntaxe dans VB ...
Je vais bosser çà pour comprendre
Vielen Dank pour le partage des connaissances.
Bonne soirée
