Discussion :

[chito79000]

Bonjour,

Après multiples recherches sur internet, je viens sur le forum pour avoir peut être une réponse

Je recherche un code permettant de répéter le chiffre en fonction du nombre de caractère d'une cellule
Ex : A1 A2
4568 004568

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i = 5 To Lign
a = Application.VLookup(Range("C" & i), Sheets("onglet 1").Columns("A:B"), 2, False)
b = Application.Rept(Chr(0), 7 - Len(a)) & a
Range("M" & i) = b
Next i

[Menhir]

Pourquoi avoir mis Chr(0) alors que ce que tu veux c'est "0" ?

[Invité]

Pourquoi avoir mis Chr(0) alors que ce que tu veux c'est "0" ?

bonjour,
je dirai même mieux pourquoi les coiffeurs?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
txt = "4568 004568"
txt = txt & String(UBound(Split(txt, "0")), "0")

que veux tu faire exactement?

[Ben_L]

Bonjour,

Si les valeurs que vous traitez sont des nombres entiers, vous pouvez utiliser le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 5 To Lign
    Range("M" & i) = Format(Application.VLookup(Range("C" & i), Sheets("onglet 1").Columns("A:B"), 2, False).Value, "0000000")
Next i

[unparia]

Bonjour
une foule de solutions sont possibles, même les plus farfelues, comme celle-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ch = "ckoica"
RSet ch = "458"
MsgBox Replace(ch, " ", "0")

On peut toutefois se demander pourquoi ne pas tout simplement donner à la cellule concernée le format personnalisé adéquat

[Philippe Tulliez]

Bonjour Unparia,

On peut toutefois se demander pourquoi ne pas tout simplement donner à la cellule concernée le format personnalisé adéquat

Je me faisais la même réflexion.

[Invité]

Bonjour,

Une solution possible :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 Function CompleterAvecZero(ByVal ChaineACompleter As String, ByVal NombreDeCaracteres As Integer) As String
 
Dim I As Integer
 
    CompleterAvecZero = ""
    If Len(ChaineACompleter) < NombreDeCaracteres Then
       For I = 1 To NombreDeCaracteres - Len(ChaineACompleter)
           CompleterAvecZero = CompleterAvecZero & "0"
       Next I
       CompleterAvecZero = CompleterAvecZero & ChaineACompleter
    End If
 
End Function