A voir également:
- Copier la valeur d'1 case si elle est cochée
- Comment copier une vidéo youtube - Guide
- Aller à la ligne dans une case excel - Guide
- Super copier - Télécharger - Gestion de fichiers
- Copier texte pdf - Guide
- Copier disque dur - Guide
1 réponse
Bonjour
Alors voila je n'ai pas trop la solution a votre problème mais ce seait beaucoup plus simple en créant un "userform" ( un formulaire)
Alors il suffit de suivre a la lettre ce qui va vous être expliqué et tous marchera le mieux
Cliquez sur Outil puis sur Macro puis sur Visual Basic Editor
Ensuite cliquez sur insertion ( en haut ) puis sur userform
Une boîte a outil va apparître automatiquement Cliquez sur les case a cocher puis inserer sur le userform (en ajouter trois )
Double Clique sur une des cases a cocher (une feuille blanche apparaît avec ça décrit )
Private Sub CheckBox1_Click()
End Sub
Selectionner tous et copier ça dessus
Private Sub CheckBox1_Click() 'La case a cocher1
If Controls("CheckBox1").Value = True Then 'si la case a cocher 1 est true = cocher then = alors
[A1] = " " & Controls("CheckBox1").Caption ' A1 = caption = nom de la checkbox1 = case a cocher 1
End If
End Sub
Private Sub CheckBox2_Click() 'La case a cocher2
If Controls("CheckBox2").Value = True Then 'si la case a cocher 2 est true = cocher then = alors
[A2] = " " & Controls("CheckBox2").Caption ' A2 = caption = nom de la checkbox2 = case a cocher 2
End If
End Sub
Private Sub CheckBox3_Click() 'La case a cocher3
If Controls("CheckBox3").Value = True Then 'si la case a cocher 3 est true = cocher then = alors
[A3] = " " & Controls("CheckBox3").Caption ' A3 = caption = nom de la checkbox3 = case a cocher 3
End If
End Sub
Puis enregistrer
Aller sur la feuille
Appuyer sur outil puis sur personnaliser puis cocher "Boîte a outils Controls"
Une nouvelle boîte s'aafiche cliquez sur bouton de commande
Double clique et écrire ça
Private Sub CommandButton1_Click()
UserForm1.Show ' Show = Ouverture de l'userform1
End Sub
et quittez cliquez sur le bouton avec l'equerre verte
puis un clique sur le bouton qui vient d'être installer
Pour modifier le nom du nouveau bouton cliquez sur le bouton avec l'équerre verte et clique droit sur le bouton puis propriétés dans la rubrique caption écrire le nom du bouton que vous voulez
Voila pour modifier le nom alfa, beta et gama
Alt +F11
Clique sur l'userform 1 et modifier le nom des case a cocher
Voila
si il y a problème contactez moi
A +
Alors voila je n'ai pas trop la solution a votre problème mais ce seait beaucoup plus simple en créant un "userform" ( un formulaire)
Alors il suffit de suivre a la lettre ce qui va vous être expliqué et tous marchera le mieux
Cliquez sur Outil puis sur Macro puis sur Visual Basic Editor
Ensuite cliquez sur insertion ( en haut ) puis sur userform
Une boîte a outil va apparître automatiquement Cliquez sur les case a cocher puis inserer sur le userform (en ajouter trois )
Double Clique sur une des cases a cocher (une feuille blanche apparaît avec ça décrit )
Private Sub CheckBox1_Click()
End Sub
Selectionner tous et copier ça dessus
Private Sub CheckBox1_Click() 'La case a cocher1
If Controls("CheckBox1").Value = True Then 'si la case a cocher 1 est true = cocher then = alors
[A1] = " " & Controls("CheckBox1").Caption ' A1 = caption = nom de la checkbox1 = case a cocher 1
End If
End Sub
Private Sub CheckBox2_Click() 'La case a cocher2
If Controls("CheckBox2").Value = True Then 'si la case a cocher 2 est true = cocher then = alors
[A2] = " " & Controls("CheckBox2").Caption ' A2 = caption = nom de la checkbox2 = case a cocher 2
End If
End Sub
Private Sub CheckBox3_Click() 'La case a cocher3
If Controls("CheckBox3").Value = True Then 'si la case a cocher 3 est true = cocher then = alors
[A3] = " " & Controls("CheckBox3").Caption ' A3 = caption = nom de la checkbox3 = case a cocher 3
End If
End Sub
Puis enregistrer
Aller sur la feuille
Appuyer sur outil puis sur personnaliser puis cocher "Boîte a outils Controls"
Une nouvelle boîte s'aafiche cliquez sur bouton de commande
Double clique et écrire ça
Private Sub CommandButton1_Click()
UserForm1.Show ' Show = Ouverture de l'userform1
End Sub
et quittez cliquez sur le bouton avec l'equerre verte
puis un clique sur le bouton qui vient d'être installer
Pour modifier le nom du nouveau bouton cliquez sur le bouton avec l'équerre verte et clique droit sur le bouton puis propriétés dans la rubrique caption écrire le nom du bouton que vous voulez
Voila pour modifier le nom alfa, beta et gama
Alt +F11
Clique sur l'userform 1 et modifier le nom des case a cocher
Voila
si il y a problème contactez moi
A +