Appliquer une macro sur EXCEL
Résolu/Fermé
Maragua
Messages postés
7
Date d'inscription
lundi 28 avril 2008
Statut
Membre
Dernière intervention
1 août 2009
-
29 avril 2008 à 09:40
Maragua Messages postés 7 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 1 août 2009 - 30 avril 2008 à 11:29
Maragua Messages postés 7 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 1 août 2009 - 30 avril 2008 à 11:29
A voir également:
- Appliquer une macro sur EXCEL
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Calculer une moyenne sur excel - Guide
- Déplacer une colonne excel - Guide
- Si et excel - Guide
4 réponses
g
Messages postés
1262
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
573
29 avril 2008 à 16:37
29 avril 2008 à 16:37
Bonjour,
A mettre dans le module de feuille:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C222") = "Non" Then
Rows("223:238").Select
Selection.EntireRow.Hidden = True
Else
Rows("223:238").Select
Selection.EntireRow.Hidden = False
End If
End Sub
Bonne journée.
A mettre dans le module de feuille:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C222") = "Non" Then
Rows("223:238").Select
Selection.EntireRow.Hidden = True
Else
Rows("223:238").Select
Selection.EntireRow.Hidden = False
End If
End Sub
Bonne journée.
m@rina
Messages postés
21076
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
6 novembre 2024
11 346
30 avril 2008 à 10:12
30 avril 2008 à 10:12
Bonjour,
La macro de g ne fonctionnera pas... En effet, elle se déclenchera à chaque modif de cellule, et non pas seulement à la modif de la cellule c222.
Essaie plutôt ce code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C222")) Is Nothing Then
If Range("C222") = "non" Then
Rows("223:238").EntireRow.Hidden = True
Else
Rows("223:238").EntireRow.Hidden = False
End If
End If
End Sub
à mettre dans le module de la feuille. Si tu ne sais pas faire, tu peux faire un clic droit sur l'onglet de la feuille et choisir visualiser le code... Puis tu colles la macro.
m@rina
La macro de g ne fonctionnera pas... En effet, elle se déclenchera à chaque modif de cellule, et non pas seulement à la modif de la cellule c222.
Essaie plutôt ce code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C222")) Is Nothing Then
If Range("C222") = "non" Then
Rows("223:238").EntireRow.Hidden = True
Else
Rows("223:238").EntireRow.Hidden = False
End If
End If
End Sub
à mettre dans le module de la feuille. Si tu ne sais pas faire, tu peux faire un clic droit sur l'onglet de la feuille et choisir visualiser le code... Puis tu colles la macro.
m@rina
Maragua
Messages postés
7
Date d'inscription
lundi 28 avril 2008
Statut
Membre
Dernière intervention
1 août 2009
3
30 avril 2008 à 11:29
30 avril 2008 à 11:29
Merci beaucoup votre aide m'a beaucoup aider j'ai réussi à faire ma macro comme il faut.
La solution est :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C222")) Is Nothing Then
Call (module utilisé)
End If
End Sub
c'est nickel merci beaucoup.
La solution est :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C222")) Is Nothing Then
Call (module utilisé)
End If
End Sub
c'est nickel merci beaucoup.
bonjour,
tu crées la macro dans Excel en faisant Outils/Macros/macro
ensuite dans la fenêtre qui s'ouvre, tu indiques le nom de ta macro
et tu cliques sur modifier.
tu fais un copier coller de ta macro en faisant attention de ne pas avoir
deux fois SUB et END SUB.
ensuite tu fais Affichage/Barre d'Outils/Formulaire
tu cliques sur bouton, tu le reporte sur la feuille, et là en recliquant, on te demande de
lier la macro au bouton.
tu donnes ta réponse, oui ou non et tu cliques sur le bouton, la macro s'exécute.
après, tu règle le bouton et tu lui donnes un nom.
( fais attention, tu écris Non, çà marche, si tu écris non, çà ne marche pas.
à toi de voir.
@+
tu crées la macro dans Excel en faisant Outils/Macros/macro
ensuite dans la fenêtre qui s'ouvre, tu indiques le nom de ta macro
et tu cliques sur modifier.
tu fais un copier coller de ta macro en faisant attention de ne pas avoir
deux fois SUB et END SUB.
ensuite tu fais Affichage/Barre d'Outils/Formulaire
tu cliques sur bouton, tu le reporte sur la feuille, et là en recliquant, on te demande de
lier la macro au bouton.
tu donnes ta réponse, oui ou non et tu cliques sur le bouton, la macro s'exécute.
après, tu règle le bouton et tu lui donnes un nom.
( fais attention, tu écris Non, çà marche, si tu écris non, çà ne marche pas.
à toi de voir.
@+