Selection.AutoFill Colonne à coordonées dynamiques [Résolu]
Mikmak47
- Messages postés
- 5
- Date d'inscription
- vendredi 1 octobre 2010
- Dernière intervention
- 7 janvier 2011
- Messages postés
- 1839
- Date d'inscription
- vendredi 13 mai 2005
- Dernière intervention
- 20 novembre 2013
A voir également:
- Selection.autofill colonne à coordonées dynamiques
- Delphi / Pascal : Dbgrid et sélection des colonnes à afficher à l'exécut - Guide
- Multi select : une alternative à select multi colonnes - Codes sources - Javascript (Divers)
- Selection.AutoFill à partir de la première cellule disponible ✓ - Forum - VBA Office (Excel, Word ...)
- Selection.autofill destination:range ✓ - Forum - Visual Basic 6
- Attribution d'une variable a une Selection.Autofill ✓ - Forum - Visual Basic 6
4 réponses
Meilleure réponse
- Messages postés
- 1839
- Date d'inscription
- vendredi 13 mai 2005
- Dernière intervention
- 20 novembre 2013
oups !
Dim i As Range
set i = Range("E7").End(xlDown).Offset(0, 1)
i.AutoFill Destination:=Range("H125:H" & i.row), Type:=xlFillDefault Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1839
- Date d'inscription
- vendredi 13 mai 2005
- Dernière intervention
- 20 novembre 2013
Salut,
oui effectivement un peu de mélange autour de ta variable i
2 solutions a partir de ton idée:
-ne nécessite pas de variable
-via une variable
Dans ce deuxième cas la variable i est dimensionné pour contenir un objet de type range. Cela peut donc etre une cellule ou une plage de cellules qui sont des objets. Comme toute variable de type objet le signe = ne suffit pas pour lui assigner un objet. Pour cela il faut utiliser "Set"
Préfère la deuxième solution a la première car cela évite les sélections source d'erreurs de lenteur et d'épilepsie.
A+
oui effectivement un peu de mélange autour de ta variable i
2 solutions a partir de ton idée:
-ne nécessite pas de variable
Range("E7").End(xlDown).Offset(0, 1).Select
Selection.AutoFill Destination:=Range("H125:H" & i), Type:=xlFillDefault
-via une variable
Dim i As Range
set i = Range("E7").End(xlDown).Offset(0, 1)
i.AutoFill Destination:=Range("H125:H" & i), Type:=xlFillDefault
Dans ce deuxième cas la variable i est dimensionné pour contenir un objet de type range. Cela peut donc etre une cellule ou une plage de cellules qui sont des objets. Comme toute variable de type objet le signe = ne suffit pas pour lui assigner un objet. Pour cela il faut utiliser "Set"
Préfère la deuxième solution a la première car cela évite les sélections source d'erreurs de lenteur et d'épilepsie.
A+
- Messages postés
- 1839
- Date d'inscription
- vendredi 13 mai 2005
- Dernière intervention
- 20 novembre 2013
oui effectivement j'ai zapé la variable dans le premier cas qui aurait du s'ecrire :
une solution intermediaire pour repondre à ta question:
A+
Range("E7").End(xlDown).Offset(0, 1).Select
Selection.AutoFill Destination:=Range("H125:H" & selection.row), Type:=xlFillDefault
une solution intermediaire pour repondre à ta question:
Dim i As Long
Range("E7").End(xlDown).Offset(0, 1).Select
i = Selection.row 'i prend ici, comme valeur, le numero de ligne de la selection
Selection.AutoFill Destination:=Range("H125:H" & i), Type:=xlFillDefault
A+
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.