Lire les caractères dans 1 cellule

Pierre · 30 Novembre 2003

Bonjour,

Je suis tout nouveau dans ce forum et relativement nouveau sur VBA comme vous allez voir...

Ma question est simple, mais l'exemple qui l'illustre est plus explicite je pense ! :
Comment lire les caractères à l'intérieur d'une cellule.
En fait, je souhaite pouvoir effectuer une opération spécifique selon les 3 premières lettres que contient une cellule.

Par exemple: si j'ai "Fruit1" dans une cellule, puis "Fruit2", "Fruit3", "Legume1", "Fruit4", "Legume2", je souhaite pouvoir écrire un code du genre:
If le texte dans la cellule commence par "Fru" Then fais ça
If le texte dans la cellule commence par "Leg" Then fais ça

Merci d'avance !

Pierre

lupin · 30 Novembre 2003

Utilise la fonction Left pour récupérer les 3 premiers caractères
Supposons que les données sont dans la première colonne de A1 à A10

Sub Traiter()

For i = 1 To 10
If Left(Cells(i, 1), 3) = "Fru" Then
MsgBox "FRUIT"
ElseIf Left(Cells(i, 1), 3) = "Leg" Then
MsgBox "LEGUME"
End If
Next i

End Sub

A+
Lupin

Pierre · 1 Décembre 2003

Merci beaucoup pour ta réponse rapide et fonctionelle !

A+
Pierre

Lire les caractères dans 1 cellule

Pierre

Guest

lupin

Guest

Pierre

Guest

Discussions similaires