Concatene plusieurs celulles

Bricofire

XLDnaute Impliqué

• 23 Mars 2005

• #2

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

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 23 Mars 2005

• #3

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

Cliquez pour agrandir...

Cordialement.

 

Vote positif 0 Vote négatif

L

LE BLEVEC

XLDnaute Nouveau

• 23 Mars 2005

• #4

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

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 23 Mars 2005

• #5

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

 

Vote positif 0 Vote négatif

L

LE BLEVEC

Guest

• 23 Mars 2005

• #6

merci Monique

Ca fonctionne

 

Vote positif 0 Vote négatif