Valeur selon le nombre de caractères

[matrix]

Bonjour,

Je voudrais savoir comment faire en vba, si par exemple dans la colonne F et J, il y a des codes postaux a 6 caractères, mais aussi à 3 caractères.

Pour chaque cellule dans ses 2 colonnes, si le code postal a 6 caractères, il inscrit le nombre 8 dans la cellule juste avant et s'il a 3 caractères, il inscrit le nombre 5.

Comment faire s.v.p?

Merci encore pour votre aide.

Matrix

 

[suistrop]

Re : Valeur selon le nombre de caractères

salut peut etre ceci

Private Sub CommandButton1_Click()

For i = 3 To Range("f65536").End(xlUp).Row
    If Len(Trim(Cells(i, 6))) = 3 Then
        Cells(i, 5) = 5
    ElseIf Len(Trim(Cells(i, 6))) = 7 Then
        Cells(i, 5) = 8
    Else
        Cells(i, 5) = "bizzard"
    End If
Next i

For i = 3 To Range("j65536").End(xlUp).Row
    If Len(Trim(Cells(i, 10))) = 3 Then
        Cells(i, 9) = 5
    ElseIf Len(Trim(Cells(i, 10))) = 7 Then
        Cells(i, 9) = 8
    Else
        Cells(i, 9) = "bizzard"
    End If
Next i

End Sub

x = " salut toto "
len(x) donne le nombre de caractere de x ici ( les espace du début de la fin + salut toto)
trim(x) renvoi x sans les eventuelle espace au début ou a la fin de x ici ( "salut toto" )

 

[job75]

Re : Valeur selon le nombre de caractères

Bonsoir matrix,

Si je comprends bien, voici deux solutions, par VBA et par formule (préférable il me semmble).

Edit : salut suistrop

A+

 

[roro69]

Re : Valeur selon le nombre de caractères

Bonsoir
A essayer par formule:
A METTRE en e3 ET TIRER vers le bas

=SI(NBCAR(F3)=3;"5";"8")

A++

 

[matrix]

Re : Valeur selon le nombre de caractères

Merci a tous, les 3 fonctionnes très bien.

Je vais utiliser la macro de suistrop.

Merci encore

 

[matrix]

Re : Valeur selon le nombre de caractères

Finalement, je trouve super ton script job75.

Sans rancune suistrop.

Les 2 fonctionnes, mais l'une d'elles, est plus courte comme script.

Merci encore tout le monde.

Matrix 🙂