Utilisation des fonctions en VBA

[coco_lapin]

Bonjour le forum.

Je voudrais utiliser la fonction CONCATENER dans VBA mais je n'y arrive pas.

Plus précisement je voudrais écrire dans une cellule via VBA et que le résultat dans cette cellule soit =CONCATENER('coco_lapin';C9)

J'avais vu passé une liste de correspondance qui permet d'utiliser les fonctions dans VBA mais je ne la retrouve pas.

 

[pierrejean]

bonjour Coco

en vba concatener c'est &

='coco_lapin' & range('C9')

 

[coco_lapin]

Merci pierrejean pour ta réponse mais dans ce cas je vais voir dans la cellule en question
coco_lapinHH si j'ai HH en C9.

J'ai alors écris la valeur, ce n'est pas ce que je veux voir dans la cellule.

Je voudrais voir
=CONCATENER('coco_lapin';C9)

 

[Ti_]

Salut

Tu dois utiliser la propriété Formula de la cellule, et comme VBA cause anglais, tu dois dire CONCATENATE et mettre des virgules à la place des points virgules

Range('A1').Formula = '=concatenate(''coco'',c9)'

tu peux utiliser aussi FormulaLocal (et alors tu peux parler Français) mais je ne te le conseille pas si ton programme doit voyager un peu

Range('A2').FormulaLocal = '=concatener(''coco'';c9)'

 

[coco_lapin]

Bonjour pierrejeau, Ti_et le forum.

Merci Ti_ pour tes 2 solutions qui fonctionnent.
Je les ai adaptées pour mon application mais j'ai une difficulté supplémentaire car j'utilise des variables.

L'exemple suivant permet d'être explicite:

en A1 j'obtiens
=CONCATENER('coco',var3)
alors que je m'attendais à
=CONCATENER('coco',Feuil3!$C$3)

Lig = 3
Col = 3
var1 = 'Feuil3'
Var2 = Cells(Lig, Col).Address
Var3 = var1 & Var2
Range('A1').Formula = '=concatenate(''coco'',var3)'

Message édité par: coco_lapin, à: 23/06/2006 09:57

 

[pierrejean]

bonjour coco

sans avoir testé

et avec mes excuses pour la réponse precedente


Range('A1').Formula '=concatenate(coco,' & var3 & ')'

 

[coco_lapin]

Ta solution ne fonctionne pas, excel indique une erreur de compilation.

Moi j'avais essayé
Range('A1').Formula = '=concatenate(''coco'',' & var3 & ')'
et j'ai aussi une erreur de compilation.

A ton avis qui est le plus près de la solution?

Message édité par: coco_lapin, à: 23/06/2006 10:19

 

[pierrejean]

re

apres avoir testé !!!!!

le point d'exclamation derriere Feuil3 !!!

Lig = 3
Col = 3
var1 = 'Feuil3!'
var2 = Cells(Lig, Col).Address
var3 = var1 & var2
MsgBox (var3)
Range('A1').Formula = '=CONCATENATE(''coco'',' & var3 & ')'

Message édité par: pierrejean, à: 23/06/2006 10:20

 

[AV]

Ave,

Pour avoir une référence 3D valide, il manque le point d'exclamation dans var3 (entre var1 et var2) !
var3 = var1 &'!' & Var2

Pour l'inscription d'une formule dans une cellule, une simple égalité suffit :
Donc ça peut donner :

Sub zzzz()
Lig = 3
Col = 3
var1 = 'Feuil3'
Var2 = Cells(Lig, Col).Address
var3 = var1 & '!' & Var2
[A1] = '=concatenate(''coco'',' & var3 & ')'
End Sub

AV [aaa]

 

[coco_lapin]

pierrejean tu as l'oeil, bien vu pour le '!'.

Maintenant cela fonctionne parfaitement.
Merci à tous pour votre aide.