Concatene plusieurs celulles

[LE BLEVEC]

bonjours

dans une celulle mettre le contenu de plusieurs autre celulles

dans les celulles j'ai
A1 B1 C1 D1 E1
02 97 06 85 60
j 'ai fait l'essai '=A1&B1&C1&D1&E1

J'obtient 29768560 il me manque les zeros

merci a vous de m'eclairer

 

[Bricofire]

Bonsoir,

Il te suffit de mettre tes cllulles en format texte à la base (concaténation = logique), soit en tapant une ' avant ton nombre soit en cliquant sur ta cellule puis format et texte !

Bonne nuit

 

[myDearFriend!]

Bonsoir LE BLEVEC, Bricofire,

Si j'ai bien compris LE BLEVEC, en A1 par exemple, ta valeur '02' s'affiche ainsi car tu as mis un format de cellule '00' (la vraie valeur numérique étant : 2).

Si tel est le cas, le code suivant devrait permettre de répondre à ta demande :

Dim C As Byte
Dim Chaine As String

      For C = 1 To 5
            Chaine = Chaine & Format(ActiveSheet.Cells(1, C), '00')
      Next C
      MsgBox Chaine

Cordialement.

 

[LE BLEVEC]

Bonjours
Bricofire

ca ne marche pas
ce sont des donnees ,N° de telephone ,qui proviennent d'un tableau Word en 5 colonnes
contenant 2 caracteres chaqune que je copie dans excel mais les colonne qui comportent, ex:06 25 08 50 00 affiche 6 25 8 50 0 il faut 10 chiffres donc j'y ai pense avec une formule ex:=si(la cellule contenant qu'un caractere ou le caractere zero deviendrait 06 ou 00 mais je n'arrive pas.
j'ai essaie de fusionner les 5 cellules(06 25 08 50 00)dans le tableau de Word mais il me renvoi que (06)

merci

 

[Monique]

Bonjour,

Par formule, tu peux essayer :
=1*(TEXTE(A1;'00')&TEXTE(B1;'00')&TEXTE(C1;'00')&TEXTE(D1;'00')&TEXTE(E1;'00'))

en mettant ta cellule au format spécial n° de téléphone

 

[LE BLEVEC]

merci Monique

Ca fonctionne