Programmer une condition
Mag
-
Mag -
Mag -
Bonjour,
Je voudrait masquer une colonne si la première cellule de la colone contient le texte "Masquer".
J'ai essayer de la façon suivante mais en fait il me masque toutes les colonnes, même celles où il n'y a pas ce texte :
If (C1 = masquer) Then
Columns("C:C").Select
Selection.EntireColumn.Hidden = True
End If
Quelqu'un peux-t-il m'aider ?
Merci
Je voudrait masquer une colonne si la première cellule de la colone contient le texte "Masquer".
J'ai essayer de la façon suivante mais en fait il me masque toutes les colonnes, même celles où il n'y a pas ce texte :
If (C1 = masquer) Then
Columns("C:C").Select
Selection.EntireColumn.Hidden = True
End If
Quelqu'un peux-t-il m'aider ?
Merci
A voir également:
- Programmer une condition
- Excel cellule couleur si condition texte - Guide
- Programmer sms - Guide
- Programmer mail gmail - Guide
- Programmer un reel instagram - Forum Facebook
- Apprendre a programmer - Guide
2 réponses
Salut,
Essayes comme ca :
masquer est une chaîne de caractères donc tu dois mettre des cotes.
Lucas
Essayes comme ca :
If (C1 = "masquer") Then
Columns("C:C").Select
Selection.EntireColumn.Hidden = True
End If
masquer est une chaîne de caractères donc tu dois mettre des cotes.
Lucas
Mag
J'avais également essayer cette solution mais ce n'est pas la bonne.
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If [C1] = "masquer" Then
Columns("C:C").Select
Selection.EntireColumn.Hidden = True
Else: Selection.EntireColumn.Hidden = False
End If
End Sub
Bonne journée.
Private Sub Worksheet_Change(ByVal Target As Range)
If [C1] = "masquer" Then
Columns("C:C").Select
Selection.EntireColumn.Hidden = True
Else: Selection.EntireColumn.Hidden = False
End If
End Sub
Bonne journée.
Voici la macro complète (test sur 2 colonnes):
Sub test()
Private Sub Worksheet_Change(ByVal Target As Range)
If [C1] = "masquer" Then
Columns("C:C").Select
Selection.EntireColumn.Hidden = True
Else: Selection.EntireColumn.Hidden = False
End If
If [D1] = "masquer" Then
Columns("D:D").Select
Selection.EntireColumn.Hidden = True
Else: Selection.EntireColumn.Hidden = False
End If
End Sub
VBA attend un End Sub après Sub test () ???
Sub test()
Private Sub Worksheet_Change(ByVal Target As Range)
If [C1] = "masquer" Then
Columns("C:C").Select
Selection.EntireColumn.Hidden = True
Else: Selection.EntireColumn.Hidden = False
End If
If [D1] = "masquer" Then
Columns("D:D").Select
Selection.EntireColumn.Hidden = True
Else: Selection.EntireColumn.Hidden = False
End If
End Sub
VBA attend un End Sub après Sub test () ???
Le code est à copier dans le module de feuille sans Sub test()
Private Sub Worksheet_Change(ByVal Target As Range)
If [C1] = "masquer" Then
Columns("C:C").Select
Selection.EntireColumn.Hidden = True
Else: Columns("C:C").Select
Selection.EntireColumn.Hidden = False
End If
If [D1] = "masquer" Then
Columns("D:D").Select
Selection.EntireColumn.Hidden = True
Else: Columns("D:D").Select
Selection.EntireColumn.Hidden = False
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If [C1] = "masquer" Then
Columns("C:C").Select
Selection.EntireColumn.Hidden = True
Else: Columns("C:C").Select
Selection.EntireColumn.Hidden = False
End If
If [D1] = "masquer" Then
Columns("D:D").Select
Selection.EntireColumn.Hidden = True
Else: Columns("D:D").Select
Selection.EntireColumn.Hidden = False
End If
End Sub
