Syntaxe IF THEN

[Neonato]

Bonjour à tous,

Avant de commencer, merci pour la rapidité et le sérieux à la quelle toute l'équipe répond aux question !

Voila

Les valeur de ma celulle peuvent etre 6020 Damp ou 6020 D ou 6020 ....

Voila ma formule

For m = 1 To 10

Cells(m, 1).Select

(!) c'est ici que cela foire

If ActiveCell = "602*" Then

ou If ActiveCell = "=602*" Then

ou If ActiveCell = "602" & * Then

Merci pour vos réponses

A+

Néo

 

[Arnaud]

salut,

l'étoile que tu met dans ta condition, tu la mets en voulant dire
si la valeur de ma cellule = 602 et n'importe qu'elle autre valeur dérrière ??

si c la cas, je ne pense pas que cela puisse fonctionner.

essaye plutot un truc du style :


If Left(ActiveCell.Value, 3) = "602" Then

 

[Neonato]

Salut Arnaud,

Merci beaucoup, cela fonctionne pour mon exercice !

Si quelqu'un à une autre solution, je ne demande qu'a apprendre.

A+

Néo

 

[@+Thierry]

Bonjour Neonato, Arnaud, le Forum

Une autre approche que celle d'Arnaud qui offre l'avantage de scanner à l'intérieur de la String de l'ActiveCell sans paramétrer à quel emplacement on espère trouver la String Recherchée.

Sub Searching602()
Dim C as range
With ActiveCell
Set c = .Find(602, LookIn:=xlPart)
If Not c Is Nothing Then MsgBox "Bingo !!! "
End With
End Sub


En partant de cette même approche, plutot que de boucler avec For m = 1 To 10 pour finir par des "Select" (ralentissant) Cells(m, 1).Select on peut faire ceci :

Sub Searching()
Dim C As Range
Dim FirstAddress As String
Dim SearchedString As String
Dim ResultsMsg As String

SearchedString = InputBox("Taper la String à rechercher")

With ActiveSheet.Range("A1:A10")
Set C = .Find(SearchedString, LookIn:=xlPart)
If Not C Is Nothing Then
FirstAddress = C.Address
Do
ResultsMsg = ResultsMsg & C.Value & " " & vbTab & C.Address & vbCrLf
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> FirstAddress
End If
End With

If ResultsMsg <> "" Then
MsgBox "Votre Recherche " & SearchedString & " contenue dans les éléments suivants" & vbCrLf & ResultsMsg
Else
MsgBox "Pas d'éléments trouvés pour " & SearchedString
End If
End Sub


Bonne Journée
@+Thierry