Exprimer "Chaine de caractères quelconque

[Riddick]

Bonjour a tous
Le forum

Une petite question pour apporter une solution a un autre fil

Comment exprime t'on dans VBA la chaine de caractere quelconque
dans certains language c'est le signe *

exemple:

pour les mots quelconques se finissant pas 'ent'
je chercherai cellule= * & 'ent'

J'espere que vous me comprenez
Merci d'avance

 

[Pierre]

Bonjour Riddick,

ce petit bout e code compte dans la plage c2:c10 le nombre de mots se terminant par 'ent et affiche le résultat en E2.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c, but As Range
Dim cpt, lg As Long

Set but = Worksheets('feuil1').Range('E2')
cpt = 0
lg = 0
Set Target = Worksheets('feuil1').Range('c2:c10')
For Each c In Target
lg = c.Characters.Count
If c.Characters((lg) - 2, 3).Text = 'ent' Then cpt = cpt + 1
Next
but.Value = cpt
End Sub


J'espère que cela t'aidera.

 

[Riddick]

Bonjour Pierre et merci.....

En fait pour mieux comprendre je vous invite a suivre ce fil

Lien supprimé

Suivez le guide.....

 

[myDearFriend!]

Bonsoir Riddick, Pierre,

Riddick, le code qu'il t'aurait fallu utiliser à la place de :

If ActiveSheet.Cells(ligne, 4)= * & chr(10) & * & chr(10) & * then...

est

If ActiveSheet.Cells(ligne, 4) Like '*' & Chr(10) & '*' & Chr(10) & '*' Then...

En utilisant l'opérateur de comparaison Like, tu peux effectivement utiliser le caractère * en lieu et place d'une chaine de caractères quelconque. De même, le caractère ? remplacera un caractère unique et # un caractère numérique.

Quant au lien que tu donnes, pour information, usul a semble-t'il trouvé réponse à sa question dans un autre Forum Excel, j'espère qu'il aura tout de même la bonne idée de repasser dans son fil en donner la solution retenue...

Cordialement.