Code ne fonctionne pas

Résolu/Fermé

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 2 févr. 2019 à 08:10
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 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

A voir également:

Code ne fonctionne pas
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code activation windows 10 - Guide
Code gta 4 ps4 - Guide

4 réponses

Réponse 1 / 4

M-12 Messages postés 1332 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 18 février 2025 285
2 févr. 2019 à 08:18

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 jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
2 févr. 2019 à 10:40

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 lundi 22 septembre 2008 Statut Membre Dernière intervention 18 février 2025 285
2 févr. 2019 à 10:42

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 lundi 22 septembre 2008 Statut Membre Dernière intervention 18 février 2025 285
Modifié le 2 févr. 2019 à 10:49

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 jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
2 févr. 2019 à 11:11

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

M-12 Messages postés 1332 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 18 février 2025 285
2 févr. 2019 à 11:16

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 jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
3 févr. 2019 à 08:39

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

Discussions similaires

sertissage des cables rj45

Code de renvoi d'appel : Ooredo, Mobilis...

Réinitialisation d'un téléphone mobile chinois avec touche