rajouter un message dans un code

[pascal21]

bonjour le forum

 If Target.Address(0, 0) = "G1" Then
   Dim IndexLigne
   If IsEmpty([G1]) Then
       Rows.Hidden = False
   Else
    IndexLigne = Application.Match([G1], Range("D6:D" & Rows.Count), 0)
    If IsError(IndexLigne) Then IndexLigne = Application.Match([G1], Range("G6:G" & Rows.Count), 0)
   If Not IsError(IndexLigne) Then
       If IndexLigne > 1 Then Range("A6:A" & IndexLigne + 4).EntireRow.Hidden = True
   End If
    End If
 End If

j'ai ce code qui me permet de filtrer les lignes contenant la valeur de G1
MAIS si la référence recherchée n'existe pas,j'aimerais rajouter une msgbox qui indiquerait que la référence recherchée n'existe pas
avec cette question v oulez vous faire une autre recherche si "oui" alors textbox1. clearcontents
si réponse non label1.visible = true
pouvez-vous m'aider merci

 

[Hulk]

Re : rajouter un message dans un code

Hello Pascal,

Euh c'est quoi ça ?

If Target.Address(0, 0) = "G1" Then

Cdt, Hulk.

 

[pedrag31]

Re : rajouter un message dans un code

Bonjour Pascal21, Bonjour Hulk,

Un exemple simple de message Oui/Non a adapter...

Sub MessageStandard()
    
MessageDeTest = MsgBox("Ce message est un test..." & vbCr & vbCr & "Cliquez sur 'Oui' si vous le trouvez utile, cliquez sur 'Non' dans le cas contraire.", vbYesNo + vbInformation, "MESSAGE DE TEST")

        If MessageDeTest = vbYes Then
                'code pour Oui            
                MsgBox "Merci de votre soutien"
        ElseIf MessageDeTest = vbNo Then
                'code pour non            
                MsgBox "Merci pour votre franchise." & vbCr & vbCr & "J'aurai au moins essaye de vous aider :-)"
        End If

End Sub

EDIT: le test sur Target vient peut etre d'une macro evenementielle du genre:

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Bonne journée, 🙂

 

[pascal21]

Re : rajouter un message dans un code

Hello Pascal,

Euh c'est quoi ça ?

If Target.Address(0, 0) = "G1" Then

Cdt, Hulk.

BONJOUR HULK
je ne sais pas, il est possible que j'ai oublié un bout du code mais je ne crois pas
G1 est le cellule de référence elle est renseignée par le textbox1
d'où peut être le

If Target.Address(0, 0) = "G1" Then

le code n'est pas de moi et je ne sais plus qui en est l'auteur
edit merci pedrag je vais voir pour adapter