Reproduire un code sur toutes les lignes d'une colonne
Mourhad
Messages postés
10
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour
J'essaye de créer un userform avec des case à cocher.
J'ai réussi à mettre en place le code permettant d'enrichir à partir des cases coché la premiere ligne de mon tableau.
toutefois je n'arrive pas à le reproduire sur l'intégralité des lignes de la colonne F et G en l’occurrence.
Vous remerciant par avance pour votre aide.
/////////////////////////////////////////////////////////////////////////////////////
Private Sub UserForm_Initialize() 'Valeurs initiales des cases à cocher
If Range("F2") = "Coché" Then
CheckBox1.Value = True
End If
If Range("G2") = "Coché" Then
CheckBox2.Value = True
End If
End Sub
Private Sub CheckBox1_Click() 'N°1
If CheckBox1.Value = True Then 'Si coché ...
Range("f2") = "Coché"
Else 'Si non coché ...
Range("F2") = "Non coché"
End If
End Sub
Private Sub CheckBox2_Click() 'N°2
If CheckBox2.Value = True Then 'Si coché ...
Range("G2") = "Coché"
Else 'Si non coché ...
Range("G2") = "Non coché"
End If
End Sub
////////////////////////////////////////////////////////////////////////////////////////
J'essaye de créer un userform avec des case à cocher.
J'ai réussi à mettre en place le code permettant d'enrichir à partir des cases coché la premiere ligne de mon tableau.
toutefois je n'arrive pas à le reproduire sur l'intégralité des lignes de la colonne F et G en l’occurrence.
Vous remerciant par avance pour votre aide.
/////////////////////////////////////////////////////////////////////////////////////
Private Sub UserForm_Initialize() 'Valeurs initiales des cases à cocher
If Range("F2") = "Coché" Then
CheckBox1.Value = True
End If
If Range("G2") = "Coché" Then
CheckBox2.Value = True
End If
End Sub
Private Sub CheckBox1_Click() 'N°1
If CheckBox1.Value = True Then 'Si coché ...
Range("f2") = "Coché"
Else 'Si non coché ...
Range("F2") = "Non coché"
End If
End Sub
Private Sub CheckBox2_Click() 'N°2
If CheckBox2.Value = True Then 'Si coché ...
Range("G2") = "Coché"
Else 'Si non coché ...
Range("G2") = "Non coché"
End If
End Sub
////////////////////////////////////////////////////////////////////////////////////////
3 réponses
-
Bonjour,
toutefois je n'arrive pas à le reproduire sur l'intégralité des lignes de la colonne F et G en l’occurrence.
Vous pouvez donner un peu plus d'explications ????????????????? -
Bonjour à vous et merci pour votre prompt réponse.
Dans mon useform j'ai créer 2 checkbox lorsque celle ci sont cochées ( ou non ) cela alimente 2 cellues la f2 et la g2.
Malheureusement lorsque j'appel un autre client avec ma combobox le client de la ligne 3 par exemple et bien malheureusement si je coche ou je décoche cela modifiera f2et g2(le client 1)
Je souhaiterai avoir la fonctionnalités pour tout mes client et pas seulement le premier.
Bien à vous. -
Re,
Un exemple avec memorisation par VRAI/FAUX plutot que "Coché"/"Non Coché"
Pour la ligne je parts du .ListIndex de la combobx1+2, donc a vous d'adapter en fonction:
https://www.cjoint.com/c/FFnotLmXrMf-
-
-
Bonjour
Tout d'abord je tiens à vous présenter mes excuses pour le délai de réponses.
Le premiere partie du code fonctionne nickel
:
Private Sub CheckBox1_Click()
If ComboBox1.ListIndex <> -1 Then
Worksheets("données").Range("F" & ComboBox1.ListIndex + 2) = CheckBox1
End If
End Sub
Private Sub CheckBox2_Click()
Worksheets("données").Range("G" & ComboBox1.ListIndex + 2) = CheckBox2
End Sub
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex <> -1 And ComboBox1.Text <> "" Then
With Worksheets("données")
CheckBox1 = .Range("F" & ComboBox1.ListIndex + 2)
CheckBox2 = .Range("G" & ComboBox1.ListIndex + 2)
End With
End If
End Sub
/////////////////////
par contre la partie reinitialisation ne fonctionne pas ,
et lorsque je ne la supprime pas j'obtiens le message suivant :
erreur d'execution permission 70.
bien à vous -
-
-
