Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Faire plus court ?

Faire plus court ?

11 réponses
Avatar
EliotNaiss
bonsoir à vous,
dans un tableau (cellules D20:D29), j'ai deux optionbutton (pour Oui et Non)
en face de chaque cellule.
Je teste si le contenu des cellules de D20 jusqu'à D29 est vide, et si c'est
le cas en face de chaque cellule , je rend visible false les 2 optionbutton
correspondants.
J'ai bidouillé ainsi :
If Range("D20").Value = "" Then
OptionButton1.Visible = False
OptionButton2.Visible = False
Else
OptionButton1.Visible = True
OptionButton2.Visible = True
End If
If Range("D21").Value = "" Then
OptionButton3.Visible = False
OptionButton4.Visible = False
Else
OptionButton3.Visible = True
OptionButton4.Visible = True
End If
If Range("D22").Value = "" Then
OptionButton5.Visible = False
OptionButton6.Visible = False
Else
OptionButton5.Visible = True
OptionButton6.Visible = True
End If
If Range("D23").Value = "" Then
OptionButton7.Visible = False
OptionButton8.Visible = False
Else
OptionButton7.Visible = True
OptionButton8.Visible = True
End If
If Range("D24").Value = "" Then
OptionButton9.Visible = False
OptionButton10.Visible = False
Else
OptionButton9.Visible = True
OptionButton10.Visible = True
End If
If Range("D25").Value = "" Then
OptionButton11.Visible = False
OptionButton12.Visible = False
Else
OptionButton11.Visible = True
OptionButton12.Visible = True
End If
If Range("D26").Value = "" Then
OptionButton13.Visible = False
OptionButton14.Visible = False
Else
OptionButton13.Visible = True
OptionButton14.Visible = True
End If
If Range("D27").Value = "" Then
OptionButton15.Visible = False
OptionButton16.Visible = False
Else
OptionButton15.Visible = True
OptionButton16.Visible = True
End If
If Range("D28").Value = "" Then
OptionButton17.Visible = False
OptionButton18.Visible = False
Else
OptionButton17.Visible = True
OptionButton18.Visible = True
End If
If Range("D29").Value = "" Then
OptionButton19.Visible = False
OptionButton20.Visible = False
Else
OptionButton19.Visible = True
OptionButton20.Visible = True
End If

Mais y'a t'y pas plus simple ou plus court et aussi efficace ?
Merci par avance.
Cordialement
Eliot
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
EliotNaiss
Hé ben, je le savais !
C'était faisable !!
Enorme merci à JB (et aux autres pour la tentative)

Cordialement
Eliot


"JB" a écrit dans le message de news:

Bonjour,

Sub AfficeCacheCaseOptions()
For i = 0 To 3
ActiveSheet.OLEObjects(i * 2 + 1).Visible = IIf(Cells(20 + i, 4) "", False, True)
ActiveSheet.OLEObjects(i * 2 + 2).Visible = IIf(Cells(20 + i, 4) "", False, True)
Next i
End Sub

http://cjoint.com/?bjgwqccNNC

Cordialement JB


bonsoir à vous,
dans un tableau (cellules D20:D29), j'ai deux optionbutton (pour Oui et
Non)
en face de chaque cellule.
Je teste si le contenu des cellules de D20 jusqu'à D29 est vide, et si
c'est
le cas en face de chaque cellule , je rend visible false les 2
optionbutton
correspondants.
J'ai bidouillé ainsi :
If Range("D20").Value = "" Then
OptionButton1.Visible = False
OptionButton2.Visible = False
Else
OptionButton1.Visible = True
OptionButton2.Visible = True
End If
If Range("D21").Value = "" Then
OptionButton3.Visible = False
OptionButton4.Visible = False
Else
OptionButton3.Visible = True
OptionButton4.Visible = True
End If
If Range("D22").Value = "" Then
OptionButton5.Visible = False
OptionButton6.Visible = False
Else
OptionButton5.Visible = True
OptionButton6.Visible = True
End If
If Range("D23").Value = "" Then
OptionButton7.Visible = False
OptionButton8.Visible = False
Else
OptionButton7.Visible = True
OptionButton8.Visible = True
End If
If Range("D24").Value = "" Then
OptionButton9.Visible = False
OptionButton10.Visible = False
Else
OptionButton9.Visible = True
OptionButton10.Visible = True
End If
If Range("D25").Value = "" Then
OptionButton11.Visible = False
OptionButton12.Visible = False
Else
OptionButton11.Visible = True
OptionButton12.Visible = True
End If
If Range("D26").Value = "" Then
OptionButton13.Visible = False
OptionButton14.Visible = False
Else
OptionButton13.Visible = True
OptionButton14.Visible = True
End If
If Range("D27").Value = "" Then
OptionButton15.Visible = False
OptionButton16.Visible = False
Else
OptionButton15.Visible = True
OptionButton16.Visible = True
End If
If Range("D28").Value = "" Then
OptionButton17.Visible = False
OptionButton18.Visible = False
Else
OptionButton17.Visible = True
OptionButton18.Visible = True
End If
If Range("D29").Value = "" Then
OptionButton19.Visible = False
OptionButton20.Visible = False
Else
OptionButton19.Visible = True
OptionButton20.Visible = True
End If

Mais y'a t'y pas plus simple ou plus court et aussi efficace ?
Merci par avance.
Cordialement
Eliot


1 2