Apprcier code avec condition multiple sur affichage usf

Salut le forum

Excusez moi mais j'aimerai sans fichier joint vous demandez d'apprecier le code ci-dessous.

A vue d'oeil c'est un code qui du sens ou pas.

Si possible merci de m'aider à le corriger car je le test mais ca ne marche pas.

Ce qui m'étonne est qu'il n'ya pas de debogage mais mes usf ne s'affichent pas.

Private Sub CommandButton1_Click()

Dim LigF As Long, LigG As Long, LigH As Long, LigJ As Long

' Rechercher la valeur du textbox

If Me.TextBox1 <> "" Then

LigF = 0

LigG = 0

LigH = 0

LigJ = 0

On Error Resume Next

LigF = Sheets("PARAMETRE").Range("AW2:AW8276").Find(What:=Me.TextBox1).Row

LigG = Sheets("PARAMETRE").Range("Ay2:Ay13576").Find(What:=Me.TextBox1).Row

LigH = Sheets("PARAMETRE").Range("BA2:BA1535").Find(What:=Me.TextBox1).Row

LigJ = Sheets("PARAMETRE").Range("BC2:BC1700").Find(What:=Me.TextBox1).Row

On Error GoTo 0

End If

' Si une valeur a été trouvée

If LigF > 0 Then

' Si Pub = publique est sélectionné

If Me.Pub = True Then

CniPhonePub.Show

' Sinon si Prive est sélectionnée

ElseIf Me.Prive = True Then

CnibPhonePrive.Show

' Sinon si une valeur a été trouvé dans le 2è cas

ElseIf LigG > 0 Then

' Si Pub = publique est sélectionné

If Me.Pub = True Then

AcRegGeneralPub.Show

ElseIf Me.Prive = True Then

AcRegGeneralprive.Show

' Sinon si une valeur a été trouvé dans le 3è cas

ElseIf LigH > 0 Then

' Si Pub = publique est sélectionné

If Me.Pub = True Then

ParentphonePub.Show

ElseIf Me.Prive = True Then

ParentphonePrive.Show

' Sinon si une valeur a été trouvé dans le 4è cas

ElseIf LigJ > 0 Then

If Me.Pub = True Then

AcPhonePub.Show

ElseIf Me.Prive = True Then

AcPhonePrive.Show

End If

End If

End If

' Sinon si aucune ligne n'a été trouvée

ElseIf Me.Pub = True Then

AcRegGeneralPub.Show

ElseIf Me.Prive = True Then

AcRegGeneralprive.Show

End If

End If

Unload Me

End Sub

Cette partie de la condition fonctionne bien mais pas les autres:

If LigF > 0 Then

' Si Pub = publique est sélectionné

If Me.Pub = True Then

CniPhonePub.Show

' Sinon si Prive est sélectionnée

ElseIf Me.Prive = True Then

CnibPhonePrive.Show

Bonjour

Sans fichier pas sur que cela soit une bonne réponse

Private Sub CommandButton1_Click()
Dim LigF As Long, LigG As Long, LigH As Long, LigJ As Long

  ' Rechercher la valeur du textbox

  If Me.TextBox1 <> "" Then
    LigF = 0
    LigG = 0
    LigH = 0
    LigJ = 0
    On Error Resume Next
    LigF = Sheets("PARAMETRE").Range("AW2:AW8276").Find(What:=Me.TextBox1).Row
    LigG = Sheets("PARAMETRE").Range("Ay2:Ay13576").Find(What:=Me.TextBox1).Row
    LigH = Sheets("PARAMETRE").Range("BA2:BA1535").Find(What:=Me.TextBox1).Row
    LigJ = Sheets("PARAMETRE").Range("BC2:BC1700").Find(What:=Me.TextBox1).Row
    On Error GoTo 0
  End If

  If LigF > 0 Then                      ' Si une valeur a été trouvée
    If Me.Pub = True Then               ' Si Pub = publique est sélectionné
      CniPhonePub.Show
    ElseIf Me.Prive = True Then         ' Sinon si Prive est sélectionnée
      CnibPhonePrive.Show
    End If
  ElseIf LigG > 0 Then                  ' Sinon si une valeur a été trouvé dans le 2è cas
    If Me.Pub = True Then               ' Si Pub = publique est sélectionné
      AcRegGeneralPub.Show
    ElseIf Me.Prive = True Then
      AcRegGeneralprive.Show
    End If
  ElseIf LigH > 0 Then                  ' Sinon si une valeur a été trouvé dans le 3è cas
    If Me.Pub = True Then               ' Si Pub = publique est sélectionné
      ParentphonePub.Show
    ElseIf Me.Prive = True Then
      ParentphonePrive.Show
    End If
  ElseIf LigJ > 0 Then                  ' Sinon si une valeur a été trouvé dans le 4è cas
    If Me.Pub = True Then
      AcPhonePub.Show
    ElseIf Me.Prive = True Then
      AcPhonePrive.Show
    End If
  Else                                  ' Sinon si aucune ligne n'a été trouvée
    ElseIf Me.Pub = True Then
      AcRegGeneralPub.Show
    ElseIf Me.Prive = True Then
      AcRegGeneralprive.Show
    End If
  End If
  Unload Me
End Sub

Salut Banzaï

C'est super.

Même sans fichier, t'a vu mon erreur.

Merci à toi