Caractère rouge - Entrer

Hello,

Une possibilité, à intégrer dans ta macro :

Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))
If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

Et il faut que tu créés deux macro (dans un module standart) :

Sub cree_raccourci()
Application.OnKey "~", "MonRaccourci"
End Sub

Sub enleve_raccourci()
Application.OnKey "~"
End Sub

Sub MonRaccourci()
Selection.Font.ColorIndex = 3
Selection.Offset(1, 0).Select
End Sub


Par contre je ne suis pas sur que ce soit comptatible avec ta 2eme
condition If Target.Column <> 56

Bonjour à tous,

J'aimerais rajouter une macro qui va mettre en caractères rouges a chaq ue
fois que je fais "enter" au clavier.

Mettons dans les cellules suivantes:
A17 à BJ90
A96 à BJ141
A146 BJ166
A172 à BJ192

Et j'aimerais intégré cette macro dans la macro déjà existante de la
feuille.
Merci!

Voici la macro existante:
______________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Regie" '__________désactive la
protection
'ActiveSheet.Unprotect
If Target.Count > 1 Then Exit Sub
If Target.Column <> 56 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value
ActiveSheet.Protect Password:="Regie" '______________ l'active
'ActiveSheet.Protect
End Sub

Trop compliqué pour moi et trop risqué!


C'est pas possible d'avoir une macro plus simple.

Merci!



"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1168885907.796060.9770@38g2000cwa.googlegroups.com...
Hello,

Une possibilité, à intégrer dans ta macro :

Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))
If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

Et il faut que tu créés deux macro (dans un module standart) :

Sub cree_raccourci()
Application.OnKey "~", "MonRaccourci"
End Sub

Sub enleve_raccourci()
Application.OnKey "~"
End Sub

Sub MonRaccourci()
Selection.Font.ColorIndex = 3
Selection.Offset(1, 0).Select
End Sub


Par contre je ne suis pas sur que ce soit comptatible avec ta 2eme
condition If Target.Column <> 56

Bonjour à tous,

J'aimerais rajouter une macro qui va mettre en caractères rouges a chaque
fois que je fais "enter" au clavier.

Mettons dans les cellules suivantes:
A17 à BJ90
A96 à BJ141
A146 BJ166
A172 à BJ192

Et j'aimerais intégré cette macro dans la macro déjà existante de la
feuille.
Merci!

Voici la macro existante:
______________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Regie" '__________désactive la
protection
'ActiveSheet.Unprotect
If Target.Count > 1 Then Exit Sub
If Target.Column <> 56 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value
ActiveSheet.Protect Password:="Regie" '______________ l'active
'ActiveSheet.Protect
End Sub

Bonsoir,

Pas sur qu'il y ait de solution vraiment plus simple (peut être dans
les déclarations des isect, mais sinon je ne voit pas trop).
Le problème va être avec ta condition qui implique que ta macro soit
activée dans le cas ou Target est dans la colonne 56. Or les plages
que tu as données sont beaucoup plus vaste.
Donc tu peux mettre le code entre If Target.Count > 1 Then Exit Sub et
If Target.Column <> 56 Then Exit Sub
Quelques explications :

Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))

Ca controle juste que la cellule est comprises dans les ranges

If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

Si Target (qui est la cellule sélectionnée) est dans au moins une des
4 plages, alors ca lance la macro cree_raccourci, sinon appelle
enleve_raccourci, qui elle supprime le raccourci.

C'est tout !

sinon, les macros suivantes, que tu mets dans un module standart :

Créé le raccourci

Sub cree_raccourci()
Application.OnKey "~", "MonRaccourci"
End Sub

Remet l'action de la touche Enter par defaut

Sub enleve_raccourci()
Application.OnKey "~"
End Sub

Est appellé par la touche Enter

Sub MonRaccourci()
Selection.Font.ColorIndex = 3
Selection.Offset

Erico,

Peut être, mais je ne

Trop compliqué pour moi et trop risqué!


C'est pas possible d'avoir une macro plus simple.

Merci!



"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1168885907.796060.9770@38g2000cwa.googlegroups.com...
Hello,

Une possibilité, à intégrer dans ta macro :

Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))
If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

Et il faut que tu créés deux macro (dans un module standart) :

Sub cree_raccourci()
Application.OnKey "~", "MonRaccourci"
End Sub

Sub enleve_raccourci()
Application.OnKey "~"
End Sub

Sub MonRaccourci()
Selection.Font.ColorIndex = 3
Selection.Offset(1, 0).Select
End Sub


Par contre je ne suis pas sur que ce soit comptatible avec ta 2eme
condition If Target.Column <> 56

Bonjour à tous,

J'aimerais rajouter une macro qui va mettre en caractères rouges a ch aque
fois que je fais "enter" au clavier.

Mettons dans les cellules suivantes:
A17 à BJ90
A96 à BJ141
A146 BJ166
A172 à BJ192

Et j'aimerais intégré cette macro dans la macro déjà existante de la
feuille.
Merci!

Voici la macro existante:
______________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Regie" '__________désactive la
protection
'ActiveSheet.Unprotect
If Target.Count > 1 Then Exit Sub
If Target.Column <> 56 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Va lue
ActiveSheet.Protect Password:="Regie" '______________ l'active
'ActiveSheet.Protect
End Sub

Merci, mais je la mets où ta macro dans le mien?



"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1168968715.743663.258000@a75g2000cwd.googlegroups.com...
Bonsoir,

Pas sur qu'il y ait de solution vraiment plus simple (peut être dans
les déclarations des isect, mais sinon je ne voit pas trop).
Le problème va être avec ta condition qui implique que ta macro soit
activée dans le cas ou Target est dans la colonne 56. Or les plages
que tu as données sont beaucoup plus vaste.
Donc tu peux mettre le code entre If Target.Count > 1 Then Exit Sub et
If Target.Column <> 56 Then Exit Sub
Quelques explications :

Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))

Ca controle juste que la cellule est comprises dans les ranges

If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

Si Target (qui est la cellule sélectionnée) est dans au moins une des
4 plages, alors ca lance la macro cree_raccourci, sinon appelle
enleve_raccourci, qui elle supprime le raccourci.

C'est tout !

sinon, les macros suivantes, que tu mets dans un module standart :

Créé le raccourci

Sub cree_raccourci()
Application.OnKey "~", "MonRaccourci"
End Sub

Remet l'action de la touche Enter par defaut

Sub enleve_raccourci()
Application.OnKey "~"
End Sub

Est appellé par la touche Enter

Sub MonRaccourci()
Selection.Font.ColorIndex = 3
Selection.Offset

Erico,

Peut être, mais je ne

Trop compliqué pour moi et trop risqué!


C'est pas possible d'avoir une macro plus simple.

Merci!



"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1168885907.796060.9770@38g2000cwa.googlegroups.com...
Hello,

Une possibilité, à intégrer dans ta macro :

Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))
If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

Et il faut que tu créés deux macro (dans un module standart) :

Sub cree_raccourci()
Application.OnKey "~", "MonRaccourci"
End Sub

Sub enleve_raccourci()
Application.OnKey "~"
End Sub

Sub MonRaccourci()
Selection.Font.ColorIndex = 3
Selection.Offset(1, 0).Select
End Sub


Par contre je ne suis pas sur que ce soit comptatible avec ta 2eme
condition If Target.Column <> 56

Bonjour à tous,

J'aimerais rajouter une macro qui va mettre en caractères rouges a
chaque
fois que je fais "enter" au clavier.

Mettons dans les cellules suivantes:
A17 à BJ90
A96 à BJ141
A146 BJ166
A172 à BJ192

Et j'aimerais intégré cette macro dans la macro déjà existante de la
feuille.
Merci!

Voici la macro existante:
______________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Regie" '__________désactive la
protection
'ActiveSheet.Unprotect
If Target.Count > 1 Then Exit Sub
If Target.Column <> 56 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value
ActiveSheet.Protect Password:="Regie" '______________ l'active
'ActiveSheet.Protect
End Sub

ça ne fonctionne pas et voici la macro:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Regie" '__________désactive la
protection
If Target.Count > 1 Then Exit Sub
If Target.Column <> 56 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value
ActiveSheet.Protect Password:="Regie" '______________ l'active
Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))
If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is Nothing
Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

End Sub

________________________________
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1168968715.743663.258000@a75g2000cwd.googlegroups.com...
Bonsoir,

Pas sur qu'il y ait de solution vraiment plus simple (peut être dans
les déclarations des isect, mais sinon je ne voit pas trop).
Le problème va être avec ta condition qui implique que ta macro soit
activée dans le cas ou Target est dans la colonne 56. Or les plages
que tu as données sont beaucoup plus vaste.
Donc tu peux mettre le code entre If Target.Count > 1 Then Exit Sub et
If Target.Column <> 56 Then Exit Sub
Quelques explications :

Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))

Ca controle juste que la cellule est comprises dans les ranges

If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

Si Target (qui est la cellule sélectionnée) est dans au moins une des
4 plages, alors ca lance la macro cree_raccourci, sinon appelle
enleve_raccourci, qui elle supprime le raccourci.

C'est tout !

sinon, les macros suivantes, que tu mets dans un module standart :

Créé le raccourci

Sub cree_raccourci()
Application.OnKey "~", "MonRaccourci"
End Sub

Remet l'action de la touche Enter par defaut

Sub enleve_raccourci()
Application.OnKey "~"
End Sub

Est appellé par la touche Enter

Sub MonRaccourci()
Selection.Font.ColorIndex = 3
Selection.Offset

Erico,

Peut être, mais je ne

Trop compliqué pour moi et trop risqué!


C'est pas possible d'avoir une macro plus simple.

Merci!



"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1168885907.796060.9770@38g2000cwa.googlegroups.com...
Hello,

Une possibilité, à intégrer dans ta macro :

Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))
If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

Et il faut que tu créés deux macro (dans un module standart) :

Sub cree_raccourci()
Application.OnKey "~", "MonRaccourci"
End Sub

Sub enleve_raccourci()
Application.OnKey "~"
End Sub

Sub MonRaccourci()
Selection.Font.ColorIndex = 3
Selection.Offset(1, 0).Select
End Sub


Par contre je ne suis pas sur que ce soit comptatible avec ta 2eme
condition If Target.Column <> 56

Bonjour à tous,

J'aimerais rajouter une macro qui va mettre en caractères rouges a
chaque
fois que je fais "enter" au clavier.

Mettons dans les cellules suivantes:
A17 à BJ90
A96 à BJ141
A146 BJ166
A172 à BJ192

Et j'aimerais intégré cette macro dans la macro déjà existante de la
feuille.
Merci!

Voici la macro existante:
______________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Regie" '__________désactive la
protection
'ActiveSheet.Unprotect
If Target.Count > 1 Then Exit Sub
If Target.Column <> 56 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value
ActiveSheet.Protect Password:="Regie" '______________ l'active
'ActiveSheet.Protect
End Sub

Normal que ce ne fasse rien. Ta macro s'arrete si la cellule n'est pas
dans la colonne 56. Donc avec les plages que tu as mis, forcément ca
ne marchera pas.
Ca dépend des controles que tu veux effectuer pour que ca marche.
Comme je te l'ai indiqué, pour moi le plus logique serait de la mettre
juste après

If Target.Count > 1 Then Exit Sub

Mais relis ta macro, et mais ce que je te propose à un endroit qui
correspond à tes besoins, en fonction des critères que tu indiques

ça ne fonctionne pas et voici la macro:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Regie" '__________désactive la
protection
If Target.Count > 1 Then Exit Sub
If Target.Column <> 56 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value
ActiveSheet.Protect Password:="Regie" '______________ l'active
Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))
If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is Nothing
Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

End Sub

________________________________
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1168968715.743663.258000@a75g2000cwd.googlegroups.com...
Bonsoir,

Pas sur qu'il y ait de solution vraiment plus simple (peut être dans
les déclarations des isect, mais sinon je ne voit pas trop).
Le problème va être avec ta condition qui implique que ta macro soit
activée dans le cas ou Target est dans la colonne 56. Or les plages
que tu as données sont beaucoup plus vaste.
Donc tu peux mettre le code entre If Target.Count > 1 Then Exit Sub et
If Target.Column <> 56 Then Exit Sub
Quelques explications :

Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))

Ca controle juste que la cellule est comprises dans les ranges

If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

Si Target (qui est la cellule sélectionnée) est dans au moins une des
4 plages, alors ca lance la macro cree_raccourci, sinon appelle
enleve_raccourci, qui elle supprime le raccourci.

C'est tout !

sinon, les macros suivantes, que tu mets dans un module standart :

Créé le raccourci

Sub cree_raccourci()
Application.OnKey "~", "MonRaccourci"
End Sub

Remet l'action de la touche Enter par defaut

Sub enleve_raccourci()
Application.OnKey "~"
End Sub

Est appellé par la touche Enter

Sub MonRaccourci()
Selection.Font.ColorIndex = 3
Selection.Offset

Erico,

Peut être, mais je ne

Trop compliqué pour moi et trop risqué!


C'est pas possible d'avoir une macro plus simple.

Merci!



"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1168885907.796060.9770@38g2000cwa.googlegroups.com...
Hello,

Une possibilité, à intégrer dans ta macro :

Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))
If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

Et il faut que tu créés deux macro (dans un module standart) :

Sub cree_raccourci()
Application.OnKey "~", "MonRaccourci"
End Sub

Sub enleve_raccourci()
Application.OnKey "~"
End Sub

Sub MonRaccourci()
Selection.Font.ColorIndex = 3
Selection.Offset(1, 0).Select
End Sub


Par contre je ne suis pas sur que ce soit comptatible avec ta 2eme
condition If Target.Column <> 56

Bonjour à tous,

J'aimerais rajouter une macro qui va mettre en caractères rouges a
chaque
fois que je fais "enter" au clavier.

Mettons dans les cellules suivantes:
A17 à BJ90
A96 à BJ141
A146 BJ166
A172 à BJ192

Et j'aimerais intégré cette macro dans la macro déjà existant e de la
feuille.
Merci!

Voici la macro existante:
______________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Regie" '__________désactive la
protection
'ActiveSheet.Unprotect
If Target.Count > 1 Then Exit Sub
If Target.Column <> 56 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target. Value
ActiveSheet.Protect Password:="Regie" '______________ l'active
'ActiveSheet.Protect
End Sub

Woowww!!!


Enfin, ça l'air de fonctionné sauf que des fois, je fais une première saisie
et ça le met pas en rouge et je le refait et là ça fonctionne, pourquoi?

Un gros merci



"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1169199775.403097.69120@q2g2000cwa.googlegroups.com...
Normal que ce ne fasse rien. Ta macro s'arrete si la cellule n'est pas
dans la colonne 56. Donc avec les plages que tu as mis, forcément ca
ne marchera pas.
Ca dépend des controles que tu veux effectuer pour que ca marche.
Comme je te l'ai indiqué, pour moi le plus logique serait de la mettre
juste après

If Target.Count > 1 Then Exit Sub

Mais relis ta macro, et mais ce que je te propose à un endroit qui
correspond à tes besoins, en fonction des critères que tu indiques

ça ne fonctionne pas et voici la macro:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Regie" '__________désactive la
protection
If Target.Count > 1 Then Exit Sub
If Target.Column <> 56 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value
ActiveSheet.Protect Password:="Regie" '______________ l'active
Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))
If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is Nothing
Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

End Sub

________________________________
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1168968715.743663.258000@a75g2000cwd.googlegroups.com...
Bonsoir,

Pas sur qu'il y ait de solution vraiment plus simple (peut être dans
les déclarations des isect, mais sinon je ne voit pas trop).
Le problème va être avec ta condition qui implique que ta macro soit
activée dans le cas ou Target est dans la colonne 56. Or les plages
que tu as données sont beaucoup plus vaste.
Donc tu peux mettre le code entre If Target.Count > 1 Then Exit Sub et
If Target.Column <> 56 Then Exit Sub
Quelques explications :

Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))

Ca controle juste que la cellule est comprises dans les ranges

If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

Si Target (qui est la cellule sélectionnée) est dans au moins une des
4 plages, alors ca lance la macro cree_raccourci, sinon appelle
enleve_raccourci, qui elle supprime le raccourci.

C'est tout !

sinon, les macros suivantes, que tu mets dans un module standart :

Créé le raccourci

Sub cree_raccourci()
Application.OnKey "~", "MonRaccourci"
End Sub

Remet l'action de la touche Enter par defaut

Sub enleve_raccourci()
Application.OnKey "~"
End Sub

Est appellé par la touche Enter

Sub MonRaccourci()
Selection.Font.ColorIndex = 3
Selection.Offset

Erico,

Peut être, mais je ne

Trop compliqué pour moi et trop risqué!


C'est pas possible d'avoir une macro plus simple.

Merci!



"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1168885907.796060.9770@38g2000cwa.googlegroups.com...
Hello,

Une possibilité, à intégrer dans ta macro :

Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))
If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

Et il faut que tu créés deux macro (dans un module standart) :

Sub cree_raccourci()
Application.OnKey "~", "MonRaccourci"
End Sub

Sub enleve_raccourci()
Application.OnKey "~"
End Sub

Sub MonRaccourci()
Selection.Font.ColorIndex = 3
Selection.Offset(1, 0).Select
End Sub


Par contre je ne suis pas sur que ce soit comptatible avec ta 2eme
condition If Target.Column <> 56

Bonjour à tous,

J'aimerais rajouter une macro qui va mettre en caractères rouges a
chaque
fois que je fais "enter" au clavier.

Mettons dans les cellules suivantes:
A17 à BJ90
A96 à BJ141
A146 BJ166
A172 à BJ192

Et j'aimerais intégré cette macro dans la macro déjà existante de la
feuille.
Merci!

Voici la macro existante:
______________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Regie" '__________désactive la
protection
'ActiveSheet.Unprotect
If Target.Count > 1 Then Exit Sub
If Target.Column <> 56 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value +
Target.Value
ActiveSheet.Protect Password:="Regie" '______________ l'active
'ActiveSheet.Protect
End Sub

Je viens de découvrir un autre problème,

J'ai un autre fichier d'ouvert sans cette macro et quand je modifie une
cellule , il change en rouge!!!!!!!!!!!!!!

Je ne COMPREND RIENNNNNNNN!!!!!



"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
uMe%23NX9OHHA.1276@TK2MSFTNGP04.phx.gbl...

Woowww!!!


Enfin, ça l'air de fonctionné sauf que des fois, je fais une première
saisie et ça le met pas en rouge et je le refait et là ça fonctionne,
pourquoi?

Un gros merci



"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1169199775.403097.69120@q2g2000cwa.googlegroups.com...
Normal que ce ne fasse rien. Ta macro s'arrete si la cellule n'est pas
dans la colonne 56. Donc avec les plages que tu as mis, forcément ca
ne marchera pas.
Ca dépend des controles que tu veux effectuer pour que ca marche.
Comme je te l'ai indiqué, pour moi le plus logique serait de la mettre
juste après

If Target.Count > 1 Then Exit Sub

Mais relis ta macro, et mais ce que je te propose à un endroit qui
correspond à tes besoins, en fonction des critères que tu indiques

ça ne fonctionne pas et voici la macro:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Regie" '__________désactive la
protection
If Target.Count > 1 Then Exit Sub
If Target.Column <> 56 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value
ActiveSheet.Protect Password:="Regie" '______________ l'active
Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))
If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing
Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

End Sub

________________________________
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1168968715.743663.258000@a75g2000cwd.googlegroups.com...
Bonsoir,

Pas sur qu'il y ait de solution vraiment plus simple (peut être dans
les déclarations des isect, mais sinon je ne voit pas trop).
Le problème va être avec ta condition qui implique que ta macro soit
activée dans le cas ou Target est dans la colonne 56. Or les plages
que tu as données sont beaucoup plus vaste.
Donc tu peux mettre le code entre If Target.Count > 1 Then Exit Sub et
If Target.Column <> 56 Then Exit Sub
Quelques explications :

Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))

Ca controle juste que la cellule est comprises dans les ranges

If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

Si Target (qui est la cellule sélectionnée) est dans au moins une des
4 plages, alors ca lance la macro cree_raccourci, sinon appelle
enleve_raccourci, qui elle supprime le raccourci.

C'est tout !

sinon, les macros suivantes, que tu mets dans un module standart :

Créé le raccourci

Sub cree_raccourci()
Application.OnKey "~", "MonRaccourci"
End Sub

Remet l'action de la touche Enter par defaut

Sub enleve_raccourci()
Application.OnKey "~"
End Sub

Est appellé par la touche Enter

Sub MonRaccourci()
Selection.Font.ColorIndex = 3
Selection.Offset

Erico,

Peut être, mais je ne

Trop compliqué pour moi et trop risqué!


C'est pas possible d'avoir une macro plus simple.

Merci!



"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1168885907.796060.9770@38g2000cwa.googlegroups.com...
Hello,

Une possibilité, à intégrer dans ta macro :

Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))
If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

Et il faut que tu créés deux macro (dans un module standart) :

Sub cree_raccourci()
Application.OnKey "~", "MonRaccourci"
End Sub

Sub enleve_raccourci()
Application.OnKey "~"
End Sub

Sub MonRaccourci()
Selection.Font.ColorIndex = 3
Selection.Offset(1, 0).Select
End Sub


Par contre je ne suis pas sur que ce soit comptatible avec ta 2eme
condition If Target.Column <> 56

Bonjour à tous,

J'aimerais rajouter une macro qui va mettre en caractères rouges a
chaque
fois que je fais "enter" au clavier.

Mettons dans les cellules suivantes:
A17 à BJ90
A96 à BJ141
A146 BJ166
A172 à BJ192

Et j'aimerais intégré cette macro dans la macro déjà existante de la
feuille.
Merci!

Voici la macro existante:
______________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Regie" '__________désactive la
protection
'ActiveSheet.Unprotect
If Target.Count > 1 Then Exit Sub
If Target.Column <> 56 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value +
Target.Value
ActiveSheet.Protect Password:="Regie" '______________ l'active
'ActiveSheet.Protect
End Sub

Hello,

Je viens de relire ton problème, et j'aurais un complément d'info à
demander :
est ce que tu veux que ca créé un raccourci lorsdque tu appuis sur
Enter, ou tu veux mettre en rouge toute modification des cellule dans
les plages indiquées. La différence est que si tu quitte la cellule
en appuyant sur la touche TAB, alors ca ne mettra pas la police en
rouge, ni si tu quitte la cellule en cliquant sur une autre.

Dans le deuxième cas (ou c'est chaque changement qui doit être
marqué, quelque soit la touche pressée pour sortir), tu n'a pas
besoin d'un raccourci, mais tu dois juste mettre un truc comme ca :

If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is _
Nothing _
Or Not isect4 Is Nothing Then Target.Font.ColorIndex = 3

A la place du If Not isect1 Is Nothing ........ End If

Je viens de découvrir un autre problème,

J'ai un autre fichier d'ouvert sans cette macro et quand je modifie une
cellule , il change en rouge!!!!!!!!!!!!!!

Je ne COMPREND RIENNNNNNNN!!!!!



"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
uMe%23NX9OHHA.1276@TK2MSFTNGP04.phx.gbl...

Woowww!!!


Enfin, ça l'air de fonctionné sauf que des fois, je fais une premi ère
saisie et ça le met pas en rouge et je le refait et là ça fonctio nne,
pourquoi?

Un gros merci



"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1169199775.403097.69120@q2g2000cwa.googlegroups.com...
Normal que ce ne fasse rien. Ta macro s'arrete si la cellule n'est pas
dans la colonne 56. Donc avec les plages que tu as mis, forcément ca
ne marchera pas.
Ca dépend des controles que tu veux effectuer pour que ca marche.
Comme je te l'ai indiqué, pour moi le plus logique serait de la mettre
juste après

If Target.Count > 1 Then Exit Sub

Mais relis ta macro, et mais ce que je te propose à un endroit qui
correspond à tes besoins, en fonction des critères que tu indiques

ça ne fonctionne pas et voici la macro:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Regie" '__________désactive la
protection
If Target.Count > 1 Then Exit Sub
If Target.Column <> 56 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.V alue
ActiveSheet.Protect Password:="Regie" '______________ l'active
Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))
If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing
Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

End Sub

________________________________
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1168968715.743663.258000@a75g2000cwd.googlegroups.com...
Bonsoir,

Pas sur qu'il y ait de solution vraiment plus simple (peut être dans
les déclarations des isect, mais sinon je ne voit pas trop).
Le problème va être avec ta condition qui implique que ta macro so it
activée dans le cas ou Target est dans la colonne 56. Or les plages
que tu as données sont beaucoup plus vaste.
Donc tu peux mettre le code entre If Target.Count > 1 Then Exit Sub et
If Target.Column <> 56 Then Exit Sub
Quelques explications :

Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))

Ca controle juste que la cellule est comprises dans les ranges

If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

Si Target (qui est la cellule sélectionnée) est dans au moins une des
4 plages, alors ca lance la macro cree_raccourci, sinon appelle
enleve_raccourci, qui elle supprime le raccourci.

C'est tout !

sinon, les macros suivantes, que tu mets dans un module standart :

Créé le raccourci

Sub cree_raccourci()
Application.OnKey "~", "MonRaccourci"
End Sub

Remet l'action de la touche Enter par defaut

Sub enleve_raccourci()
Application.OnKey "~"
End Sub

Est appellé par la touche Enter

Sub MonRaccourci()
Selection.Font.ColorIndex = 3
Selection.Offset

Erico,

Peut être, mais je ne

Trop compliqué pour moi et trop risqué!


C'est pas possible d'avoir une macro plus simple.

Merci!



"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1168885907.796060.9770@38g2000cwa.googlegroups.com...
Hello,

Une possibilité, à intégrer dans ta macro :

Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))
If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

Et il faut que tu créés deux macro (dans un module standart) :

Sub cree_raccourci()
Application.OnKey "~", "MonRaccourci"
End Sub

Sub enleve_raccourci()
Application.OnKey "~"
End Sub

Sub MonRaccourci()
Selection.Font.ColorIndex = 3
Selection.Offset(1, 0).Select
End Sub


Par contre je ne suis pas sur que ce soit comptatible avec ta 2eme
condition If Target.Column <> 56

Bonjour à tous,

J'aimerais rajouter une macro qui va mettre en caractères rouges a
chaque
fois que je fais "enter" au clavier.

Mettons dans les cellules suivantes:
A17 à BJ90
A96 à BJ141
A146 BJ166
A172 à BJ192

Et j'aimerais intégré cette macro dans la macro déjà exist ante de la
feuille.
Merci!

Voici la macro existante:
______________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Regie" '__________désacti ve la
protection
'ActiveSheet.Unprotect
If Target.Count > 1 Then Exit Sub
If Target.Column <> 56 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value +
Target.Value
ActiveSheet.Protect Password:="Regie" '______________ l'acti ve
'ActiveSheet.Protect
End Sub

Ben non, aucun raccourcis!!!!!

Juste tout changement dans une cellule dans la zone déterminée.

Donc, j'utilise ta formule ci-bas?

Je vais essayer ça lundi et je te remercie infiniment.

À lundi!

Érico de montréal


"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1169226455.463913.195810@l53g2000cwa.googlegroups.com...
Hello,

Je viens de relire ton problème, et j'aurais un complément d'info à
demander :
est ce que tu veux que ca créé un raccourci lorsdque tu appuis sur
Enter, ou tu veux mettre en rouge toute modification des cellule dans
les plages indiquées. La différence est que si tu quitte la cellule
en appuyant sur la touche TAB, alors ca ne mettra pas la police en
rouge, ni si tu quitte la cellule en cliquant sur une autre.

Dans le deuxième cas (ou c'est chaque changement qui doit être
marqué, quelque soit la touche pressée pour sortir), tu n'a pas
besoin d'un raccourci, mais tu dois juste mettre un truc comme ca :

If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is _
Nothing _
Or Not isect4 Is Nothing Then Target.Font.ColorIndex = 3

A la place du If Not isect1 Is Nothing ........ End If

Je viens de découvrir un autre problème,

J'ai un autre fichier d'ouvert sans cette macro et quand je modifie une
cellule , il change en rouge!!!!!!!!!!!!!!

Je ne COMPREND RIENNNNNNNN!!!!!



"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
uMe%23NX9OHHA.1276@TK2MSFTNGP04.phx.gbl...

Woowww!!!


Enfin, ça l'air de fonctionné sauf que des fois, je fais une première
saisie et ça le met pas en rouge et je le refait et là ça fonctionne,
pourquoi?

Un gros merci



"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1169199775.403097.69120@q2g2000cwa.googlegroups.com...
Normal que ce ne fasse rien. Ta macro s'arrete si la cellule n'est pas
dans la colonne 56. Donc avec les plages que tu as mis, forcément ca
ne marchera pas.
Ca dépend des controles que tu veux effectuer pour que ca marche.
Comme je te l'ai indiqué, pour moi le plus logique serait de la mettre
juste après

If Target.Count > 1 Then Exit Sub

Mais relis ta macro, et mais ce que je te propose à un endroit qui
correspond à tes besoins, en fonction des critères que tu indiques

ça ne fonctionne pas et voici la macro:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Regie" '__________désactive la
protection
If Target.Count > 1 Then Exit Sub
If Target.Column <> 56 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value +
Target.Value
ActiveSheet.Protect Password:="Regie" '______________ l'active
Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))
If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing
Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

End Sub

________________________________
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1168968715.743663.258000@a75g2000cwd.googlegroups.com...
Bonsoir,

Pas sur qu'il y ait de solution vraiment plus simple (peut être dans
les déclarations des isect, mais sinon je ne voit pas trop).
Le problème va être avec ta condition qui implique que ta macro soit
activée dans le cas ou Target est dans la colonne 56. Or les plages
que tu as données sont beaucoup plus vaste.
Donc tu peux mettre le code entre If Target.Count > 1 Then Exit Sub et
If Target.Column <> 56 Then Exit Sub
Quelques explications :

Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))

Ca controle juste que la cellule est comprises dans les ranges

If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

Si Target (qui est la cellule sélectionnée) est dans au moins une des
4 plages, alors ca lance la macro cree_raccourci, sinon appelle
enleve_raccourci, qui elle supprime le raccourci.

C'est tout !

sinon, les macros suivantes, que tu mets dans un module standart :

Créé le raccourci

Sub cree_raccourci()
Application.OnKey "~", "MonRaccourci"
End Sub

Remet l'action de la touche Enter par defaut

Sub enleve_raccourci()
Application.OnKey "~"
End Sub

Est appellé par la touche Enter

Sub MonRaccourci()
Selection.Font.ColorIndex = 3
Selection.Offset

Erico,

Peut être, mais je ne

Trop compliqué pour moi et trop risqué!


C'est pas possible d'avoir une macro plus simple.

Merci!



"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
1168885907.796060.9770@38g2000cwa.googlegroups.com...
Hello,

Une possibilité, à intégrer dans ta macro :

Set isect1 = Application.Intersect(Target, Range("A17:BJ90"))
Set isect2 = Application.Intersect(Target, Range("A96:BJ141"))
Set isect3 = Application.Intersect(Target, Range("A146:BJ166"))
Set isect4 = Application.Intersect(Target, Range("A172:BJ192"))
If Not isect1 Is Nothing Or Not isect2 Is Nothing Or Not isect3 Is
Nothing Or Not isect4 Is Nothing Then
cree_raccourci
Else
enleve_raccourci
End If

Et il faut que tu créés deux macro (dans un module standart) :

Sub cree_raccourci()
Application.OnKey "~", "MonRaccourci"
End Sub

Sub enleve_raccourci()
Application.OnKey "~"
End Sub

Sub MonRaccourci()
Selection.Font.ColorIndex = 3
Selection.Offset(1, 0).Select
End Sub


Par contre je ne suis pas sur que ce soit comptatible avec ta 2eme
condition If Target.Column <> 56

Bonjour à tous,

J'aimerais rajouter une macro qui va mettre en caractères rouges a
chaque
fois que je fais "enter" au clavier.

Mettons dans les cellules suivantes:
A17 à BJ90
A96 à BJ141
A146 BJ166
A172 à BJ192

Et j'aimerais intégré cette macro dans la macro déjà existante de
la
feuille.
Merci!

Voici la macro existante:
______________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Regie" '__________désactive la
protection
'ActiveSheet.Unprotect
If Target.Count > 1 Then Exit Sub
If Target.Column <> 56 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value +
Target.Value
ActiveSheet.Protect Password:="Regie" '______________ l'active
'ActiveSheet.Protect
End Sub