Correction code VBA

Question

J'ai 4 boutons a cochet dans mon userforme, pourriez-vous me corriger mon code de manière que: si bouton à cochet 'piscines_ts est vrai =1 que les 3 autres soit faux =0 ou si'piscines_s est vrai =1 les 3 autres soit faux =0 et ainssi de suite. merci de votre aide Gérard extrait de mon code ou je ne sais pas adapter le ou If Piscines_TS .Value = True Then Sheets("données").Range("h4").Value = 1 Else Sheets("données").Range("i4:k4").Value = 0 Else If Piscines_S .Value = True Then Sheets("données").Range("i4").Value = 1 Else Sheets("données").Range("h4,j4,k4").Value = 0 End If If Piscines_PS .Value = True Then Sheets("données").Range("j4").Value = 1 Else Sheets("données").Range("h4,i4,k4").Value = 0 End If If Piscines_D .Value = True Then Sheets("données").Range("k4").Value = 1 Else Sheets("données").Range("h4,i4,j4").Value = 0 End If...

OncleBarney · Answer

Il y a certainement une meilleur solution... En attendant que Dan, Myta ou l'un des pro mettent le nez dans ton code, voici ce que je propose (une solution que tu aurais trouvé en peu de temps, j'ai commencé le vba il y a 1 moi^^) A te lire...

Nad-Dan · Answer

Pas facile sans voir le fichier. Hormi le début de ton code à corriger, je n'y vois pas pb. If Piscines_TS.Value = True Then Sheets("données").Range("h4").Value = 1 Else Sheets("données").Range("i4:k4").Value = 0 End If .... Amicalement pour onclebarney... -&gt; Dan et pas Nad Edit Dan : Ma première proposition n'est pas bonne je pense. Le code corrigé : With Sheets("données") If Piscines_TS.Value = True Then .Range("h4").Value = 1 .Range("i4:k4").Value = 0 End If If Piscines_S.Value = True Then .Range("i4").Value = 1 .Range("h4,j4,k4").Value = 0 End If If Piscines_PS.Value = True Then .Range("j4").Value = 1 .Range("h4,i4,k4").Value = 0 End If If Piscines_D.Value = True Then .Range("k4").Value = 1 .Range("h4,i4,j4").Value = 0 End If End With C'est cela que tu veux ? Dan...

Myta35 · Answer

Réponse inutile.... Mauvaise lecture de la question Mytå...