Code ne fonctionne pas

Résolu
jean300 -  
Bonjour,
Ces codes ne fonctionnent pas et je comprends pas :

Private Sub Worksheet_Activate()
If Sheet("FR")("AB2") <> "T" Then Btn_Traité.Visible = False
If Sheet("FR")("AB2") = "T" Then Btn_Traité.Visible = True
End Sub

Merci de m'éclairer.

Configuration: Windows / Firefox 64.0

4 réponses

  1.  M-12
    Bonjour 

    Private Sub Worksheet_Activate() 
If Sheet("FR").Range("AB2") <> "T" Then Btn_Traité.Visible = False 
If Sheet("FR").Range("AB2") = "T" Then Btn_Traité.Visible = True 
End Sub
    1. jean300 Auteur
      Bonjour M-12
      Je te remercie pour ta réponse, seulement, ne fonctionne toujours pas chez moi.
      1. M-12
        Re,
        Place un classeur modèle
        Tu vas dans https://www.cjoint.com/
        Tu cliques sur "PARCOURIR" pour sélectionner ton fichier
        Clic le bouton "CREER LE LIEN"
        Clic droit quand le lien est créé "COPIER LE LIEN"
        Sur ton message Clic droit "Coller".
      2. M-12
        Re, 
        Private Sub Worksheet_Activate() 
If Sheets("FR").Range("AB2") <> "T" Then Btn_Traité.Visible = False 
If Sheets("FR").Range("AB2") = "T" Then Btn_Traité.Visible = True 
End Sub


        https://mon-partage.fr/f/KWOG3174/
    2. jean300 Auteur
      Voici, en vous remerciant
      https://www.cjoint.com/c/IBckklNbmk6
      1. M-12
        Re,

        modifie ici en mettant un s à Sheet (Sheets) 
        Private Sub Btn_ValiderSaisie_Click()
Dim chDos$, Dos$, Fich$

    If Sheets("FR").Range("AB2") <> "T" Then Btn_Traité.Visible = False        '????????????????
    If Sheets("FR").Range("AB2") = "T" Then Btn_Traité.Visible = True          '????????????????
    3. jean300 Auteur
      Bonjour M-12
      Merci beaucoup, il est temps que je me réveille.
      Bon dimanche.

      Discussions similaires

      C'est quoi un BILLING ZIP CODE
      bikanane

      1 réponse
      Où sont stockés les QR codes sur android ?
      zatox19

      11 réponses