Code ne fonctionne pas

Résolu

jean300 Messages postés 374 Date d'inscription Statut Membre Dernière intervention -
jean300 Messages postés 374 Date d'inscription Statut Membre Dernière intervention - 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

A voir également:

Code ne fonctionne pas
Code ascii - Guide
Code puk bloqué - Guide
Comment déverrouiller un téléphone quand on a oublié le code - Guide
Code activation windows 10 - Guide
Code blocks - Télécharger - Langages

4 réponses

Réponse 1 / 4

M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention 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 374 Date d'inscription Statut Membre Dernière intervention 14

Bonjour M-12
Je te remercie pour ta réponse, seulement, ne fonctionne toujours pas chez moi.

M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention 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".

M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention 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/

Réponse 3 / 4

jean300 Messages postés 374 Date d'inscription Statut Membre Dernière intervention 14

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

M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention 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 374 Date d'inscription Statut Membre Dernière intervention 14

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

Discussions similaires

sertissage des cables rj45

Votre réponse

Discussions similaires