J'ai un problème à résoudre. Sur une feuille Excel, j'ai en C9 la date du
premier lundi de l'année. En D9, = C9+7 en E9=D9+7, etc jusqu'à la fin de
l'année.
En C11 jusqu'en C15 l'utilisateur doit entrer un pourcentage, une fois par
semaine, dans la colonne correspondant au lundi écrit sur la ligne 9.
Je voudrais que s'il écrit un pourcentage inférieur à 95% qu'automatiquement
un message apparaisse d'écrire les commentaires et qu'il soit redirigé vers
la feuille "Commentaires" à la cellule en-dessous correspondant à la date de
la ligne 9
afin que l'on puisse "synchroniser" les pourcentages et les commentaires...
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And Cells(9, Target.Column) <> "" Then If Target.Value < 0.95 Then Sheets("commentaires").Activate Sheets("commentaires").Range(Target.Address).Activate End If End If End Sub
J'espère que ça répond à ta question sinon n'hésite pas
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And
Cells(9, Target.Column) <> "" Then
If Target.Value < 0.95 Then
Sheets("commentaires").Activate
Sheets("commentaires").Range(Target.Address).Activate
End If
End If
End Sub
J'espère que ça répond à ta question sinon n'hésite pas
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And Cells(9, Target.Column) <> "" Then If Target.Value < 0.95 Then Sheets("commentaires").Activate Sheets("commentaires").Range(Target.Address).Activate End If End If End Sub
J'espère que ça répond à ta question sinon n'hésite pas
-- Aurélien29
Denys Perreault
Bonjour Aurélien,
Merci beaucoup pour ta réponse,
Cependant, Excel recherche un objet à la ligne suivante...
If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And Cells(9, Target.Column) <> "" Then
Je me demande bien quoi...
En passant, je ne pense pas si fort que ça!!!! J'aimerais bien cependant !!
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And Cells(9, Target.Column) <> "" Then If Target.Value < 0.95 Then Sheets("commentaires").Activate Sheets("commentaires").Range(Target.Address).Activate End If End If End Sub
J'espère que ça répond à ta question sinon n'hésite pas
-- Aurélien29
Bonjour Aurélien,
Merci beaucoup pour ta réponse,
Cependant, Excel recherche un objet à la ligne suivante...
If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And
Cells(9, Target.Column) <> "" Then
Je me demande bien quoi...
En passant, je ne pense pas si fort que ça!!!! J'aimerais bien cependant !!
Bonne journée
Denys
"Aurélien29" <aurelienporcheray@hotmail.com> wrote in message
news:mn.4c297d5254ae0569.0@hotmail.com...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And
Cells(9, Target.Column) <> "" Then
If Target.Value < 0.95 Then
Sheets("commentaires").Activate
Sheets("commentaires").Range(Target.Address).Activate
End If
End If
End Sub
J'espère que ça répond à ta question sinon n'hésite pas
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And Cells(9, Target.Column) <> "" Then If Target.Value < 0.95 Then Sheets("commentaires").Activate Sheets("commentaires").Range(Target.Address).Activate End If End If End Sub
J'espère que ça répond à ta question sinon n'hésite pas
-- Aurélien29
Patrick BASTARD
Bonjour, *Denys* J'ai lu ton post avec le plus grand intéret :
Regarde l'exemple que je te propose ici : http://cjoint.com/?cjtq3fZkGc
Fonctionne avec liens hypertextes entre feuilles, qui ne s'affichent que si un pourcentage est saisi, et <à 95%.
Sans macro.
J'espère qu'il te sera utile.
-- Bien cordialement, P. Bastard
Bonjour à tous,
J'ai un problème à résoudre. Sur une feuille Excel, j'ai en C9 la date du premier lundi de l'année. En D9, = C9+7 en E9Ù+7, etc jusqu'à la fin de l'année.
En C11 jusqu'en C15 l'utilisateur doit entrer un pourcentage, une fois par semaine, dans la colonne correspondant au lundi écrit sur la ligne 9.
Je voudrais que s'il écrit un pourcentage inférieur à 95% qu'automatiquement un message apparaisse d'écrire les commentaires et qu'il soit redirigé vers la feuille "Commentaires" à la cellule en-dessous correspondant à la date de la ligne 9 afin que l'on puisse "synchroniser" les pourcentages et les commentaires...
Auriez-vous une petite idée?
Merci pour votre temps...
Denys
Bonjour, *Denys*
J'ai lu ton post 598EDCB7-991E-45D1-A278-FA53B45428D5@microsoft.com
avec le plus grand intéret :
Regarde l'exemple que je te propose ici :
http://cjoint.com/?cjtq3fZkGc
Fonctionne avec liens hypertextes entre feuilles, qui ne s'affichent que si
un pourcentage est saisi, et <à 95%.
Sans macro.
J'espère qu'il te sera utile.
--
Bien cordialement,
P. Bastard
Bonjour à tous,
J'ai un problème à résoudre. Sur une feuille Excel, j'ai en C9 la
date du premier lundi de l'année. En D9, = C9+7 en E9Ù+7, etc
jusqu'à la fin de l'année.
En C11 jusqu'en C15 l'utilisateur doit entrer un pourcentage, une
fois par semaine, dans la colonne correspondant au lundi écrit sur la
ligne 9.
Je voudrais que s'il écrit un pourcentage inférieur à 95%
qu'automatiquement un message apparaisse d'écrire les commentaires et
qu'il soit redirigé vers la feuille "Commentaires" à la cellule
en-dessous correspondant à la date de la ligne 9
afin que l'on puisse "synchroniser" les pourcentages et les
commentaires...
Bonjour, *Denys* J'ai lu ton post avec le plus grand intéret :
Regarde l'exemple que je te propose ici : http://cjoint.com/?cjtq3fZkGc
Fonctionne avec liens hypertextes entre feuilles, qui ne s'affichent que si un pourcentage est saisi, et <à 95%.
Sans macro.
J'espère qu'il te sera utile.
-- Bien cordialement, P. Bastard
Bonjour à tous,
J'ai un problème à résoudre. Sur une feuille Excel, j'ai en C9 la date du premier lundi de l'année. En D9, = C9+7 en E9Ù+7, etc jusqu'à la fin de l'année.
En C11 jusqu'en C15 l'utilisateur doit entrer un pourcentage, une fois par semaine, dans la colonne correspondant au lundi écrit sur la ligne 9.
Je voudrais que s'il écrit un pourcentage inférieur à 95% qu'automatiquement un message apparaisse d'écrire les commentaires et qu'il soit redirigé vers la feuille "Commentaires" à la cellule en-dessous correspondant à la date de la ligne 9 afin que l'on puisse "synchroniser" les pourcentages et les commentaires...
Auriez-vous une petite idée?
Merci pour votre temps...
Denys
anonymousA
bonjour,
une autre voie. J'ai supposé que l'ensemble des cellules depuis C9 jusqu'à la dernière remplie de la ligne C sont conernés par la même demande.
Private Sub Worksheet_Change(ByVal Target As Range)
dercol = Range("IV9").End(xlToLeft).Column Set rng = Range(Cells(11, 3), Cells(15, dercol)) If Not Intersect(rng, Target) Is Nothing Then If Target.Value < 0.95 Then MsgBox "Vous devez inscrire des commentaires" Sheets("Commentaires").Activate decalage = Application.WorksheetFunction.Choose(16 - Target.Row, 5, 4, 3, 2, 1) ActiveSheet.Range(Target.Offset(-decalage, 0).Address).Activate End If End If
End Sub
A+
Bonjour Aurélien,
Merci beaucoup pour ta réponse,
Cependant, Excel recherche un objet à la ligne suivante...
If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And Cells(9, Target.Column) <> "" Then
Je me demande bien quoi...
En passant, je ne pense pas si fort que ça!!!! J'aimerais bien cependant !!
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And Cells(9, Target.Column) <> "" Then If Target.Value < 0.95 Then Sheets("commentaires").Activate Sheets("commentaires").Range(Target.Address).Activate End If End If End Sub
J'espère que ça répond à ta question sinon n'hésite pas
-- Aurélien29
bonjour,
une autre voie. J'ai supposé que l'ensemble des cellules depuis C9
jusqu'à la dernière remplie de la ligne C sont conernés par la même demande.
Private Sub Worksheet_Change(ByVal Target As Range)
dercol = Range("IV9").End(xlToLeft).Column
Set rng = Range(Cells(11, 3), Cells(15, dercol))
If Not Intersect(rng, Target) Is Nothing Then
If Target.Value < 0.95 Then
MsgBox "Vous devez inscrire des commentaires"
Sheets("Commentaires").Activate
decalage = Application.WorksheetFunction.Choose(16 - Target.Row, 5,
4, 3, 2, 1)
ActiveSheet.Range(Target.Offset(-decalage, 0).Address).Activate
End If
End If
End Sub
A+
Bonjour Aurélien,
Merci beaucoup pour ta réponse,
Cependant, Excel recherche un objet à la ligne suivante...
If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And
Cells(9, Target.Column) <> "" Then
Je me demande bien quoi...
En passant, je ne pense pas si fort que ça!!!! J'aimerais bien cependant !!
Bonne journée
Denys
"Aurélien29" <aurelienporcheray@hotmail.com> wrote in message
news:mn.4c297d5254ae0569.0@hotmail.com...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And
Cells(9, Target.Column) <> "" Then
If Target.Value < 0.95 Then
Sheets("commentaires").Activate
Sheets("commentaires").Range(Target.Address).Activate
End If
End If
End Sub
J'espère que ça répond à ta question sinon n'hésite pas
une autre voie. J'ai supposé que l'ensemble des cellules depuis C9 jusqu'à la dernière remplie de la ligne C sont conernés par la même demande.
Private Sub Worksheet_Change(ByVal Target As Range)
dercol = Range("IV9").End(xlToLeft).Column Set rng = Range(Cells(11, 3), Cells(15, dercol)) If Not Intersect(rng, Target) Is Nothing Then If Target.Value < 0.95 Then MsgBox "Vous devez inscrire des commentaires" Sheets("Commentaires").Activate decalage = Application.WorksheetFunction.Choose(16 - Target.Row, 5, 4, 3, 2, 1) ActiveSheet.Range(Target.Offset(-decalage, 0).Address).Activate End If End If
End Sub
A+
Bonjour Aurélien,
Merci beaucoup pour ta réponse,
Cependant, Excel recherche un objet à la ligne suivante...
If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And Cells(9, Target.Column) <> "" Then
Je me demande bien quoi...
En passant, je ne pense pas si fort que ça!!!! J'aimerais bien cependant !!
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And Cells(9, Target.Column) <> "" Then If Target.Value < 0.95 Then Sheets("commentaires").Activate Sheets("commentaires").Range(Target.Address).Activate End If End If End Sub
J'espère que ça répond à ta question sinon n'hésite pas
-- Aurélien29
Denys
Bonjour Anonymous et Patrick,
Merci infiniment pour vos réponses....
Je regarde tout ça, et vous reviens...
Bonne journée
Denys
bonjour,
une autre voie. J'ai supposé que l'ensemble des cellules depuis C9 jusqu'à la dernière remplie de la ligne C sont conernés par la même demande.
Private Sub Worksheet_Change(ByVal Target As Range)
dercol = Range("IV9").End(xlToLeft).Column Set rng = Range(Cells(11, 3), Cells(15, dercol)) If Not Intersect(rng, Target) Is Nothing Then If Target.Value < 0.95 Then MsgBox "Vous devez inscrire des commentaires" Sheets("Commentaires").Activate decalage = Application.WorksheetFunction.Choose(16 - Target.Row, 5, 4, 3, 2, 1) ActiveSheet.Range(Target.Offset(-decalage, 0).Address).Activate End If End If
End Sub
A+
Bonjour Aurélien,
Merci beaucoup pour ta réponse,
Cependant, Excel recherche un objet à la ligne suivante...
If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And Cells(9, Target.Column) <> "" Then
Je me demande bien quoi...
En passant, je ne pense pas si fort que ça!!!! J'aimerais bien cependant !!
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And Cells(9, Target.Column) <> "" Then If Target.Value < 0.95 Then Sheets("commentaires").Activate Sheets("commentaires").Range(Target.Address).Activate End If End If End Sub
J'espère que ça répond à ta question sinon n'hésite pas
-- Aurélien29
Bonjour Anonymous et Patrick,
Merci infiniment pour vos réponses....
Je regarde tout ça, et vous reviens...
Bonne journée
Denys
bonjour,
une autre voie. J'ai supposé que l'ensemble des cellules depuis C9
jusqu'à la dernière remplie de la ligne C sont conernés par la même demande.
Private Sub Worksheet_Change(ByVal Target As Range)
dercol = Range("IV9").End(xlToLeft).Column
Set rng = Range(Cells(11, 3), Cells(15, dercol))
If Not Intersect(rng, Target) Is Nothing Then
If Target.Value < 0.95 Then
MsgBox "Vous devez inscrire des commentaires"
Sheets("Commentaires").Activate
decalage = Application.WorksheetFunction.Choose(16 - Target.Row, 5,
4, 3, 2, 1)
ActiveSheet.Range(Target.Offset(-decalage, 0).Address).Activate
End If
End If
End Sub
A+
Bonjour Aurélien,
Merci beaucoup pour ta réponse,
Cependant, Excel recherche un objet à la ligne suivante...
If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And
Cells(9, Target.Column) <> "" Then
Je me demande bien quoi...
En passant, je ne pense pas si fort que ça!!!! J'aimerais bien cependant !!
Bonne journée
Denys
"Aurélien29" <aurelienporcheray@hotmail.com> wrote in message
news:mn.4c297d5254ae0569.0@hotmail.com...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And
Cells(9, Target.Column) <> "" Then
If Target.Value < 0.95 Then
Sheets("commentaires").Activate
Sheets("commentaires").Range(Target.Address).Activate
End If
End If
End Sub
J'espère que ça répond à ta question sinon n'hésite pas
une autre voie. J'ai supposé que l'ensemble des cellules depuis C9 jusqu'à la dernière remplie de la ligne C sont conernés par la même demande.
Private Sub Worksheet_Change(ByVal Target As Range)
dercol = Range("IV9").End(xlToLeft).Column Set rng = Range(Cells(11, 3), Cells(15, dercol)) If Not Intersect(rng, Target) Is Nothing Then If Target.Value < 0.95 Then MsgBox "Vous devez inscrire des commentaires" Sheets("Commentaires").Activate decalage = Application.WorksheetFunction.Choose(16 - Target.Row, 5, 4, 3, 2, 1) ActiveSheet.Range(Target.Offset(-decalage, 0).Address).Activate End If End If
End Sub
A+
Bonjour Aurélien,
Merci beaucoup pour ta réponse,
Cependant, Excel recherche un objet à la ligne suivante...
If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And Cells(9, Target.Column) <> "" Then
Je me demande bien quoi...
En passant, je ne pense pas si fort que ça!!!! J'aimerais bien cependant !!
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 11 And Target.Row <= 15 And Target.Count = 1 And Cells(9, Target.Column) <> "" Then If Target.Value < 0.95 Then Sheets("commentaires").Activate Sheets("commentaires").Range(Target.Address).Activate End If End If End Sub
J'espère que ça répond à ta question sinon n'hésite pas
