Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

[VBA] Fonction équivalente à "Commence par&qu

Dernière réponse le 8 fév 2006 à 21:47:49 Bully, le 8 fév 2006 à 11:27:40

Signaler ce message aux modérateurs

Bonjour tout le monde !

Voilà, j'ai une variable pouvant contenir différents type de valeur comme par exemple "TPV C4S", "TPV C5C", "Logiciel Presse", "Logiciel librairie".

Et j'aimerai traduire cela en VBA :

IF variable 'Commence par' "TPV" THEN
Afficher Variable = "TPV"
ELSE IF .....

Mais je ne sais pas comment traduire le "commence par" J'ai cherché sur le net mais n'ai pas trouvé l'information nécessaire.

Un grand merci à ceux qui pourront m'aider et bonne journée !

Posez votre question Répondre

Bully, le 8 fév 2006 à 11:59:50

En faite c'est bon, j'ai fait left(var,3) ="TPV" ....

Voilà

Répondre à Bully

us, le 8 fév 2006 à 16:43:22

Salut,

Oui. ET si tu utilise la syntaxe Left$(var,3) cela sera un poil plus rapide, dans le cas où cette fonction est appeler de nombreuses fois dans une boucle...

Amicalement, Us.

Répondre à us

lami20j, le 8 fév 2006 à 20:16:30

Sub a()
Dim val As String
val = "TPV dskjfkjsd sdjkjf"
  If val Like "TPV*" Then ' TPV 'suit de Aucun ou plusieurs caractères
     MsgBox "ok"
  Else
      MsgBox "ne correspond pas!"
  End If
End Sub

Répondre à lami20j

us, le 8 fév 2006 à 21:47:49

Bravo Lami20j, c'est aussi une possibilité. Utiliser Like on n'y pense pas souvent, et offre d'ailleurs plus de flexibilité. En effet, on peut faire avec ton exemple aussi la recherche de "PTV" à l'intérieur de la chaîne grâce à "*TPV*" ... Je retiens ton code dans un petit coin...

Amicalement, Us.

Répondre à us

Posez votre question Répondre