vba - formulaireRésolu

Question

[auteurdetail.aspx?ID=596699 ]
                
                

Voila un code qui 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 · Accepted Answer

Hop là, je venais juste d'y répondre dans le premier post. Si j'avions vu le nouveau, j'aurions pas répondu ^^

http://www.vbfrance.com/forum.v2.aspx?ID=581261

codea · Answer

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

codea · Answer

Essaie plutot:
If Rbastia True And Rajaccio False And Rilerousse = False Then
Range("d13") = "Bastia"


ElseIf Rbastia False And Rajaccio True And Rilerousse = False Then
Range("d13") = "Ajaccio"


ElseIf Rbastia False And Rajaccio False And Rilerousse = True Then
Range("d13") = "Ile Rousse"


Else
Range("d13") = ""
End If

Ca devrait r&#233;gler ton probl&#232;me ;o) 

  Rien ne sert de courir, il faut partir &#224; point.

                        &

valtrase · Answer

Puisque tu dois s&#233;lectionner une ville de d&#233;part parmi les trois utilises plut&#244;t des optionsRadio en lieux et place des checkBox. ensuite tu colles ton code dans chaque OptionRadio. c'est plus propre

Private Sub RBastia_Click()
   Range("d13") = "Bastia"
End Sub

Private Sub Rajaccio_Click()
   Range("d13") = "Rajaccio"
End Sub
Private Sub Rilerousse _Click()
   Range("d13") = "Rilerousse "
End Sub

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Vba - formulaire

4 réponses

Discussions similaires