Autofill sur sélection Résolu/Fermé

Question

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

Gyrus · Answer

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+

touroul · Answer

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)).SelectRange(ActiveCell, ActiveCell.End(xlDown)).AutoFill Destination:=Range(ActiveCell, ActiveCell.End(xlDown)), Type:=xlFillSeriesEnd Sub

Je pense qu'il y a une faute quelque part.

Un grand merci d'avance !

Gyrus · Answer

Bonsoir,

Si j'ai bien compris, ce code devrait suffire :
Sub Incrementation()    Range("C6").AutoFill Destination:=Range(Range("C6"), Range("C6").End(xlDown)), Type:=xlFillSeriesEnd Sub

A+

touroul · Answer

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

Autofill sur sélection

4 réponses

Discussions similaires