Afficher masquer ligne lorsqu je clic VbExcel
Fermé
banbiou
Messages postés
70
Date d'inscription
mercredi 6 février 2008
Statut
Membre
Dernière intervention
4 août 2015
-
29 déc. 2008 à 12:47
banbiou Messages postés 70 Date d'inscription mercredi 6 février 2008 Statut Membre Dernière intervention 4 août 2015 - 29 déc. 2008 à 14:49
banbiou Messages postés 70 Date d'inscription mercredi 6 février 2008 Statut Membre Dernière intervention 4 août 2015 - 29 déc. 2008 à 14:49
A voir également:
- Afficher masquer ligne lorsqu je clic VbExcel
- Windows 11 clic droit afficher plus d'options par défaut - Guide
- Aller à la ligne excel - Guide
- Site de vente en ligne particulier - Guide
- Partager photos en ligne - Guide
- Masquer conversation whatsapp - Guide
2 réponses
banbiou
Messages postés
70
Date d'inscription
mercredi 6 février 2008
Statut
Membre
Dernière intervention
4 août 2015
32
29 déc. 2008 à 14:03
29 déc. 2008 à 14:03
Sub Macro1()
'
'
If case1 = True Then
Rows("19").EntireRow.Hidden = True
Rows("20").EntireRow.Hidden = True
ElseIf case1 = False Then
Rows("19:20").Select
Selection.EntireRow.Hidden = False
End If
End Sub
Pourquoi cela ne marche pas..???
'
'
If case1 = True Then
Rows("19").EntireRow.Hidden = True
Rows("20").EntireRow.Hidden = True
ElseIf case1 = False Then
Rows("19:20").Select
Selection.EntireRow.Hidden = False
End If
End Sub
Pourquoi cela ne marche pas..???
banbiou
Messages postés
70
Date d'inscription
mercredi 6 février 2008
Statut
Membre
Dernière intervention
4 août 2015
32
29 déc. 2008 à 14:49
29 déc. 2008 à 14:49
dsl j'ai trouvé après bcp de mal...
Sub macro1()
'
' Macro1 Macro
' Macro enregistrée le 24/12/2008 par Fbernard
'
With bouton1 = Checked
Rows("19:20").EntireRow.Hidden = False
End With
End Sub
Sub macro2()
With bouton2 = Checked
Rows("19:20").EntireRow.Hidden = True
End With
End Sub
les puristes vont me dire que c'était simple... lol.
Sub macro1()
'
' Macro1 Macro
' Macro enregistrée le 24/12/2008 par Fbernard
'
With bouton1 = Checked
Rows("19:20").EntireRow.Hidden = False
End With
End Sub
Sub macro2()
With bouton2 = Checked
Rows("19:20").EntireRow.Hidden = True
End With
End Sub
les puristes vont me dire que c'était simple... lol.