Vba avec excelRésolu

Question

Bonjour,

- Je cherche comment faut-il faire avec un formulaire quand on a
plusieurs "OptionButton" pour quand on en coche, que celui la ne
s'enl&#232;ve pas quand on clique sur un autre! (j'essaie de m'exprimer au
mieux mais mon probl&#232;me est dur a citer ... d&#233;sol&#233;)

- Deuxiement j'aimerais savoir tout simplement savoir le code pour imprim&#233; une feuille ou une selection a partir d'un bouton.

Molenn · Accepted Answer

Pour ta première question, la réponse est : Tu ne peux pas pour la simple et bonne raison que l'option box est prévue pour fonctionner comme ça, c'est une case de sélection au choix et exclusive.
Pour faire ce que tu veux, il faut que tu utilises des check box.

Pour la 2ème question, le code pour imprimer : Avec l'assistant Macro, j'obtiens :
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Après, tu peux adapter à ton programme sans trop de mal je pense ^^

Molenn

cs_pitros · Answer

Merci pour le code pour imprimer il marche tr&#233;s bien. Bref en faite
j'utilisais des OptionButton car jsavais que c'etait des ".Value" mais
pour les checkbox avec l'aide de excel je trouve pas la bonne
extension... c'est pour ca que j'ai pris les OptionButton donc si on
pourrais me dire quel est la bonne extension . Merci

jpleroisse · Answer

Bonjour,

A la la place de Label1.Caption, tu places le code que tu veux.



Private Sub CheckBox1_Click()

If CheckBox1 = True Then

Label1.Caption = "Bonjour"

Else

Label1.Caption = ""

End If

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

cs_pitros · Answer

Cela marche avec deux checkbox une par exemple
pour une zone rouge ,j'affiche oui autrement rien et  pour une
zone bleue j'affiche oui autrement rien voila le code qui marche ->





If Rzonebleue = True Then


Range("d7") = "oui"

Else: Range("d7") = ""

End If



If Rzonerouge = True Then

Range("c7") = "oui"

Else: Range("c7") = ""

End If



Mais sur le m&#234;me formulaire j'ai d'autre choix a cocher comme une ville
de d&#233;part qui est soit bastia ,ajaccio ou les ile rousse pour qu'il
s'affiche dans une cellule quand on coche dessus mais le probl&#232;me ce
qu'il y a que pour les ile rousse que ca marche. Voila le code que j'ai
mis ->



If Rbastia = True Then

Range("d13") = "Bastia"

Else: Range("d13") = ""

End If



If Rajaccio = True Then

Range("d13") = "Ajaccio"

Else: Range("d13") = ""

End If



If Rilerousse = True Then

Range("d13") = "Ile Rousse"

Else: Range("d13") = ""

End If



Merci de votre aide

Molenn · Answer

Normal, à chaque fois que tu exécutes ton bout de code, il passe sur les 3 conditions, et la dernière écrase tout puisqu'il marquera "vide" à chaque fois que tu mettras autre chose que "Ile Rousse".
Il faut que tu imbriques tes 3 conditions pour que ça fonctionne :
If Rbastia = True Then
     Range("d13") = "Bastia"
     Else: 
     If Rajaccio = True Then
          Range("d13") = "Ajaccio"
          Else:
          If Rilerousse = True Then
              Range("d13") = "Ile Rousse"
              Else:
              Range("d13") = ""
          end if
     end if
End If

Molenn

codea · Answer

Rien ne sert de courir, il faut partir &#224; point.

codea · Answer

mais si on d&#233;coche toutes les cases on reste avec une ville...tu peux pas faire ca... 
il faut mettre des elseif... 
http://www.vbfrance.com/forum.v2.aspx?ID=581092
  Rien ne sert de courir, il faut partir &#224; point.

                        &

codea · Answer

**oops.... d&#233;sol&#233; j'ai rien dit .... 
je viens juste de me r&#233;veiller :) 
.... 

  Rien ne sert de courir, il faut partir &#224; point.

                        &

Vba avec excel

8 réponses

Discussions similaires