fredericmaill
Messages postés144Date d'inscriptionmercredi 16 juin 2004StatutMembreDernière intervention22 mars 2006
-
11 déc. 2005 à 15:25
lilo77
Messages postés1Date d'inscriptionmercredi 25 mars 2009StatutMembreDernière intervention 6 juillet 2010
-
6 juil. 2010 à 15:26
Bonjour, je voudrais faire un systheme d'afiche ou maszcage de lignes d'une feuille exel en fonction de 3 bouton radio
voila , par exemple le bouton radio "optionbutton" es activé je voudrais rendre invisible les ligne de 12 a 14 si le ce mem bouton radion ou option button es desactivé alors je veut rendre visible les ligne 12 a 14,
voici le code que j'ai deja realisé mais qui marche pas trop
Private Sub OptionButton1_Click()
If OptionButton1 = True Then
Rows("10:10").Select
Selection.EntireRow.Hidden = True
Rows("12:12").Select
Selection.EntireRow.Hidden = True
End If
Range("c12").Select
If OptionButton1 = False Then
Rows("10:10").Select
Selection.EntireRow.Hidden = False
Rows("12:12").Select
Selection.EntireRow.Hidden = False
End If
Range("c12").Select
End Sub
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 11 déc. 2005 à 17:26
Bonsoir,
Celà ne peut fonctionner si tu mets les deux procédures dans le code d'un seul Optionbutton, pour faire ce que tu veux, à ta place, j'utiliserais un CheckBox.
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Rows("12:14").Select
Selection.EntireRow.Hidden = True
Else
Selection.EntireRow.Hidden = False
End If
Range("C12").Select
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
fredericmaill
Messages postés144Date d'inscriptionmercredi 16 juin 2004StatutMembreDernière intervention22 mars 2006 11 déc. 2005 à 19:34
escusez-moi encore mais ca marche pas trop avec ce que je veut faire !! voila j'ai 3 chek box desormais
une chek box selection fais disparaite 2 plages de lignes et lorsque qu'elle es selectionné et elle les fais reaparaitre lorsquelle es deselectioné.
mais ca marche pas !
voivi le code :
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Rows("32:40").Select
Rows("88:99").Select
Selection.EntireRow.Hidden = True
Else
Rows("32:40").Select
Rows("88:99").Select
Selection.EntireRow.Hidden = False
End If
Range("C12").Select
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
Rows("59:70").Select
Rows("88:99").Select
Selection.EntireRow.Hidden = True
Else
Rows("59:70").Select
Rows("88:99").Select
Selection.EntireRow.Hidden = False
End If
Range("C12").Select
End Sub
Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
Rows("32:40").Select
Rows("59:70").Select
Selection.EntireRow.Hidden = True
Else
Rows("32:40").Select
Rows("59:70").Select
Selection.EntireRow.Hidden = False
End If
Range("C12").Select
End Sub
fredericmaill
Messages postés144Date d'inscriptionmercredi 16 juin 2004StatutMembreDernière intervention22 mars 2006 12 déc. 2005 à 10:16
valtrase, ton code permet de cacjer les 2 plage de lignes de celules, mais lorsque la selection ce fait sur un autre CheckBox
il faut rendre visible ce que j'avais cacher et cacher les 2 autres zone.
en fait j'ai 3 zone je veut en fonction du chek box coché cacher les 2 plage de ligne qui ne me serve pas et lorsque k'utilisateur selectionne une autre chek box que les plage d lignes soient reaficher et quye je recahe les 2 qui ne me serve a rien et ainssi de suite ...
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 20223 15 déc. 2005 à 23:38
Re,
Désolé pour le retard mais le boulot ........
Bon je pense avoir compris ce que tu veux. Dans tes plages tu as des communs donc en fait ça simplifie le code.
si tu veux faire un choix entre les plages :
32:40 88:89
et
59:70 88:89
et
32:40 59:70
alors ce code devrais te convenir bien sur tu repasses avec des options bouton
Private Sub OptionButton1_Click()
Rows("32:40").EntireRow.Hidden = OptionButton1
Rows("88:89").EntireRow.Hidden = OptionButton1
Rows("59:70").EntireRow.Hidden = Not (OptionButton1)
End Sub
Private Sub OptionButton2_Click()
Rows("32:40").EntireRow.Hidden = Not (OptionButton2)
Rows("88:89").EntireRow.Hidden = OptionButton2
Rows("59:70").EntireRow.Hidden = OptionButton2
End Sub
Private Sub OptionButton3_Click()
Rows("32:40").EntireRow.Hidden = OptionButton3
Rows("88:89").EntireRow.Hidden = Not (OptionButton3)
Rows("59:70").EntireRow.Hidden = OptionButton3
End Sub
lilo77
Messages postés1Date d'inscriptionmercredi 25 mars 2009StatutMembreDernière intervention 6 juillet 2010 6 juil. 2010 à 15:26
bonjour à tous,
Je suis novice en vb et j'ai un problème avec les radios button
Que je vous explique jai 2 formulaire tt deux comportant chacun 2 bouton chacun et je dois comparer 2
résultats
form 1 = test1 test2
form2 = erreur1 erreur2
Le but c'est de choisir dans un premier temps un bouton dans la form1 donc
le test exemple test1 et ensuite celui dans la form2 avec erreur1
le truc est quil doit me gardé en mémoire le bouton de la form2 ==> cela fonctionne
car quand j'affiche la form c ok le bouton ets bien checké (utiliser avec option2.enabled = true)
Le problème c'est quand je dois rechoisir un système d'exploitation afin de faire une comparaison
il me redonne la form2 avec le bouton valider mais ne m'exécute pas le traitement a faire
alors pour cela jsui obliger d'utiliser un radio buton qui me permet de recocher le
radio button erreur1
alors je voudrais savoir si il ya po moyen de garder activé le bouton pour quil fasse le traitement
en ne demandant que de sélectionner un radio button sur la form1 et non les 2