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

Afficher la suite

A voir également

Code ne fonctionne pas
Code ascii - Guide
Code activation windows 10 - Guide
Code puk bloqué - Guide
Code telephone - Guide
Scanner un qr code sur pc - Guide

4 réponses

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

Réponse 2 / 4
jean300 Auteur
Bonjour M-12
Je te remercie pour ta réponse, seulement, ne fonctionne toujours pas chez moi.
0
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".
  
  0
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/
  
  0

jean300 Auteur

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

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

Réponse 4 / 4
jean300 Auteur
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