Problème de Formule
Résolu/Fermé
gham
Messages postés
48
Date d'inscription
samedi 8 décembre 2007
Statut
Membre
Dernière intervention
7 novembre 2021
-
13 févr. 2008 à 21:39
Hebus - 28 mars 2008 à 11:59
Hebus - 28 mars 2008 à 11:59
A voir également:
- Problème de Formule
- Formule excel - Guide
- Formule de politesse mail anglais - Guide
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Clémence souhaite faire calculer automatiquement les prix de 30 produits dans trois devises. elle a déjà saisi une formule de calcul pour le tarif du premier produit dans la première devise. corrigez sa formule afin que recopiée vers le bas puis vers la droite, elle remplisse correctement tout le tableau. - Forum Excel
- Formule excel si contient texte alors texte ✓ - Forum Excel
6 réponses
Bonsoir,
l'erreur est dans l'adresse de la plage de destination
Selection.AutoFill Destination:=Range("G12:G"), Type:=xlFillDefault
est à corriger en
Selection.AutoFill Destination:=Range("G12:G200"), Type:=xlFillDefault
(par exemple, pour étendre la formule de G12 jusqu'à G200
l'erreur est dans l'adresse de la plage de destination
Selection.AutoFill Destination:=Range("G12:G"), Type:=xlFillDefault
est à corriger en
Selection.AutoFill Destination:=Range("G12:G200"), Type:=xlFillDefault
(par exemple, pour étendre la formule de G12 jusqu'à G200
gham
Messages postés
48
Date d'inscription
samedi 8 décembre 2007
Statut
Membre
Dernière intervention
7 novembre 2021
5
13 févr. 2008 à 22:01
13 févr. 2008 à 22:01
merci Ivanhoe, j'ai essayé mais toujours le même le problème et le même message
Et comme ça ?
Sub FormulEtendtre()
With Worksheets("Tabscol").Range("G12")
.Formula = "=IF(F12="""","""",YEAR(F12))"
.AutoFill Destination:=Range("G12:G200"), Type:=xlFillDefault
End With
End Sub
Sub FormulEtendtre()
With Worksheets("Tabscol").Range("G12")
.Formula = "=IF(F12="""","""",YEAR(F12))"
.AutoFill Destination:=Range("G12:G200"), Type:=xlFillDefault
End With
End Sub
eriiic
Messages postés
24513
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 mars 2023
7 168
13 févr. 2008 à 22:45
13 févr. 2008 à 22:45
Bonsoir,
A mon avis tu as l'erreur car tu as une autre feuille de sélectionnée lorsque tu lances ta macro.
Commence par Worksheets("Tabscol").select
ou bien sers toi de l'aide excel si tu ne veux pas la sélectionner
Set sourceRange = Worksheets("Sheet1").Range("A1:A2")
Set fillRange = Worksheets("Sheet1").Range("A1:A20")
sourceRange.AutoFill Destination:=fillRange
eric
A mon avis tu as l'erreur car tu as une autre feuille de sélectionnée lorsque tu lances ta macro.
Commence par Worksheets("Tabscol").select
ou bien sers toi de l'aide excel si tu ne veux pas la sélectionner
Set sourceRange = Worksheets("Sheet1").Range("A1:A2")
Set fillRange = Worksheets("Sheet1").Range("A1:A20")
sourceRange.AutoFill Destination:=fillRange
eric
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
gham
Messages postés
48
Date d'inscription
samedi 8 décembre 2007
Statut
Membre
Dernière intervention
7 novembre 2021
5
14 févr. 2008 à 13:31
14 févr. 2008 à 13:31
Merci les amis, j'ai essayé la formule de Ivanhoe et ça bien marché,
tous mes respects à vous tous. eriiic, je vais essayer ta formule aussi bientôt et je vais te répondre.
Merci encore.
tous mes respects à vous tous. eriiic, je vais essayer ta formule aussi bientôt et je vais te répondre.
Merci encore.
Bonjour,
J'utilise Excel 2002
j'ai un probleme similaire, je cherche a realiser une macro qui me permette de realiser une copie incrementee d'une selection de cellulle selon un nombre place dans une autre cellule.
Plus precisement :
j'ai la valeur 3 en A1
j'aimerai faire une copie incrementee des celulles B1:B5 de 3 colonnes donc avoir au final :
B1:D5
lorsque j'utilise
Selection.Autofill Destination :=
quelque soit la syntaaxe que j'utilise j'0btiens l'erreur 1004.
Par exemple pour un cas simple de copie incrementee d'une seule cellule :
Cellule.Autofill Destination:=Cellule.Resize(Range("A1"),1)
Avez vous des idees sur l'erreur que j'ai pu faire ?
Merci d'avance
J'utilise Excel 2002
j'ai un probleme similaire, je cherche a realiser une macro qui me permette de realiser une copie incrementee d'une selection de cellulle selon un nombre place dans une autre cellule.
Plus precisement :
j'ai la valeur 3 en A1
j'aimerai faire une copie incrementee des celulles B1:B5 de 3 colonnes donc avoir au final :
B1:D5
lorsque j'utilise
Selection.Autofill Destination :=
quelque soit la syntaaxe que j'utilise j'0btiens l'erreur 1004.
Par exemple pour un cas simple de copie incrementee d'une seule cellule :
Cellule.Autofill Destination:=Cellule.Resize(Range("A1"),1)
Avez vous des idees sur l'erreur que j'ai pu faire ?
Merci d'avance