Code ne fonctionne pas

Résolu

jean300 Messages postés 382 Statut Membre -
jean300 Messages postés 382 Statut Membre - 3 févr. 2019 à 08:39

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

Afficher la suite

4 réponses

M-12 Messages postés 1349 Statut Membre 285

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

Réponse 2 / 4
jean300 Messages postés 382 Statut Membre 14

Bonjour M-12
Je te remercie pour ta réponse, seulement, ne fonctionne toujours pas chez moi.
0
1. M-12 Messages postés 1349 Statut Membre 285
  
  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".
  
  0
2. M-12 Messages postés 1349 Statut Membre 285
  
  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/
  
  0

jean300 Messages postés 382 Statut Membre 14

Voici, en vous remerciant
https://www.cjoint.com/c/IBckklNbmk6

M-12 Messages postés 1349 Statut Membre 285

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          '????????????????

Réponse 4 / 4
jean300 Messages postés 382 Statut Membre 14

Bonjour M-12
Merci beaucoup, il est temps que je me réveille.
Bon dimanche.
0

Code ne fonctionne pas

4 réponses

Discussions similaires

Newsletters