Explication d'une macro svp
Résolu/Fermé
barondentraide
-
Modifié par barondentraide le 15/04/2012 à 14:07
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 - 15 avril 2012 à 14:34
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 - 15 avril 2012 à 14:34
A voir également:
- Explication d'une macro svp
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
- Another earth explication fin - Forum Cinéma / Télé
1 réponse
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
Modifié par Mike-31 le 15/04/2012 à 14:34
Modifié par Mike-31 le 15/04/2012 à 14:34
Salut,
Je reconnais ce code et me souviens de la discussion,
Private Sub Worksheet_Change(ByVal Target As Range) (si une valeur change dans la feuille)
If Not Intersect(Target, Range("A1")) Is Nothing Then (limite l'ordre de déclenchement à la cellule A1 (en clair si la valeur change en A1 et uniquement en A1 le code s'exécute)
If [A1] = 1 Then [8:12,23:29].EntireRow.Hidden = True (si en A1 la valeur saisie est 1 on masque les ligne 8 à 12 et 23 à 29)
If [A1] = 2 Then [11:23,37:49].EntireRow.Hidden = True (idem si en A1 la valeur saisie est 2 les lignes 11 à 23 et 37 à 49 se masquent)
If [A1] = 3Then [12:23,38:49].EntireRow.Hidden = True (idem si on saisi 3)
If [A1] = 0 Then [8:49].EntireRow.Hidden = False (si on saisi 0 toutes les lignes s'affichent)
End If
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Je reconnais ce code et me souviens de la discussion,
Private Sub Worksheet_Change(ByVal Target As Range) (si une valeur change dans la feuille)
If Not Intersect(Target, Range("A1")) Is Nothing Then (limite l'ordre de déclenchement à la cellule A1 (en clair si la valeur change en A1 et uniquement en A1 le code s'exécute)
If [A1] = 1 Then [8:12,23:29].EntireRow.Hidden = True (si en A1 la valeur saisie est 1 on masque les ligne 8 à 12 et 23 à 29)
If [A1] = 2 Then [11:23,37:49].EntireRow.Hidden = True (idem si en A1 la valeur saisie est 2 les lignes 11 à 23 et 37 à 49 se masquent)
If [A1] = 3Then [12:23,38:49].EntireRow.Hidden = True (idem si on saisi 3)
If [A1] = 0 Then [8:49].EntireRow.Hidden = False (si on saisi 0 toutes les lignes s'affichent)
End If
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.