Discussion :

[Armandito]

Bonjour!

Petit problème qui ne me semblait pas compliqué, mais auquel je ne trouve pas la solution.

Dans une feuille (disons "concat"), j'ai une cellule renommée "Surf".
J'utilise une macro pour du postraitement qui va chercher des données, les colles dans la feuille "concat", et rentre des formules dans d'autres celulles.
J'aimerai que ma macro écrive dans une cellule une formule qui fasse appele à la cellule "Surf", genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "=R[-1]C/Surf*100"

et ça ne marche pas! (erreur pendant l'excution de la macro)
Quelqu'un pourrait me donner la synthaxe ou métode pour faire marcher ça?

Merci beaucoup d'avance!

[Krovax]

bonjour,
Le mot magique "concaténation" (de chaine de caractère)
essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "=R[-1]C/" & Surf.address & "*100"

[Armandito]

Merci pour la réponse. Mais ça ne marche pas
Apres avoir essayé plusieurs chose, la macro bug toujours avec Surf.adress parceque la macro créer une variable Surf qui est vide.

Faut-il que je déclare Ma cellule Surf comme une variable à un moment donné, et comment ?

[mapeh]

Bonsoir,

avec l'enregistreur de macro, ça me donne ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "=R[-1]C/Surf*100"

soit exactement comme toi...

Quel code d'erreur, tu obtiens?

Ta feuille n'est pas protégée?

[PeekNPoke]

Le code est bon, ça ne fait aucun doute.

Essaye du côté du menu Outil > Option > onglet Calcul > coche Accepter des étiquettes dans les formules.

[aalex_38]

Bonjour,

Dans ton exemple Surf correspond a quoi ? a une plage nommée, à un Range

Exemple Pour définir un range :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Surf as range
Set surf = range("A1:B25")
msgbox surf.adress

Pour voir l'adresse d'une plage nommée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox [SURF].Address

Edit oui, pour la valeur de ta plage nommée "SURF" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MSGBOX [SURF]

Edit2 : Autan pour moi, c'était une formule !

[Armandito]

Le code est bon, ça ne fait aucun doute.

Essaye du côté du menu Outil > Option > onglet Calcul > coche Accepter des étiquettes dans les formules.

C'était exactement ça!!
ça marche nickel maintenant!

Merci beaucoup PeekNPoke, et merci a tous ceux qui ont répondu!