variable public depuis bouton option

**zek474** · 17/04/2021, 10h58

Bonjour,
j'ai créé 4 boutons radios (que je n'ai pas groupés, peut-être le faut-il ?) dans Mafeuille
les macros commandant chaque bouton se trouve DONC dans VBA projet\microsoft excel objet\feuil1.
j'ai défini la variable numcolonne comme public, comme vu ci dessous ET en tête de module ( bien à l'extérieur d'une macro )

Je souhaite en fait que lorsque je clique sur un bouton se trouvant dans feuil1(MAfeuille), la macro se trouvant elle dans un module s'éxécute avec la variable numcolonne.
2 ème question , comment récupérer la valeur de la cellule se trouvant sur la ligne 3 mais avec un index de colonne variable(numcolonne) ? range(numcolonne & "3")

code se trouvant dans VBA projet\microsoft excel objet\feuil1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Public numcolonne As Integer
 
Sub OptionButton1_Click()
If OptionButton1.Value = True Then  ' l'age choisi est 3-6 ans
      numcolonne = 19
End If
 
End Sub
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then  ' l'age choisi est 3-6 ans
      numcolonne = 20
End If
 
End Sub
Private Sub OptionButton3_Click()
If OptionButton3.Value = True Then  ' l'age choisi est 3-6 ans
      numcolonne = 21
End If
 
End Sub
Private Sub OptionButton4_Click()
If OptionButton4.Value = True Then  ' l'age choisi est 3-6 ans
      numcolonne = 22
End If
 
End Sub

merci

Invité · 17/04/2021, 13h56

Envoyé par zek474

Bonjour,

Pour vous répondre, quel est le code de votre procédure dans le module standard que les clics vont exécuter ?

**zek474** · 17/04/2021, 15h54

Envoyé par Eric KERGRESSE

Bonjour,

Pour vous répondre, quel est le code de votre procédure dans le module standard que les clics vont exécuter ?

voici, Merci .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 For ligne = 8 To 11
aliment_A_Chercher = Sheets("GRAMMAGE").Range("H" & ligne).Value
 
    'Critere
Sheets("données").Range("J3").Value = aliment_A_Chercher
 
            Sheets("données").Select
            Range("A1:G1000").AdvancedFilter _
                     Action:=xlFilterCopy, _
                     CriteriaRange:=Range("H2:N3"), _
                     CopyToRange:=Range("P2:V2"), _
                     Unique:=False
 
           gram = Cells(3, numcolonne).Value
 
 
 
    Sheets("GRAMMAGE").Select
    Sheets("GRAMMAGE").Range("H" & ligne).Offset(0, 1).Select
    Selection.Value = gram
    'ligne = ligne + 1
 
            Next

Invité · 17/04/2021, 16h01

Envoyé par zek474

Comment s'appelle votre procédure ?

**zek474** · 17/04/2021, 16h03

Envoyé par Eric KERGRESSE

Comment s'appelle votre procédure ?

elle s'appelle grammage.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public numcolonne As Integer
 
Sub grammage(age)
Dim gram As Single
Dim aliment_A_Chercher As String
Dim Critere As String
 
Application.ScreenUpdating = False
            For ligne = 8 To 11
aliment_A_Chercher = Sheets("GRAMMAGE").Range("H" & ligne).Value
 
    'Critere
Sheets("données").Range("J3").Value = aliment_A_Chercher

Invité · 17/04/2021, 16h07

Envoyé par zek474

Vous pouvez déjà supprimer la déclaration de numcolonne dans votre module d'onglet (cf ligne 1 de votre code en # 1)

Invité · 17/04/2021, 16h30

Envoyé par zek474

Dans le module de votre onglet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Option Explicit
 
 
Private Sub OptionButton1_Click()
 
    If OptionButton1.Value = True Then Grammage 19  ' l'age choisi est 3-6 ans
 
End Sub
Private Sub OptionButton2_Click()
   If OptionButton2.Value = True Then Grammage 20 ' l'age choisi est 3-6 ans
 End Sub
 
Private Sub OptionButton3_Click()
   If OptionButton3.Value = True Then Grammage 21  ' l'age choisi est 3-6 ans
End Sub
 
Private Sub OptionButton4_Click()
   If OptionButton4.Value = True Then Grammage 21  ' l'age choisi est 3-6 ans
End Sub

Dans votre module standard :
Nb : Il n'y a plus de déclaration Publique à faire pour numcolonne, car la valeur est passée par paramètres dans votre procédure Grammage.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Option Explicit
 
Sub Grammage(ByVal NumColonne As Integer)
 
Dim Ligne As Integer
Dim ShGrammage As Worksheet, ShDonnees As Worksheet
 
    Set ShGrammage = Sheets("GRAMMAGE"): Set ShDonnees = Sheets("données")
    For Ligne = 8 To 11
        With ShDonnees
             .Range("J3") = ShGrammage.Range("H" & Ligne)
             .Range("A1:G1000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range("H2:N3"), CopyToRange:=.Range("P2:V2"), Unique:=False
             ShGrammage.Range("H" & Ligne).Offset(0, 1) = .Cells(3, NumColonne).Value
        End With
    Next
   Set ShGrammage = Nothing:  Set ShDonnees = Sheets("données")
 
End Sub

Pas testée, possible qu'il y ait une erreur.

**zek474** · 17/04/2021, 16h51

je ne vois pas comment affecter chaque bouton radio à sa macro ex: Private Sub OptionButton1_Click()

Invité · 17/04/2021, 16h56

Envoyé par zek474

Vos macros sont lancées avec le code que je vous ai indiqué dans mon dernier mail. Ex: Si clic sur OptionButton1 alors la macro Grammage est lancée avec la valeur 19.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 Option Explicit
 
Private Sub OptionButton1_Click()
 
    If OptionButton1.Value = True Then Grammage 19 
 
End Sub

**zek474** · 17/04/2021, 17h03

Nom : Image 001.png
Affichages : 176
Taille : 82,3 Ko

un clic droit dans le bouton radio active X \ visualiser le code vous permet de controler que j'ai bien mis votre code dans la page grammage( là ou le clic droit du bouton radio me renvoie )

Invité · 17/04/2021, 17h06

Envoyé par zek474

Quel est le problème ?
Si vous avez une valeur d'erreur, indiquez là.

**zek474** · 17/04/2021, 17h15

euh attendez laissez moi un moment, j'ai déplacé des cellules (design!) , il faut que j'adapte votre code,
je reviens vers vous pour vous dire si le code marche, merci

Invité · 17/04/2021, 17h18

Envoyé par zek474

Changez le nom de la macro GRAMMAGE en raison de l'homonymie avec le nom de l'onglet.
Si vous avez toujours de problèmes, mettez en ligne une version non confidentielle de votre fichier, je regarderai demain.

**zek474** · 17/04/2021, 17h55

alors :

si vous me permettez, je vous joins mon tableau CPQ.xlsm

le menu déroulant de recherche "semi-automatique" d'un aliment permet de choisir un aliment dont on veut connaitre le grammage en fonction de son utilisation (HorsOeuvre ou plat par ex) mais aussi en fonction de la tranche d'age a laquelle il s'adresse.

ce menu déroulant fonctionne bien ( il permet le choix de l'aliment qui s'inscrit dans le tableau) mais une erreur ). Nom : Image 002.png
Affichages : 158
Taille : 54,3 Ko

Nom : Image 002.png
Affichages : 158
Taille : 54,3 Ko

sur la ligne coin haut gauche de la fenêtre erreur

en revanche , quand on interrompt la macro et que l'on teste les boutons radios, les boutons renvoient bien les bonnes valeurs .

**zek474** · 17/04/2021, 18h27

peut être une piste :

mon bouton aliment recherché lance la macro grammage:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub ComboBox1_click()
 
'ActiveSheet.Unprotect
   ActiveCell = Me.ComboBox1
   Unload Me
'ActiveSheet.Protect
Grammage (age)
End Sub

dans la macro grammage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShGrammage.Range("E" & Ligne).Offset(0, 1) = .Cells(3, numcolonne).Value

Numcolonne =0 !!

quand on remplace Numcolonne par 19 par ex, la macro fonctionne, la variable Numcolonne n'est pas reconnue?

**wheel** · 17/04/2021, 20h22

Puisque tu travailles avec les radio box qui sont exclusifs dont un seul est a la valeur True tu peux utiliser if else et lire l'age directement dans la fonction Grammage ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Grammage()
 
Dim Ligne As Integer, numcolonne As Integer
Dim ShGrammage As Worksheet, ShDonnees As Worksheet
    If Feuil1.OptionButton1 Then
      numcolonne = 19
    ElseIf Feuil1.OptionButton2 Then
      numcolonne = 20
    ElseIf Feuil1.OptionButton3 Then
      numcolonne = 21
    Else  ' par defaut
      numcolonne = 22
    End If
    Set ShGrammage = Sheets("GRAMMAGE"): Set ShDonnees = Sheets("données") 'affecte les variables worsheet
    For Ligne = 8 To 11
        With ShDonnees
             .Range("J3") = ShGrammage.Range("E" & Ligne)
             .Range("A1:G1000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range("H2:N3"), CopyToRange:=.Range("P2:V2"), Unique:=False
 
             ShGrammage.Range("E" & Ligne).Offset(0, 1) = .Cells(3, numcolonne).Value
        End With
    Next
   Set ShGrammage = Nothing:  Set ShDonnees = Sheets("données")  ' là je comprends pas
 
End Sub

Ajuste le code des boutons ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub OptionButton1_Click()
    Grammage   ' l'age choisi est 3-6 ans
End Sub
Private Sub OptionButton2_Click()
    Grammage
End Sub
 
Private Sub OptionButton3_Click()
    Grammage   ' l'age choisi est 14-16 ans
End Sub
 
Private Sub OptionButton4_Click()
   Grammage  ' l'age choisi est 15-17 ans
End Sub

..

**zek474** · 17/04/2021, 20h54

votre code pour les boutons radio m’intéresse vraiment beaucoup mais toujours un problème quand on veut changer d'aliment

RAPPEL, mon bouton aliment recherché lance in fine la macro ( que j'ai renommer Grammer)

ci joint le fichier adapté ( NB la macro grammer se trouve dans le module 3) Nom : Image 003.png
Affichages : 147
Taille : 97,3 Ko