Voici une tite macro qui fonctionne parfaitement pour mettre en couleurs
différentes cellules d'un calendrier en fonction du motif des éventuelles
absences (c=congé, f=formation, m=maladie....), le reste des cellules étant
remplies par du texte quand les personnes sont présentes...
Mon seul souci est que ça ne marche que si l'utilisateur fait [enter] après
chaque saisie du motif d'absence. S'il utilise les flèche de direction, ça
ne marche plus, or j'aimerais bien que ça marche. Par ailleurs, si dans
Outils / Options / Modification on a choisi "déplacer la sélection après
validation" ça ne marche pas non plus...
Auriez-vous des suggestions ?
Private Sub Worksheet_Change(ByVal Target As Range)
Voici une tite macro qui fonctionne parfaitement pour mettre en couleurs différentes cellules d'un calendrier en fonction du motif des éventue lles absences (c=congé, f=formation, m=maladie....), le reste des cell ules étant remplies par du texte quand les personnes sont présentes... Mon seul souci est que ça ne marche que si l'utilisateur fait [enter] a près chaque saisie du motif d'absence. S'il utilise les flèche de directi on, ça ne marche plus, or j'aimerais bien que ça marche. Par ailleurs, si dans Outils / Options / Modification on a choisi "déplacer la sélection ap rès validation" ça ne marche pas non plus...
Auriez-vous des suggestions ?
Private Sub Worksheet_Change(ByVal Target As Range)
On 8 mai, 17:03, "Woody" <Wo...@blackwood.net.invalid> wrote:
Bonjour tout le monde !
Voici une tite macro qui fonctionne parfaitement pour mettre en couleurs
différentes cellules d'un calendrier en fonction du motif des éventue lles
absences (c=congé, f=formation, m=maladie....), le reste des cell ules étant
remplies par du texte quand les personnes sont présentes...
Mon seul souci est que ça ne marche que si l'utilisateur fait [enter] a près
chaque saisie du motif d'absence. S'il utilise les flèche de directi on, ça
ne marche plus, or j'aimerais bien que ça marche. Par ailleurs, si dans
Outils / Options / Modification on a choisi "déplacer la sélection ap rès
validation" ça ne marche pas non plus...
Auriez-vous des suggestions ?
Private Sub Worksheet_Change(ByVal Target As Range)
Voici une tite macro qui fonctionne parfaitement pour mettre en couleurs différentes cellules d'un calendrier en fonction du motif des éventue lles absences (c=congé, f=formation, m=maladie....), le reste des cell ules étant remplies par du texte quand les personnes sont présentes... Mon seul souci est que ça ne marche que si l'utilisateur fait [enter] a près chaque saisie du motif d'absence. S'il utilise les flèche de directi on, ça ne marche plus, or j'aimerais bien que ça marche. Par ailleurs, si dans Outils / Options / Modification on a choisi "déplacer la sélection ap rès validation" ça ne marche pas non plus...
Auriez-vous des suggestions ?
Private Sub Worksheet_Change(ByVal Target As Range)
Voici une tite macro qui fonctionne parfaitement pour mettre en couleurs différentes cellules d'un calendrier en fonction du motif des éventuelles absences (c=congé, f=formation, m=maladie....), le reste des cellules étant remplies par du texte quand les personnes sont présentes... Mon seul souci est que ça ne marche que si l'utilisateur fait [enter] après chaque saisie du motif d'absence. S'il utilise les flèche de direction, ça ne marche plus, or j'aimerais bien que ça marche. Par ailleurs, si dans Outils / Options / Modification on a choisi "déplacer la sélection après validation" ça ne marche pas non plus...
Auriez-vous des suggestions ?
Private Sub Worksheet_Change(ByVal Target As Range)
Case "c" .Interior.ColorIndex = 3 .Interior.Pattern = xlSolid
Case "f" .Interior.ColorIndex = 50 .Interior.Pattern = xlSolid
Case "m" .Interior.ColorIndex = 36 .Interior.Pattern = xlSolid
Case "mat" .Interior.ColorIndex = 40 .Interior.Pattern = xlSolid
Case "syn" .Interior.ColorIndex = 5 .Interior.Pattern = xlSolid
Case "st" .Interior.ColorIndex = 34 .Interior.Pattern = xlSolid
Case Else .Interior.ColorIndex = xlNone
End Select
End With
End Sub
Merci d'avance pour votre aide.
Cordialement.
Woody.
Bonsoir JB !
Merci pour ta réponse. Je dois dire qu'une liste de validation est beaucoup plus élégante que mon interminable macro !!! Je vais l'adopter de ce pas :-))
Néanmoins une question subsiste : comment forcer une modif quelle qu'elle soit et appliquer le Select case quand l'utilisateur a l'habitude d'utiliser les flèches de direction ou quand l'option "déplacer la sélection après validation" est cochée ? Par ailleurs, la liste de validation peut-elle toujours remplacer un Select case ?
Merci encore pour ta solution.
Cordialement.
Woody.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
b91fdeef-fdf7-4bb3-a456-19cf726a9ad5@p4g2000vba.googlegroups.com...
Bonjour,
On 8 mai, 17:03, "Woody" <Wo...@blackwood.net.invalid> wrote:
Bonjour tout le monde !
Voici une tite macro qui fonctionne parfaitement pour mettre en couleurs
différentes cellules d'un calendrier en fonction du motif des éventuelles
absences (c=congé, f=formation, m=maladie....), le reste des cellules
étant
remplies par du texte quand les personnes sont présentes...
Mon seul souci est que ça ne marche que si l'utilisateur fait [enter]
après
chaque saisie du motif d'absence. S'il utilise les flèche de direction, ça
ne marche plus, or j'aimerais bien que ça marche. Par ailleurs, si dans
Outils / Options / Modification on a choisi "déplacer la sélection après
validation" ça ne marche pas non plus...
Auriez-vous des suggestions ?
Private Sub Worksheet_Change(ByVal Target As Range)
Case "c"
.Interior.ColorIndex = 3
.Interior.Pattern = xlSolid
Case "f"
.Interior.ColorIndex = 50
.Interior.Pattern = xlSolid
Case "m"
.Interior.ColorIndex = 36
.Interior.Pattern = xlSolid
Case "mat"
.Interior.ColorIndex = 40
.Interior.Pattern = xlSolid
Case "syn"
.Interior.ColorIndex = 5
.Interior.Pattern = xlSolid
Case "st"
.Interior.ColorIndex = 34
.Interior.Pattern = xlSolid
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
End Sub
Merci d'avance pour votre aide.
Cordialement.
Woody.
Bonsoir JB !
Merci pour ta réponse. Je dois dire qu'une liste de validation est beaucoup
plus élégante que mon interminable macro !!! Je vais l'adopter de ce pas
:-))
Néanmoins une question subsiste : comment forcer une modif quelle qu'elle
soit et appliquer le Select case quand l'utilisateur a l'habitude d'utiliser
les flèches de direction ou quand l'option "déplacer la sélection après
validation" est cochée ? Par ailleurs, la liste de validation peut-elle
toujours remplacer un Select case ?
Voici une tite macro qui fonctionne parfaitement pour mettre en couleurs différentes cellules d'un calendrier en fonction du motif des éventuelles absences (c=congé, f=formation, m=maladie....), le reste des cellules étant remplies par du texte quand les personnes sont présentes... Mon seul souci est que ça ne marche que si l'utilisateur fait [enter] après chaque saisie du motif d'absence. S'il utilise les flèche de direction, ça ne marche plus, or j'aimerais bien que ça marche. Par ailleurs, si dans Outils / Options / Modification on a choisi "déplacer la sélection après validation" ça ne marche pas non plus...
Auriez-vous des suggestions ?
Private Sub Worksheet_Change(ByVal Target As Range)
Case "c" .Interior.ColorIndex = 3 .Interior.Pattern = xlSolid
Case "f" .Interior.ColorIndex = 50 .Interior.Pattern = xlSolid
Case "m" .Interior.ColorIndex = 36 .Interior.Pattern = xlSolid
Case "mat" .Interior.ColorIndex = 40 .Interior.Pattern = xlSolid
Case "syn" .Interior.ColorIndex = 5 .Interior.Pattern = xlSolid
Case "st" .Interior.ColorIndex = 34 .Interior.Pattern = xlSolid
Case Else .Interior.ColorIndex = xlNone
End Select
End With
End Sub
Merci d'avance pour votre aide.
Cordialement.
Woody.
Bonsoir JB !
Merci pour ta réponse. Je dois dire qu'une liste de validation est beaucoup plus élégante que mon interminable macro !!! Je vais l'adopter de ce pas :-))
Néanmoins une question subsiste : comment forcer une modif quelle qu'elle soit et appliquer le Select case quand l'utilisateur a l'habitude d'utiliser les flèches de direction ou quand l'option "déplacer la sélection après validation" est cochée ? Par ailleurs, la liste de validation peut-elle toujours remplacer un Select case ?
> Voici une tite macro qui fonctionne parfaitement pour mettre en couleur s > différentes cellules d'un calendrier en fonction du motif des évent uelles > absences (c=congé, f=formation, m=maladie....), le reste des ce llules > étant > remplies par du texte quand les personnes sont présentes... > Mon seul souci est que ça ne marche que si l'utilisateur fait [enter] > après > chaque saisie du motif d'absence. S'il utilise les flèche de directio n, ça > ne marche plus, or j'aimerais bien que ça marche. Par ailleurs, si da ns > Outils / Options / Modification on a choisi "déplacer la sélection après > validation" ça ne marche pas non plus...
> Auriez-vous des suggestions ?
> Private Sub Worksheet_Change(ByVal Target As Range)
Merci pour ta réponse. Je dois dire qu'une liste de validation est beau coup plus élégante que mon interminable macro !!! Je vais l'adopter de ce pas :-))
Néanmoins une question subsiste : comment forcer une modif quelle qu'el le soit et appliquer le Select case quand l'utilisateur a l'habitude d'utili ser les flèches de direction ou quand l'option "déplacer la sélection a près validation" est cochée ? Par ailleurs, la liste de validation peut-elle toujours remplacer un Select case ?
Merci encore pour ta solution.
Cordialement.
Woody.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Il faut remplacer ActiveCell par Target.
JB
On 8 mai, 18:44, "Woody" <Wo...@blackwood.net.invalid> wrote:
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
b91fdeef-fdf7-4bb3-a456-19cf726a9...@p4g2000vba.googlegroups.com...
Bonjour,
On 8 mai, 17:03, "Woody" <Wo...@blackwood.net.invalid> wrote:
> Bonjour tout le monde !
> Voici une tite macro qui fonctionne parfaitement pour mettre en couleur s
> différentes cellules d'un calendrier en fonction du motif des évent uelles
> absences (c=congé, f=formation, m=maladie....), le reste des ce llules
> étant
> remplies par du texte quand les personnes sont présentes...
> Mon seul souci est que ça ne marche que si l'utilisateur fait [enter]
> après
> chaque saisie du motif d'absence. S'il utilise les flèche de directio n, ça
> ne marche plus, or j'aimerais bien que ça marche. Par ailleurs, si da ns
> Outils / Options / Modification on a choisi "déplacer la sélection après
> validation" ça ne marche pas non plus...
> Auriez-vous des suggestions ?
> Private Sub Worksheet_Change(ByVal Target As Range)
Merci pour ta réponse. Je dois dire qu'une liste de validation est beau coup
plus élégante que mon interminable macro !!! Je vais l'adopter de ce pas
:-))
Néanmoins une question subsiste : comment forcer une modif quelle qu'el le
soit et appliquer le Select case quand l'utilisateur a l'habitude d'utili ser
les flèches de direction ou quand l'option "déplacer la sélection a près
validation" est cochée ? Par ailleurs, la liste de validation peut-elle
toujours remplacer un Select case ?
Merci encore pour ta solution.
Cordialement.
Woody.- Masquer le texte des messages précédents -
> Voici une tite macro qui fonctionne parfaitement pour mettre en couleur s > différentes cellules d'un calendrier en fonction du motif des évent uelles > absences (c=congé, f=formation, m=maladie....), le reste des ce llules > étant > remplies par du texte quand les personnes sont présentes... > Mon seul souci est que ça ne marche que si l'utilisateur fait [enter] > après > chaque saisie du motif d'absence. S'il utilise les flèche de directio n, ça > ne marche plus, or j'aimerais bien que ça marche. Par ailleurs, si da ns > Outils / Options / Modification on a choisi "déplacer la sélection après > validation" ça ne marche pas non plus...
> Auriez-vous des suggestions ?
> Private Sub Worksheet_Change(ByVal Target As Range)
Merci pour ta réponse. Je dois dire qu'une liste de validation est beau coup plus élégante que mon interminable macro !!! Je vais l'adopter de ce pas :-))
Néanmoins une question subsiste : comment forcer une modif quelle qu'el le soit et appliquer le Select case quand l'utilisateur a l'habitude d'utili ser les flèches de direction ou quand l'option "déplacer la sélection a près validation" est cochée ? Par ailleurs, la liste de validation peut-elle toujours remplacer un Select case ?
Merci encore pour ta solution.
Cordialement.
Woody.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Woody
re,
Encore merci mais si je remplace ActiveCell par Target c'est la cellule dans laquelle je vais qui se met en couleur et non pas celle que je quitte... la cible et non la source.
J'ai essayé plein de trucs, en vain. Il faut dire que je je connais très mal VBA et je ne suis pas très douée....
> Voici une tite macro qui fonctionne parfaitement pour mettre en couleurs > différentes cellules d'un calendrier en fonction du motif des > éventuelles > absences (c=congé, f=formation, m=maladie....), le reste des cellules > étant > remplies par du texte quand les personnes sont présentes... > Mon seul souci est que ça ne marche que si l'utilisateur fait [enter] > après > chaque saisie du motif d'absence. S'il utilise les flèche de direction, > ça > ne marche plus, or j'aimerais bien que ça marche. Par ailleurs, si dans > Outils / Options / Modification on a choisi "déplacer la sélection après > validation" ça ne marche pas non plus...
> Auriez-vous des suggestions ?
> Private Sub Worksheet_Change(ByVal Target As Range)
Merci pour ta réponse. Je dois dire qu'une liste de validation est beaucoup plus élégante que mon interminable macro !!! Je vais l'adopter de ce pas :-))
Néanmoins une question subsiste : comment forcer une modif quelle qu'elle soit et appliquer le Select case quand l'utilisateur a l'habitude d'utiliser les flèches de direction ou quand l'option "déplacer la sélection après validation" est cochée ? Par ailleurs, la liste de validation peut-elle toujours remplacer un Select case ?
Merci encore pour ta solution.
Cordialement.
Woody.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
re,
Encore merci mais si je remplace ActiveCell par Target c'est la cellule dans
laquelle je vais qui se met en couleur et non pas celle que je quitte... la
cible et non la source.
J'ai essayé plein de trucs, en vain. Il faut dire que je je connais très mal
VBA et je ne suis pas très douée....
Merci encore.
Cordialement.
Woody.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
5fc0d601-3e09-4c1a-9a51-eac6df6d5d86@z19g2000vbz.googlegroups.com...
Bonjour,
Il faut remplacer ActiveCell par Target.
JB
On 8 mai, 18:44, "Woody" <Wo...@blackwood.net.invalid> wrote:
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
b91fdeef-fdf7-4bb3-a456-19cf726a9...@p4g2000vba.googlegroups.com...
Bonjour,
On 8 mai, 17:03, "Woody" <Wo...@blackwood.net.invalid> wrote:
> Bonjour tout le monde !
> Voici une tite macro qui fonctionne parfaitement pour mettre en couleurs
> différentes cellules d'un calendrier en fonction du motif des
> éventuelles
> absences (c=congé, f=formation, m=maladie....), le reste des cellules
> étant
> remplies par du texte quand les personnes sont présentes...
> Mon seul souci est que ça ne marche que si l'utilisateur fait [enter]
> après
> chaque saisie du motif d'absence. S'il utilise les flèche de direction,
> ça
> ne marche plus, or j'aimerais bien que ça marche. Par ailleurs, si dans
> Outils / Options / Modification on a choisi "déplacer la sélection après
> validation" ça ne marche pas non plus...
> Auriez-vous des suggestions ?
> Private Sub Worksheet_Change(ByVal Target As Range)
Merci pour ta réponse. Je dois dire qu'une liste de validation est
beaucoup
plus élégante que mon interminable macro !!! Je vais l'adopter de ce pas
:-))
Néanmoins une question subsiste : comment forcer une modif quelle qu'elle
soit et appliquer le Select case quand l'utilisateur a l'habitude
d'utiliser
les flèches de direction ou quand l'option "déplacer la sélection après
validation" est cochée ? Par ailleurs, la liste de validation peut-elle
toujours remplacer un Select case ?
Merci encore pour ta solution.
Cordialement.
Woody.- Masquer le texte des messages précédents -
Encore merci mais si je remplace ActiveCell par Target c'est la cellule dans laquelle je vais qui se met en couleur et non pas celle que je quitte... la cible et non la source.
J'ai essayé plein de trucs, en vain. Il faut dire que je je connais très mal VBA et je ne suis pas très douée....
> Voici une tite macro qui fonctionne parfaitement pour mettre en couleurs > différentes cellules d'un calendrier en fonction du motif des > éventuelles > absences (c=congé, f=formation, m=maladie....), le reste des cellules > étant > remplies par du texte quand les personnes sont présentes... > Mon seul souci est que ça ne marche que si l'utilisateur fait [enter] > après > chaque saisie du motif d'absence. S'il utilise les flèche de direction, > ça > ne marche plus, or j'aimerais bien que ça marche. Par ailleurs, si dans > Outils / Options / Modification on a choisi "déplacer la sélection après > validation" ça ne marche pas non plus...
> Auriez-vous des suggestions ?
> Private Sub Worksheet_Change(ByVal Target As Range)
Merci pour ta réponse. Je dois dire qu'une liste de validation est beaucoup plus élégante que mon interminable macro !!! Je vais l'adopter de ce pas :-))
Néanmoins une question subsiste : comment forcer une modif quelle qu'elle soit et appliquer le Select case quand l'utilisateur a l'habitude d'utiliser les flèches de direction ou quand l'option "déplacer la sélection après validation" est cochée ? Par ailleurs, la liste de validation peut-elle toujours remplacer un Select case ?
Merci encore pour ta solution.
Cordialement.
Woody.- Masquer le texte des messages précédents -