Discussion :

[Lulu3344]

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

[unparia]

Bonjour
Je vais te laisszer réfléchir à la portée de ce que tu écris :
1)

Code :

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

Dim c As Range

fait que c est donc un OBJET (un objet range)
2) comment peux-tu dès lors envisager d'écrire :

Code :

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

For Each c In Range("A1:A40").Value

???
C'est un peu comme si tu disais que examines chaque élément écrit d'une liste pour voir si le texte lu est un objet matériel. Ben non ! ce n'est qu'un texte !

[BENNASR]

essayer ça :

Code :

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

1
2
3
4
5
6
Else
Dim c As Range, d As String
    For Each c In Range("A1:G40")
      c.Value = Replace(c, "toto", "toto(1)")
    Next c
End If

[joe.levrai]

Bonjour,

une boucle n'est pas nécessaire, si c'est un bête remplacement sur une plage donnée ?

Code :

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

1
2
' xlwhole pour ne remplacer que les cellules contenant exactement "toto"
Range("A1:G40").Replace What:="toto", Replacement:="titi", LookAt:=xlPart

[Lulu3344]

Merci pour vos réponses. Ca marche !