Petit problème de concaténation

Bonjour,
j'essaie d'automatiser une concaténation, avec le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function concat(col1 As String, col2 As String, cible As String) Dim i As Integer i = 3 While Range(col1 & i) <> "" Or Range(col2 & i) <> "" Range(cible & i) = Range(col1 & i) & Range(col2 & i) i = i + 1 Wend       End Function

---

c'est une fonction car je l'appelle dans un main après.

Le problème est que quand je veux concaténer "000002" avec "6", cela me sort un 26 alors que je veux un 0000026 .

Comment faire?
Merci d'avance
guillaume

Il faut préalablement mettre un Format TEXTE dans la cellule cible :

Code:

---

1 2	Range(cible & i).NumberFormat = "@" Range(cible & i) = Range(col1 & i) & Range(col2 & i)

---

je te remercie, cela a marché!
Ca fonctionne comment cette histoire de numberformat?

Bonjour,

Le changement de 'numberformat' dans une cellule d'excel est l’équivalent de:
clic droit dans une cellule pour Format\Cellule.

Tu bases ton code sur des cellules et non sur des variables :

- dans une cellule au format standard : si tu écris "00026", tu obtiendras 26
- dans une cellule au format texte: si tu écris "00026", tu obtiendras 00026

C'est pour cela qu'il t'a fait ajouter l'instruction de passer ta cellule au format texte.

Philippe

Oui oui ca j'ai bien compris, c'est le ="@"
qui m'intrigue!

C'est vrai que tu ne peux pas trouver le "@" sans le connaître...
SAUF! Si tu sais te servir de l'enregistreur de macro! Essaie-le c'est magique!

Tu ne sais pas comment fusionner des cellules par VBA? (exemple)

¤ enregistrer une macro
¤ selectionnes quelques cellules
¤ fusionnes-les
¤ arrêtes l'enregistreur de macro
¤ rends toi dans VBA et tu trouveras :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Macro2() ' ' Macro2 Macro '   ' Range("D34:F38").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge End Sub

---

idem pour la mise en format de cellules!

Code:

---

1 2 3 4 5 6 7 8 9

Sub Macro1() ' ' Macro1 Macro '   ' Range("C35").Select Selection.NumberFormat = "@" End Sub

---

J'ai une autre petite question, cette fois si je veux utiliser un numberformat, mais pour passer de "0006" à "6", j'ai essayé avec l'enregistreur de macro mais j'arrive meme pas a virer ces 0 "manuellement"

merci d'avance
Guillaume

problème résolu, pour ceux que ca intéresse:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function remove_0(col As String) ' permet de supprimer les 0 à gauche d'un nombre saisi sous forme de texte dans excel   Dim tempo As String Dim i As Integer   i = 3 While Cells(i, col) <> "" tempo = Cells(i, col).Value Do While Left(tempo, 1) = "0" tempo = Right(tempo, Len(tempo) - 1) Loop Cells(i, col).Value = tempo i = i + 1 Wend End Function

---

Tu peux aussi utiliser

Code:

---

tempo = mid(tempo,2)

---

qui sera équivalent à

Code:

---

tempo = Right(tempo, Len(tempo) - 1)

---