Autofill sur sélection

Résolu/Fermé

touroul Messages postés 465 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 29 janvier 2024 - 5 janv. 2015 à 07:00
touroul Messages postés 465 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 29 janvier 2024 - 5 janv. 2015 à 20:08

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

A voir également:

Selection.autofill
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Illustrator cadre de sélection disparu ✓ - Forum Illustrator
Vous ne pouvez pas apporter cette modification car la sélection est verrouillée ✓ - Forum Word
L'indice n'appartient pas à la selection ✓ - Forum VB / VBA
Afficher cadre de selection illustrator ✓ - Forum Illustrator

4 réponses

Réponse 1 / 4

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
5 janv. 2015 à 09:25

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+

Réponse 2 / 4

touroul Messages postés 465 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 29 janvier 2024 15
5 janv. 2015 à 19:13

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 !

Réponse 3 / 4

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
5 janv. 2015 à 19:50

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+

Réponse 4 / 4

touroul Messages postés 465 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 29 janvier 2024 15
5 janv. 2015 à 20:08

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

[Excel] Méthode Autofill dans une macro

Outil sélection Adobe Illustrator

Excel: Retourner une sélection

dévérouiller la séléction de word Office

Discussions similaires

Newsletters