Débutante en vba excel Help!!!
Résolu/Fermé
titepestounette
Messages postés
23
Date d'inscription
lundi 23 novembre 2009
Statut
Membre
Dernière intervention
26 novembre 2009
-
23 nov. 2009 à 18:26
goomis95 Messages postés 39 Date d'inscription mardi 3 novembre 2009 Statut Membre Dernière intervention 3 décembre 2009 - 26 nov. 2009 à 17:39
goomis95 Messages postés 39 Date d'inscription mardi 3 novembre 2009 Statut Membre Dernière intervention 3 décembre 2009 - 26 nov. 2009 à 17:39
A voir également:
- Débutante en vba excel Help!!!
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
23 réponses
goomis95
Messages postés
39
Date d'inscription
mardi 3 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2009
26 nov. 2009 à 15:23
26 nov. 2009 à 15:23
faut qu'ils soit attachés
titepestounette
Messages postés
23
Date d'inscription
lundi 23 novembre 2009
Statut
Membre
Dernière intervention
26 novembre 2009
26 nov. 2009 à 17:26
26 nov. 2009 à 17:26
voila ce qui fonctionne très bien
Private Sub CommandButton1_Click()
Range("A1,A2") = ""
If CheckBox1 Then Range("A1") = Range("E1") Else Range("A1") = ""
If CheckBox1 = False And CheckBox2 = True Then Range("A1") = Range("E2")
If CheckBox1 = True And CheckBox2 = True Then Range("A1") = Range("E1"): Range("A2") = Range("E2")
If CheckBox1 = False And CheckBox2 = False And CheckBox3 = True Then Range("A1") = Range("E3"): Range("A2") = ""
If CheckBox1 = False And CheckBox2 = True And CheckBox3 = True Then Range("A1") = Range("E1"): Range("A2") = Range("E3")
End Sub
Merci beaucoup pour ta patience
Titepestounette
Private Sub CommandButton1_Click()
Range("A1,A2") = ""
If CheckBox1 Then Range("A1") = Range("E1") Else Range("A1") = ""
If CheckBox1 = False And CheckBox2 = True Then Range("A1") = Range("E2")
If CheckBox1 = True And CheckBox2 = True Then Range("A1") = Range("E1"): Range("A2") = Range("E2")
If CheckBox1 = False And CheckBox2 = False And CheckBox3 = True Then Range("A1") = Range("E3"): Range("A2") = ""
If CheckBox1 = False And CheckBox2 = True And CheckBox3 = True Then Range("A1") = Range("E1"): Range("A2") = Range("E3")
End Sub
Merci beaucoup pour ta patience
Titepestounette
goomis95
Messages postés
39
Date d'inscription
mardi 3 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2009
26 nov. 2009 à 17:39
26 nov. 2009 à 17:39
Si ca marche que demande le peuple ? :)
A+ et bonne chance :)
A+ et bonne chance :)