Re : Si telle cellule est vide, alors masquer la ligne
RE,
merci pour les info, pas de pb pour les boutons, ils fonctionnent, mais comme j'ai plusieurs macro de ce type je privilégie les cases à cocher qui divise par deux mon nombre de boutons par deux... on s'y retrouve plus,
en outre, MDLShob est le nom de ma case à cocher et cette macro est calquée sur une qui fonctionne bien sur plusieurs feuilles et qui est la suivante
elle masque les collones):
Private Sub MDCShob_Click()
Application.ScreenUpdating = False
If MDCShob.Value = True Then
' ----- Masquage/démasquage des colonnes si somme nulle
Dim PlageTest As Range
Dim Colonne As Range
Dim PosCol As Long
Set PlageTest = Range("PlageDonneesShob")
For PosCol = 1 To PlageTest.Columns.Count Step 2
Set Colonne = PlageTest.Columns(PosCol)
If Application.WorksheetFunction.Sum(Colonne) = 0 And Application.WorksheetFunction.Sum(Colonne.Offset(0, 1)) = 0 Then
Range("PlageDonneesShob").Columns(PosCol).EntireColumn.Hidden = True
Range("PlageDonneesShob").Columns(PosCol + 1).EntireColumn.Hidden = True
Else
Range("PlageDonneesShob").Columns(PosCol).EntireColumn.Hidden = False
Range("PlageDonneesShob").Columns(PosCol + 1).EntireColumn.Hidden = False
End If
Next PosCol
ElseIf MDCShob = False Then
' ----- Démasquage de toutes les colonnes de la zone
Range("PlageDonneesShob").EntireColumn.Hidden = False
End If
Range("A1").Select
Application.ScreenUpdating = True
End Sub
J'espère être clair..merci pour tout.