Discussion :

[souad12]

Bonjour,
Le fait de ne pas partiquer souvent, fait qu'aujourd'hui je ne sais plus manipuler les chaines de caractères. Voici mon problème :
Je souhaite tester dans ma première colone A les cellules commençant pas "Fax". Avec ce code ci-après je sélectione seulement les cellules comportant seulement le mot "Fax" or nous avons dans cette colone "Fax paul" "Fax marie" etc.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub test1()
Dim var As Range
For Each var In Range("A1:A22")
  If var = "Fax" Then
  i = i + 1
  var.Interior.ColorIndex = 3
  End If
Next
MsgBox i
End Sub

Je vous remercie pour votre aide et surtout pour votre indulgence face à l'état primitif de ce code et de mes connaissances

Sincères salutations
Souad

[Philippe Tulliez]

Bonjour,
Il faut utiliser la fonction Left dont la syntaxe est Left(Chaîne, NombreDeCaractères)
Exemple

Code :

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

1
2
3
Sub test()
 If Left(Range("A10"), 3) = "Fax" Then MsgBox "C'est un fax"
End Sub

Voir le tutoriel sur le sujet Manipuler les chaînes de caractères en VB6 et VBA Excel

[souad12]

Merci pour votre réponse mais là, le test se fait seuleument à la cellule A10 or je souhaiterai sur toute la colone A.

[Philippe Tulliez]

Bonjour,
Le titre de ton post est Sélectionner les 3 premières lettre d'une chaine de caractères non ?
Il me semble qu'avec la réponse que je t'ai donnée cela devrait suffisamment t'aider.
Donc au lieu de lire la cellule A10 tu prends la variable Var qui de type Range

Code :

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

If Left(Var,3) = "Fax" Then MsgBox "C'est un fax"

[souad12]

oups pardon...
Merci pour la réponse