Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Amélioration possible ???

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion teamtat
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

teamtat

XLDnaute Occasionnel
Bonjour,
Je voudrais savoir si c'été possible d'améliorer ce code ???
Merci

Code: 
If ThisWorkbook.Worksheets("Saisie de données").CheckBox13.Value = True Then
      wk.Worksheets("Masque saisie").mac3 = True
Else
      wk.Worksheets("Masque saisie").mac3 = False
End If

If ThisWorkbook.Worksheets("Saisie de données").CheckBox14.Value = True Then
     wk.Worksheets("Masque saisie").mac3 = True
Else
      wk.Worksheets("Masque saisie").mac3 = False
End If


If ThisWorkbook.Worksheets("Saisie de données").CheckBox16.Value = True Then
      wk.Worksheets("Masque saisie").mac3 = True
Else
      wk.Worksheets("Masque saisie").mac3 = False
End If
 
Trier par date Trier par votes
Re : Amélioration possible ???

Bonjour,
Aessayer:
A++
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Amélioration possible ???

Bonjour teamtat,
Peut être avec :
Code: 
With ThisWorkbook.Worksheets("Saisie de données")
If .CheckBox13.Value = True And .CheckBox14.Value = True And  CheckBox16.Value = True  Then
      wk.Worksheets("Masque saisie").mac3 = True
Else
      wk.Worksheets("Masque saisie").mac3 = False
End If
End With
Je ne doute pas qu'il ai mieux.
Cordialement
 
Vote positif 0 Vote négatif
Re : Amélioration possible ???

Merci mais j'ai oublié de préciser que j'ai des autres checkboxs

Code: 
 If ThisWorkbook.Worksheets("Saisie de données").CheckBox13.Value = True Then
      wk.Worksheets("Masque saisie").mac3 = True
Else
      wk.Worksheets("Masque saisie").mac3 = False
End If

If ThisWorkbook.Worksheets("Saisie de données").CheckBox14.Value = True Then
     wk.Worksheets("Masque saisie").mac3 = True
Else
      wk.Worksheets("Masque saisie").mac3 = False
End If


If ThisWorkbook.Worksheets("Saisie de données").CheckBox16.Value = True Then
      wk.Worksheets("Masque saisie").mac3 = True
Else
      wk.Worksheets("Masque saisie").mac3 = False
End If 


'*********************************************************

If ThisWorkbook.Worksheets("Saisie de données").CheckBox19.Value = True Then
      wk.Worksheets("Masque saisie").ris20 = True
Else
      wk.Worksheets("Masque saisie").ris20 = False
End If

If ThisWorkbook.Worksheets("Saisie de données").CheckBox66.Value = True Then
      wk.Worksheets("Masque saisie").ris20 = True
Else
      wk.Worksheets("Masque saisie").ris20 = False
End If
 
Vote positif 0 Vote négatif
Re : Amélioration possible ???

bonjour teamtat

Salut roro

Si les Checkbox sont issues de la boite a outils Controles :
A tester
Code: 
Numeros = Array(13, 14, 16)
For n = LBound(Numeros) To UBound(Numeros)
 If ThisWorkbook.Worksheets("Saisie de données").Shapes("CheckBox" & Numeros(n)).Value = True Then
   wk.Worksheets("Masque saisie").mac3 = True
 Else
   wk.Worksheets("Masque saisie").mac3 = False
 End If
Next n
 
Vote positif 0 Vote négatif
Re : Amélioration possible ???

Merci efgé le code est correct mais cela ne coche pas mes checkbox dans mon autre classeur


Code: 
 With ThisWorkbook.Worksheets("Saisie de données")
If .CheckBox19.Value = True And .CheckBox66.Value = True Then
     wk.Worksheets("Masque saisie").ris20 = True
Else
      wk.Worksheets("Masque saisie").ris20 = False
End If
End With
 
Vote positif 0 Vote négatif
Re : Amélioration possible ???

Re

Sauf erreur , il n'y a rien a mettre a la place de Numeros
Et si cela fonctionne le seul avantage par rapport a celle de mon voisin Youki 🙂 est que l'ajout ou le retrait d'un Numero de checkbox est plus rapide
 
Vote positif 0 Vote négatif
Re : Amélioration possible ???

Re

Si on reprend le code d'origine ma formulation est correcte et correspond aux And
Et il est vrai que pour des OR ,je devrais avoir

Code: 
Numeros = Array(13, 14, 16)
For n = LBound(Numeros) To UBound(Numeros)
If ThisWorkbook.Worksheets("Saisie de données").Shapes("CheckBox" & Numeros(n)).Value = True Then
wk.Worksheets("Masque saisie").mac3 = True
exit for
Else
wk.Worksheets("Masque saisie").mac3 = False
End If
Next n
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2019 Clic droit en F doit afficher la fenêtre de commentaire, prêt à saisir vierge. Qu'est-ce qui cloche ici ? ça copie...
Réponses
1
Affichages
151
anthoYS
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
274
anthoYS
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
230
pascal21
Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
545
youguybass
Y
  • Question Question
XL 2021 La méthode union de l'objet '_Global' a échoué
Réponses
10
Affichages
340
sousou
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
478
nabilexcel2007
N
  • Question Question
XL 2016 Exporter Graphique sur nouveau classeur
2
Réponses
19
Affichages
507
laurent950
V
  • Question Question
XL 2021 Mon codage ne fonctionne pas il devrais créer un numero automatique
Réponses
8
Affichages
272
Valtrase
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
251
anthoYS
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
196
sylvanu
  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
263
Nicolas JACQUIN
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
235
treza88
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
125
Eric 888
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
330
patricko-13
P
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
545
sylvanu
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
315
TooFatBoy
N
  • Question Question
XL 2010 fichier généré par IA ne fonctionne pas ( RESOLU )
2
Réponses
16
Affichages
893
n_turf
N
  • Question Question
XL 2016 compilation macro on/off
Réponses
7
Affichages
174
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…