Discussion :

[Liloo14]

Bonjour à tous,
J'utilise ce code pour rechercher une valeur dans une feuille de calcul :

Code :

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

1
2
3
4
5
6
Set Nom_ok = Columns("A").Find(ConfirmationSuppression.Label2)
If Nom_ok Is Nothing Then
AttentionAucunAuteurSup.Show
    Else
Nom_ok.EntireRow.Select
Selection.ClearContents

Comme vous le voyer, en gros ça dit que je cherche dans la feuille la valeur contenue dans le Label2.Si la valeur n'est pas trouvée la userform "AttentionAucunAuteurSup" s'ouvre et si elle est trouvée ça sélectionne la ligne et ça supprime son contenu.
Afin de pouvoir combiner avec une condition IF pour chercher sur trois feuille de calcul, j'aimerais faire le contraire en quelque sorte à savoir :
si la valeur est trouvée ça efface la ligne, si elle n'est pas trouvée ça active la feuille de calcul suivante et l'opération de recherche reprend.

En fait, je cherche le contraire de

Code :

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

If Nom_ok Is Nothing Then

Quelque chose dans le style

Code :

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

If Nom_ok Is "trouvé" Then

Merci par avance à ceux qui pourront m'aider.
Laurent

[Marc-L]

Bonsoir, le contraire c'est :

Code :

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

If Not Nom_ok Is Nothing Then

[mercatog]

Un exemple, je cherche le mot "Toto" dans la première colonne des feuilles du classeur jusqu'à ce qu'elle soit trouvée ou non après boucle sur toutes les feuilles.

Si le mot est trouvé, la ligne correspondante est supprimée et la recherche s'arrête.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Supr()
Dim Ws As Worksheet
Dim c As Range
 
For Each Ws In ThisWorkbook.Worksheets
    Set c = Ws.Range("A:A").Find("Toto", LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        c.EntireRow.Delete
        Set c = Nothing
        Exit For
    End If
Next Ws
End Sub

[Liloo14]

Merci à vous deux, votre aide m'a été utile.
Bonne continuation