Bonjour à tous,

J'ai une macro ci-dessous qui me permets de rechercher une valeur dans une plage définie. Je voudrais par la suite modifier la valeur recherchée (en rouge ci dessous) si cette valeur est trouvée.

Pour le moment la dernière partie du code (en rouge) n'est pas opérationnelle.

Avez vous une solution ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub CheckBox2119_Click()
'déclaration des variables :
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseNonTrouvee As String, AdresseTrouvee As String
'affectation de valeurs aux variables :
    'on cherche le mot "Trouve"
Sheets("ORGANIGRAMME").Activate
Valeur_Cherchee = "toto"
Set PlageDeRecherche = Sheets("ORGANIGRAMME").Range("A1:G40")
'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)
Set Trouve = PlageDeRecherche.Cells.Find(What:=Valeur_Cherchee, LookAt:=xlWhole)
'traitement de l'erreur possible : Si on ne trouve rien
If Trouve Is Nothing Then
    'ici, traitement pour le cas où la valeur n'est pas trouvée
    AdresseNonTrouvee = Valeur_Cherchee & " n'est pas présent dans cette feuille"
    MsgBox AdresseNonTrouvee
Else
Dim c As Range, d As String
    For Each c In Range("A1:A40").Value
        d = Replace(c, "toto", "toto(1)")
    Next c

End If

End Sub