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
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
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
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
5 janv. 2015 à 09:25
Bonjour,
Voici un exemple de code pour inscrire une série de D5 à D15.
A+
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
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
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 :
Je pense qu'il y a une faute quelque part.
Un grand merci d'avance !
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 !
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
5 janv. 2015 à 19:50
Bonsoir,
Si j'ai bien compris, ce code devrait suffire :
A+
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+
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
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
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