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

Bonjour titoffe60,

Si ce forum vous permet d'évoluer dans votre carrière j'en suis très heureux.

Mais tout le mérite vous en revient.

1) J'ai modifié dans chaque USF la macro du bouton Valider comme suit :

'---feuille Prévisionnel pédagogique---
For col = 3 To 15 Step 3
  For i = 1 To 20
    If tablo(i, col) <> "" Then
      lig = PremLig + Application.CountA(Feuil1.Cells(PremLig, col).Resize(6))
      If lig > PremLig + 5 Then Exit For 'maximum 6 entrées
      Feuil1.Cells(lig, col) = tablo(i, col - 2)
      Feuil1.Cells(lig, col + 2) = tablo(i, col)
    End If
  Next
Next

2) Pour les Techniques de base il suffisait d'indiquer dans UserForm_Initialize :

PremLig = 36

Fichier (7).

Et comme j'ai de la suite dans les idées QUID de mon post #41 (et aussi #40) ???

A+

 

[titoffe60]

Re : lien de plusieurs CheckBox vers cellule

Bonjour

Vous remercie c 'est nickel pour la macro dans USF

Pour intégrer les techniques de base au prévisionnel pas de soucie je l'avais fais mais c'est par rapport au post41
Il faudrait que ce code prenne en compte mes 20 fiches Technique de base merci
A+

 

[job75]

Re : lien de plusieurs CheckBox vers cellule

Re,

Pour intégrer les techniques de base au prévisionnel pas de soucie je l'avais fais mais c'est par rapport au post41
Il faudrait que ce code prenne en compte mes 20 fiches Technique de base

Dans la macro Quantité de la feuille Commandes ADR il suffisait de remplacer la ligne 35 par la ligne 41 :

For i = 1 To ub
  If Worksheets(i).[C2].Text <> "" Then
    If Not Feuil1.[C6:G41].Find(Worksheets(i).[C2].Text, , xlValues, xlWhole) _
      Is Nothing Then tablo(i, 1) = True
    If Not Feuil1.[I6:P41].Find(Worksheets(i).[C2].Text) _
      Is Nothing Then tablo(i, 2) = True
  End If
Next

Fichier (8).

Je vais finir par m'énerver : QUID du temps de calcul avec la macro du post #41 ???

A+

 

[titoffe60]

Re : lien de plusieurs CheckBox vers cellule

Bonjour

c'est bien en cliquant sur like qu on laisse un petit coeur c'est ce que vous vouliez car tout ce que j'avais trouver c'est des étoiles pour noter?
desoler n'avais pas vu ce petit lien

encore merci et vous énervez pas

A+

 

[titoffe60]

Re : lien de plusieurs CheckBox vers cellule

Voulais vous demandez quand je fais une copie de ma feuille de commande il m'importe les macros mais quand je clique sur l'onglet il
me dit erreur de compilation , variable non définie
et l'erreur se trouve dans le code

Private Sub Worksheet_Activate()
If Not MAJ Then MAJ = True: flag = True: Quantité: flag = False
End Sub

Pouvez vous m'aider merci
A+

 

[job75]

Re : lien de plusieurs CheckBox vers cellule

Je vais finir par m'énerver : QUID du temps de calcul avec la macro du post #41 ???

Puisque vous ne voulez rien entendre, c'est probablement la dernière fois que je vous aide 😡

Avec Option Explicit toutes les variables doivent être définies.

NbLignes, PremLig, flag, MAJ sont des variables Public définies dans Module1.

A+

 

[titoffe60]

Re : lien de plusieurs CheckBox vers cellule

Excuser moi quand vous comprenez pas ce que je vous écris je vous reformule
et moi aussi ça m'énerve de ne pas savoir ou et quoi faire!!!!!!!!!!!!!!!
que dois je faire et ou
a+

 

[job75]

Re : lien de plusieurs CheckBox vers cellule

Re,

Je parle pourtant français.

Dans vos posts #36 et #38 vous indiquiez que le calcul sur la feuille Commandes ADR prenait beaucoup de temps.

Alors je vous demande pour la Nième et dernière fois quelle est maintenant la durée du calcul avec la macro du post #41 installée sur votre fichier réel.

A+

 

[titoffe60]

Re : lien de plusieurs CheckBox vers cellule

on parle tous les deux français mais par des message cela peut avoir plusieurs signification
et je ne comprenais pas QUID

oui le calcul se fais très bien le temps a peut prés 15 à 30 secondes car j'ai un ordi avec de la rame en conséquence mais si je me mets sur un ordi avec moins de ram cela peut prendre 1 mn voir plus

A+