Discussion :

[SCHOLLERF]

Bonjour,

Je souhaiterai faire une selection d'un objet, en l'identifiant par une partie de son nom ( un peu comme begins with ou encore correspond au modele dans SQL ou B.O , ou encore comme une recherche sous windows *.doc)

Ce que je cherche sous VBA c'est justement ce *...

pouvez-vous m'aider svp ???

voici un peu pres l'esprit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Range("A2").Select

Do Until ActiveCell.Value = ""

droite = ActiveCell.Value

MsgBox droite

If droite = "e" & "*" Then

msgbox: MERCI ^^'

[ouskel'n'or]

Tu ne dis pas où "e" est situé. Donc, deux solutions

Code :

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

1
2
3
4
5
6
7
Range("A2").Select
Do Until ActiveCell.Value = ""
    droite = ActiveCell.Value
    MsgBox droite
    If instr(droite,"e") <> 0 Then 'où que soit "e" dans "droite"
'ou...
    if instr(droite, "e") = 1 then 'si "e" doit se trouver en début de "droite"

a+

[SCHOLLERF]

Merci beaucoup...

serait-ce possible pour une chaine entiere... exemple au lieu d'avoir "e", se positionner sur un debut d'adresse mail ou d'ip...

merci

[ouskel'n'or]

Bien sûr... Là encore deux solutions : ou tu donnes le pseudo en entier ou tu ne le donnes pas.

Code :

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

1
2
3
4
5
LeBoutDeLadresse = "mab"
If instr(Droite, LeBoutDeLadresse) = 1 then
'ou
Pseudo = "mabienaimee"
If Split(ActiveCell.Value, "@")(0) = Pseudo Then MsgBox ActiveCell.Value

[SCHOLLERF]

Merci et longue vie

[AlainTech]

Problème résolu, bouton !