Double Option Button -> Résultat

Bonjour,

Je fait un grand fichier de paramétrage ou j'ai plusieurs options , l'un de ces paramètres est variable selon deux option buttons

Frame 1 .Chevaux

6 CV -> OptionButton11

8 CV -> OptionButton12

10CV -> OptionButton13

12 CV -> OptionButton14

Frame2.Moteur

Diesel -> OptionButton24

Essence -> OptionButton25

Est ce que je peux faire si tel bouton coché et tel bouton coché alors ?

Sub OptionButton25_Click()

If (OptionButton25.Value & Frame1.OptionButton11.Value) = True Then

Frame10.Visible = False

Frame13.Visible = True

End If

End Sub

Merci Beaucoup

Salut King Thanos!

Salut le forum!

Alors

KingThanos a écrit :

Est ce que je peux faire si tel bouton coché et tel bouton coché alors ?

Bien sur que tu peux

Tu t'attaque ici au IfAndOr

Imaginons que tu veux lancer un résultat, uniquement si tes deux options button sont cochés, alors :

If OptionButton25.Value = True And Frame1.OptionButton11.Value = True Then
Frame10.Visible = False
Frame13.Visible = True
End If

Imaginons maitenant que tu veux lancer un résultat, si au moins un de tes deux options button est coché, alors :

If OptionButton25.Value = True Or Frame1.OptionButton11.Value = True Then
Frame10.Visible = False
Frame13.Visible = True
End If

Voilà!

Restant à dispo si tu a des questions

Merci beaucoup !

Un plaisir !

N'hésite pas si tu a d'autre question Mais :

Juice

Effectivement j'ai une autre question, est il possible de créer une ligne ou il est écrit automatiquement ce que je veux par la macro

With ActiveSheet

.Range("A") = "A" & "B" & "C" & "D" & "E"

End With

?

Merci!

Re-

KingThanos a écrit :

est il possible de créer une ligne

Avec (k = numéro de ligne où tu souhaite faire ton insertion) :

Rows(k).Insert

KingThanos a écrit :

ou il est écrit automatiquement ce que je veux

Beaucoup de méthode différente, imaginons que je veux écrire en cellule A1 :

[A1] = "ECRIRE"
Range("A1") = "ECRIRE"
Cells(1, 1) = "ECRIRE"

Que je veux écrire la même chose sur les dix première colonne de la même ligne :

For x = 1 To 10
    Cells(1, x) = "ECRIRE"
Next

Que je veux écrire la même chose dans une plage définie :

Dim cellule, plage As Range
Set plage = Range("A1:C10")
For Each cellule In plage
    cellule.Value = "ECRIRE"
Next cellule

A toi de voir ce que tu veux faire

A dispo!

Je voudrais écrire des choses différentes sur une même ligne,

c’est possible?

Re-

KingThanos a écrit :

Je voudrais écrire des choses différentes sur une même ligne,

c’est possible?

Oui, mais concrètrement qu'est-ce que tu veux faire ?