Lire les caractères dans 1 cellule

[Pierre]

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]

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]

Merci beaucoup pour ta réponse rapide et fonctionelle !

A+
Pierre