Discussion :

[formabox]

Hello l'équipe,

Je suis en train de développer un planning dans Excel avec des macros pour automatiser un certains nombres de tâches et je suis confrontée à un problème que je n'arrive pas à résoudre...

Dans mon code VBA, je fais une recherche, jusqu'ici aucun problème :

Code :

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

1
2
3
Cells.Find(What:=service, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

Mon problème est le suivant : Lorsque la recherche est lancée et que l'élément est trouvé, il continue la suite des instructions... Parfait... Mais lorsque la recherche ne retrouve pas l'élément, j'aimerai lui dire de faire une autre action... Dois-je utiliser un IF avant la fonction Find ? Mais comment lui dire dans le IF que si le résultat de la recherche ne trouve rien, alors faut lancer une autre action ?

Si quelqu'un peut me donner un p'tit coup de pouce , ca sera super cool...

Merci d'avance et belle journée,

[ZebreLoup]

Bonjour,

Par principe, il faut éviter dans du code VBA de faire des select ou activate. Mieux vaut travailler avec des variables. Si tu regardes l'aide d'Excel sur Find, tu auras ta solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

[casefayere]

Bonjour,
autre solution

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub essai()
Dim celadresse As Range
Set celadresse = Cells.Find(What:="toto", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
If celadresse Is Nothing Then
  MsgBox "pas de correspondance" 'ou ce que tu veux
Else
  celadresse.Select 'travailles avec la cellule plutot que la selectionner
  'exemple
  MsgBox celadresse.Address
End If
End Sub

[formabox]

Entretemps, j'avais trouvé la même solution que me propose CaseFayere et que j'allais soumettre mais trop tard...

Merci tout de même et belle journée