lien de plusieurs CheckBox vers cellule

[titoffe60]

Bonjour

encore besoin de vous

je voudrais que les CheckBox (entrées 1, entrées 2 ainsi de suite) sélectionnées soit en lien avec les CheckBox (L,m,m,j,v) sélectionnées, s affiche dans la feuille prévisionnel pédagogique dans "entrées" en fonction des jours sélectionnés et soit marquer à la suite

j’espère me faire comprendre

en vous remerciant par avance
a+ Christophe

 

[job75]

Re : lien de plusieurs CheckBox vers cellule

Re,

Noter qu'il est très facile de filtrer les données pour chaque jour.

Par exemple avec le filtre laboré, dans le code de Feuil1 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$L$3" Then Exit Sub
Dim col As Variant
col = Application.Match(Target, Array("L", "Ma", "Me", "J", "V"), 0)
If IsError(col) Then
  Columns.Hidden = False
  On Error Resume Next
  Me.ShowAllData
  [E2] = "Nombre de portions"
Else
  Application.ScreenUpdating = False
  Columns("E:I").Hidden = True
  Columns(col + 4).Hidden = False
  [J4].FormulaR1C1 = "=ISNUMBER(RC[-" & 6 - col & "])"
  [E3:I103].AdvancedFilter xlFilterInPlace, [J3:J4]
  [J4] = ""
  [E2] = "Nb"
End If
End Sub

Fichier (6).

A+

 

[job75]

Re : lien de plusieurs CheckBox vers cellule

Re,

Bon le client est roi, alors au risque d'un AVC j'ai fait ce que vous voulez.

Pour arriver au résultat j'utilise un tableau VBA auxiliaire.

Ci-joint le fichier (7), c'est une modification du fichier (4) du post #12.

A+

 

[titoffe60]

Re : lien de plusieurs CheckBox vers cellule

Génial, génial
non le roi c'est vous moi que votre serviteur

encore merci , maintenant je vais faire les autres userformes par rapport aux autres fiches techniques

je ne sais pas comment vous remercier ?

Dite moi

Christophe

 

[job75]

Re : lien de plusieurs CheckBox vers cellule

Re,

Votre satisfaction est le meileur des remerciements.

A bientôt.

 

[titoffe60]

Re : lien de plusieurs CheckBox vers cellule

désoler encore de vous embêter

mais quand je clique sur les 6 premiers chexbox de lundi
çà s'affiche dans prévisionnel de lundi ,il y a E1 E2 E3 E4 E6 et E5 se met dans mardi

après j'ai fais un essai sur tout

J ai cliquer sur les 4 premiers lundi, les 4 autres sur mardi et ainsi de suite, et à la suite

et cela pour toutes les autres

Encore désoler

Christophe

 

[job75]

Re : lien de plusieurs CheckBox vers cellule

Re,

Vous aviez mis des n° de CheckBoxes erronés à droite de E5.

Le fichier (7 bis) corrige ça, mais je n'ai pas tout vérifié.

Edit : à droite de E15 ce n'est pas bon non plus...

Une numérotation correcte des CheckBoxes est indispensable pour les repérer.

A+

 

[titoffe60]

Re : lien de plusieurs CheckBox vers cellule

Bonjour

Désoler pour cette petite erreur

je vous remercie encore beaucoup cela m'a aider énormément

au plaisir
Cordialement Christophe

 

[job75]

Re : lien de plusieurs CheckBox vers cellule

Bonjour titoffe60,

Vous avez peut-être terminé votre projet avec les 5 UserForms.

Je joins quand même ce que j'ai fait car il y a une astuce pour le Module de classe :

- une seule classe CB est utilisée pour tous les USF

- dans la macro l'USF est repéré par CB.Parent.

Fichier (8).

Edit : noter dans Module1 les macros CréerFeuilles et ModifierLabels.

Elles m'ont permis de créer facilement pour chaque USF les 20 feuilles de calcul et de modifier le Caption des Labels correspondants.

A+

 

[titoffe60]

Re : lien de plusieurs CheckBox vers cellule

re,

C'est exactement cela ce que j'ais fait et j'ai vu les codes c'est cool merci une vrai bête

sauf le code que j'ai fais pour les 6 usf:

Option Explicit
Public WithEvents Entrées As MSForms.CheckBox
Public WithEvents Desserts As MSForms.CheckBox
Public WithEvents Technique As MSForms.CheckBox
Public WithEvents Plats As MSForms.CheckBox
Public WithEvents Legumes As MSForms.CheckBox
Public WithEvents Grillades As MSForms.CheckBox

J'ai changé le nom dans le code et dans usf

une autre question comment pour que les checkbox de 1 a 20 se mettent en rouge si coché
et de 21 à 120 en orange si coché?

Et il me faudrait un code pour effacer 2 plages de cellules sur 5 feuilles différentes
si checkbox coché par un commandbutton sachant que 1 checkbox = 1 feuilles =2 plages de cellules

merci d avance

A+ Christophe

 

[job75]

Re : lien de plusieurs CheckBox vers cellule

Bonsoir titoffe60,

La coloration du Label correspondant à la CheckBox cochée ne pose pas de problème.

Voir le fichier (9) et la macro modifiée du Module de classe.

Pas compris pour l'effacement des 2 plages, il faudrait le montrer sur un fichier.

Edit : fichier (9) pour ForeColor, fichier (9 bis) pour BackColor.

Bonne nuit.

 

[job75]

Re : lien de plusieurs CheckBox vers cellule

Bonjour titoffe60, le forum,

Avec un seul UserForm et une ComboBox3 supplémentaire ça paraît quand même mieux.

Edit 1 : à cause des macros "aperçu" et "imprimer" UserForm_Activate ne convient pas.

J'ai remis UserForm_Initialize.

Edit 2 : pour finir j'ai supprimé Feuil143(Feuil1) avec sa liste de nombres.

Il est plus simple de créer les listes de ComboBox1 et ComboBox2 par la méthode AddItem.

Fichier (10).

A+

 

[job75]

Re : lien de plusieurs CheckBox vers cellule

Annulé.

J'ai édité le post précédent.

 

[titoffe60]

Re : lien de plusieurs CheckBox vers cellule

Bonjour

c'est nickel même très très bien merci beaucoup

je vais vous demandez quelque chose qui peut vous donner un autre AVC

Je m'explique j'ai une feuille "commande"
dans l'item "légumes frais" j'ai mis "carotte" (en exemple) en B14 est ce que un code peut me chercher dans toutes les fiches techniques le mot "carotte ou le mot qui seras dans cette cellule" et me mettre les sommes en E14 le lundi et ainsi de suite) sachant que j'ai cliqué sur lundi ou mardi dans les usf et mis dans prévisionnel

et si j'ai cliqué sur mercredi ou jeudi ou vendredi les sommes doivent se mettre en I14 (le mercredi)
Attention ceci juste pour les légumes, salade, fine herbe et fruits frais
tout le reste des familles de produits et totaux se ferais en colonne E "le lundi"

et si le prix unitaire (N14) de la carottes pouvais se mettre dans les fiches techniques en colonne F quand le code trouveras carotte (Cellule B14)

Si le code pouvais garder les familles de produits distinct car il peut y avoir plus ou moins de ligne

Pour l'autre question:

Et il me faudrait un code pour effacer 2 plages de cellules sur 5 feuilles différentes
si checkbox coché par un commandbutton RAZ
j'ai mis les feuilles en exemple et usf



Merci et bon courage pour cette nouvelle épreuve si vous l’accepter

A+Christophe

 

[job75]

Re : lien de plusieurs CheckBox vers cellule

Re,

Désolé, je n'ai rien compris, Jocker 🙂

Essayez de jouer la facilité.

A+

 

[titoffe60]

Re : lien de plusieurs CheckBox vers cellule

re

desoler vais essayer de reformuler

1ere question
est ce que la cellule B14 item "légumes frais" (feuille de commande) peut me trouver le mot, que je lui aurais donner, dans les plages de cellule C7 a C39 des fiches techniques
et ajouter les sommes trouver, en E14

et inversement mettre le prix unitaire N14 (feuille de commande) vers les fiches techniques en colonne f , la ou il auras trouver la référence de la cellule E14

2eme question
il me faudrait un code pour effacer 2 plages de cellules sur 5 feuilles différentes
si checkbox coché par un commandbutton RAZ
j'ai mis les feuilles en exemple et usf


espère que cela est explicite

a+ Christophe