CONCATENANTION DE DEUX CELLULES EXCEL

Résolu
h_adil Messages postés 231 Date d'inscription mercredi 27 avril 2005 Statut Membre Dernière intervention 10 juin 2009 - 6 juin 2007 à 19:25
MAXIMO71 Messages postés 46 Date d'inscription samedi 25 mars 2006 Statut Membre Dernière intervention 7 juin 2007 - 6 juin 2007 à 20:26
Bonsoir,
je veux faire un programme en vba qui lit le contenue d'une cellules A et puis il rajour a la valeur de cette cellules des chiifres. exemple
cellule de depart
celle (2,2)= 1111

le resultat que je veux
celle(2,2)=001111

pour cela j'ai essayé le &
Cells(2, 2) = "00" & Cells(2, 2)
mais dans la cellule excel il me donne une erreur #NOM
j'ai essayé aussi
Cells(2, 2) = concatener("00", Cells(2, 2))
et il me donne une erreur de compilation.

programation .....

4 réponses

fiko81 Messages postés 381 Date d'inscription vendredi 24 septembre 2004 Statut Membre Dernière intervention 5 septembre 2010 3
6 juin 2007 à 19:55
Sinon tu peux faire comme ça : (pour être sure de convertir en chaine de caractère)
ActiveCell = CStr(Cells(1, 1)) & CStr(Cells(2, 1))

 Fiko ;-)

La reponse vous convient pensez > Accepter < <hr />
3
fiko81 Messages postés 381 Date d'inscription vendredi 24 septembre 2004 Statut Membre Dernière intervention 5 septembre 2010 3
6 juin 2007 à 19:30
Salut,
Tu n'es pas obligé de passer par VBA : sous excel la fonction CONCATENER marche bien

 Fiko ;-)

La reponse vous convient pensez > Accepter < <hr />
0
h_adil Messages postés 231 Date d'inscription mercredi 27 avril 2005 Statut Membre Dernière intervention 10 juin 2009
6 juin 2007 à 19:37
si
il me donne
cette formule
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-1],R[1]C[-1])"
lorsque je l'ai essayé dans mon programme il met dans le cellule excel le mot =CONCATENATE(RC[-1],R[1]C[-1]). parsqu'il considère que les caractères entre les "" un texte.

programation .....
0
MAXIMO71 Messages postés 46 Date d'inscription samedi 25 mars 2006 Statut Membre Dernière intervention 7 juin 2007
6 juin 2007 à 20:26
Je pense te ton code ne comprend pas ce que tu souhaite faire

Cells(2,2).Text ou .Value = "00" & Cells(2,2).Text ou .Value

En effet tu ne peux pas concaténer des Valeurs numérique avec des chaines de caractères. De plus si tes valeurs de départ son des numériques, il ne le seront plus après.

Si tu souhaite conserver des valeurs numériques utilise Format(Cells(2,2).Value, "00000")

MAXIMO71
PS Si la réponse vous satistait
pensez à la valider
0