Masquer les cases à option en masquant les lignes

DoubleZero

XLDnaute Barbatruc

• 6 Janvier 2012

• #2

Re : Masquer les cases à option en masquant les lignes

Bonjour, titom102, le Forum,

Modification car la suggestion était une ânerie 🙁 !


A bientôt 🙂

 

Dernière édition: 6 Janvier 2012

Vote positif 0 Vote négatif

T

titom102

Guest

• 6 Janvier 2012

• #3

Re : Masquer les cases à option en masquant les lignes

Lorsque je l'intègre comme ceci:

Sub Bouton14_QuandClic()
Dim C As Range, text As String
For Each C In Worksheets("Feuil1").Range("D1😀4")
If C = "**" Then C.EntireRow.Hidden = True And ActiveSheet.DrawingObjects.Visible = False
Next
End Sub

Aucune action n'est effectuée, les lignes ne se cachent plus.
J'aimerais pouvoir spécifier les cases à option contenues dans les lignes avec "**", du style C.EntireRow.DrawinObject.visible= False (J'imagine qu'il y a incohérence dans mon code vu qu'en le testant cela ne fonctionne pas)

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 6 Janvier 2012

• #4

Re : Masquer les cases à option en masquant les lignes

Re-bonjour,

Mes excuses, titom102 : j'ai supprimé les codes proposés en #2, m'apercevant... un peu tard, qu'ils étaient inadaptés 🙄 à la demande.

D'autres solutions apparaîtront certainement.

Bon courage et à bientôt 🙂

 

Dernière édition: 6 Janvier 2012

Vote positif 0 Vote négatif

T

titom102

Guest

• 6 Janvier 2012

• #5

Re : Masquer les cases à option en masquant les lignes

Merci quand même pour la tentative 😉

 

Vote positif 0 Vote négatif

T

titom102

Guest

• 6 Janvier 2012

• #6

Re : Masquer les cases à option en masquant les lignes

En attribuant le même nom à chaque case d'une ligne, j'utilise le code suivant:


Sub Bouton14_QuandClic()
Dim groupe As String

Dim C As Range, text As String
For Each C In Worksheets("Feuil1").Range("D1😀4")
If C = "**" Then
groupe = "Case d'option" & C.Row

ActiveSheet.Shapes(groupe).Visible = False
C.EntireRow.Hidden = True
End If

Next
End Sub


Avez-vous une autre solution?

 

Vote positif 0 Vote négatif