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
Bonjour,
je débute avec excel vba et je cherche quelque chose que pour vous dois être facile mais bon moi je cherche déjà depuis un moment et je ny arrive pas aidez moi svppp

Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
Sheets("soumission").Select
Range("h8").Value = "197"
Range("B10").Value = "6"
Range("d10").Value = "12"
Range("G37").Value = je veux que la feuil1 cellule g37 = feuil2 cellule s249

merci de votre aide

nina
A voir également:

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
faut qu'ils soit attachés
0
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
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
0
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
Si ca marche que demande le peuple ? :)

A+ et bonne chance :)
0