Macro/Validation de données

Bonjour Érico,

Dans le code de la feuille module où l'action se déroule :

'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("D9").Address Then
MaMacro
End If
End Sub
'-------------------------

Sub MaMacro()
MsgBox "bonjour"
End Sub
'-------------------------

P.S. Il y a un bug sur une version d'excel (2000 de mémoire) et l'événement change ne se déclenche pas suite à la modification d'une
cellule émanant d'une liste de validation. La bidouille consiste à insérer une feuille masquée et d'introduire dans cette feuille
une formule surveillant le changement de la valeur de la feuille désirée par : = Feuil2!D9 et d'insérer le code dans la feuille
masquée.


Salutations!


"Érico" <hahaha@videotron.ca> a écrit dans le message de news: uDXi58i5FHA.2676@TK2MSFTNGP15.phx.gbl...
Bonjour,

Est-ce possible d'associer une macro sur un menu de déroulant réaliser via
"Validation de données"
Ma validation est dans la cellule D9.

Merci

Érico de Montréal

Il me marque un message d'erreur suivant:
Erreur de compilation
Nom ambigu détecté
Worksheet_change

J'ai un autre enête pareil, peut-être ceci?
_____________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Const iMin As Long = 17 'A ajuster
Const iMax As Long = 88 'A ajuster
Const iCol As Long = 13 'A ajuster
If Target.Row < iMin Then Exit Sub
If Target.Row > iMax Then Exit Sub
If Not (Target.Column = iCol) Then Exit Sub
If Not (IsNumeric(Target)) Then Exit Sub
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("D9").Address Then Range("M17:M88").Select
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=-1
Range("D9").Select
End If
End Sub
_______________________________________________________________

"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
O7I6pIj5FHA.1028@TK2MSFTNGP11.phx.gbl...

Bonjour Érico,

Dans le code de la feuille module où l'action se déroule :

'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("D9").Address Then
MaMacro
End If
End Sub
'-------------------------

Sub MaMacro()
MsgBox "bonjour"
End Sub
'-------------------------

P.S. Il y a un bug sur une version d'excel (2000 de mémoire) et
l'événement change ne se déclenche pas suite à la modification d'une
cellule émanant d'une liste de validation. La bidouille consiste à insérer
une feuille masquée et d'introduire dans cette feuille
une formule surveillant le changement de la valeur de la feuille désirée
par : = Feuil2!D9 et d'insérer le code dans la feuille
masquée.


Salutations!


"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
uDXi58i5FHA.2676@TK2MSFTNGP15.phx.gbl...
Bonjour,

Est-ce possible d'associer une macro sur un menu de déroulant réaliser via
"Validation de données"
Ma validation est dans la cellule D9.

Merci

Érico de Montréal

M. Erico est un malin... il y avait anguille sous roche !!!!

Une feuille de code ne peut contenir qu'un événement "Worksheet_Change" . Tu te dois de confiner dans la même procédure, tout le
code à cet événement.


Salutations!



"Érico" <hahaha@videotron.ca> a écrit dans le message de news: O45JKSj5FHA.2192@TK2MSFTNGP14.phx.gbl...
Il me marque un message d'erreur suivant:
Erreur de compilation
Nom ambigu détecté
Worksheet_change

J'ai un autre enête pareil, peut-être ceci?
_____________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Const iMin As Long = 17 'A ajuster
Const iMax As Long = 88 'A ajuster
Const iCol As Long = 13 'A ajuster
If Target.Row < iMin Then Exit Sub
If Target.Row > iMax Then Exit Sub
If Not (Target.Column = iCol) Then Exit Sub
If Not (IsNumeric(Target)) Then Exit Sub
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("D9").Address Then Range("M17:M88").Select
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=-1
Range("D9").Select
End If
End Sub
_______________________________________________________________

"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
O7I6pIj5FHA.1028@TK2MSFTNGP11.phx.gbl...

Bonjour Érico,

Dans le code de la feuille module où l'action se déroule :

'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("D9").Address Then
MaMacro
End If
End Sub
'-------------------------

Sub MaMacro()
MsgBox "bonjour"
End Sub
'-------------------------

P.S. Il y a un bug sur une version d'excel (2000 de mémoire) et
l'événement change ne se déclenche pas suite à la modification d'une
cellule émanant d'une liste de validation. La bidouille consiste à insérer
une feuille masquée et d'introduire dans cette feuille
une formule surveillant le changement de la valeur de la feuille désirée
par : = Feuil2!D9 et d'insérer le code dans la feuille
masquée.


Salutations!


"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
uDXi58i5FHA.2676@TK2MSFTNGP15.phx.gbl...
Bonjour,

Est-ce possible d'associer une macro sur un menu de déroulant réaliser via
"Validation de données"
Ma validation est dans la cellule D9.

Merci

Érico de Montréal

Comment je fais?


"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eyKISWj5FHA.1140@tk2msftngp13.phx.gbl...

M. Erico est un malin... il y avait anguille sous roche !!!!

Une feuille de code ne peut contenir qu'un événement "Worksheet_Change" .
Tu te dois de confiner dans la même procédure, tout le
code à cet événement.


Salutations!



"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
O45JKSj5FHA.2192@TK2MSFTNGP14.phx.gbl...
Il me marque un message d'erreur suivant:
Erreur de compilation
Nom ambigu détecté
Worksheet_change

J'ai un autre enête pareil, peut-être ceci?
_____________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Const iMin As Long = 17 'A ajuster
Const iMax As Long = 88 'A ajuster
Const iCol As Long = 13 'A ajuster
If Target.Row < iMin Then Exit Sub
If Target.Row > iMax Then Exit Sub
If Not (Target.Column = iCol) Then Exit Sub
If Not (IsNumeric(Target)) Then Exit Sub
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("D9").Address Then Range("M17:M88").Select
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=-1
Range("D9").Select
End If
End Sub
_______________________________________________________________

"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
O7I6pIj5FHA.1028@TK2MSFTNGP11.phx.gbl...

Bonjour Érico,

Dans le code de la feuille module où l'action se déroule :

'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("D9").Address Then
MaMacro
End If
End Sub
'-------------------------

Sub MaMacro()
MsgBox "bonjour"
End Sub
'-------------------------

P.S. Il y a un bug sur une version d'excel (2000 de mémoire) et
l'événement change ne se déclenche pas suite à la modification d'une
cellule émanant d'une liste de validation. La bidouille consiste à
insérer
une feuille masquée et d'introduire dans cette feuille
une formule surveillant le changement de la valeur de la feuille désirée
par : = Feuil2!D9 et d'insérer le code dans la feuille
masquée.


Salutations!


"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
uDXi58i5FHA.2676@TK2MSFTNGP15.phx.gbl...
Bonjour,

Est-ce possible d'associer une macro sur un menu de déroulant réaliser
via
"Validation de données"
Ma validation est dans la cellule D9.

Merci

Érico de Montréal

Bonsoir Erico,
Tu peux adapter ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D9")) Is Nothing Then Call toto: Exit Sub
MsgBox "Modif de D9"
End Sub
Sub toto()
MsgBox "Pas D9"
End Sub
Cette macro est appelée à chaque modification de la feuille active; on
teste si la cellule modifiée est D9; si non, on appelle toto, si oui on
exécute la suite.

@+ thierryp

Bonjour,

Est-ce possible d'associer une macro sur un menu de déroulant réaliser via
"Validation de données"
Ma validation est dans la cellule D9.

Merci

Érico de Montréal

Bonjour Érico,

'---------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Const iMin As Long = 17 'A ajuster
Const iMax As Long = 88 'A ajuster
Const iCol As Long = 13 'A ajuster
If Target.Row < iMin Then Exit Sub
If Target.Row > iMax Then Exit Sub
If Not (Target.Column = iCol) Then Exit Sub
If Not (IsNumeric(Target)) Then Exit Sub

Application.EnableEvents = False
Target.Offset(0, 1) = Target.Offset(0, 1) + Target

If Target.Address = Range("D9").Address Then
Range("M17:M88").Select
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=-1
Range("D9").Select
End If
Application.EnableEvents = True

End Sub
'---------------------------------------



Salutations!




"Érico" <hahaha@videotron.ca> a écrit dans le message de news: uaFCNcj5FHA.692@TK2MSFTNGP11.phx.gbl...
Comment je fais?


"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eyKISWj5FHA.1140@tk2msftngp13.phx.gbl...

M. Erico est un malin... il y avait anguille sous roche !!!!

Une feuille de code ne peut contenir qu'un événement "Worksheet_Change" .
Tu te dois de confiner dans la même procédure, tout le
code à cet événement.


Salutations!



"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
O45JKSj5FHA.2192@TK2MSFTNGP14.phx.gbl...
Il me marque un message d'erreur suivant:
Erreur de compilation
Nom ambigu détecté
Worksheet_change

J'ai un autre enête pareil, peut-être ceci?
_____________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Const iMin As Long = 17 'A ajuster
Const iMax As Long = 88 'A ajuster
Const iCol As Long = 13 'A ajuster
If Target.Row < iMin Then Exit Sub
If Target.Row > iMax Then Exit Sub
If Not (Target.Column = iCol) Then Exit Sub
If Not (IsNumeric(Target)) Then Exit Sub
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("D9").Address Then Range("M17:M88").Select
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=-1
Range("D9").Select
End If
End Sub
_______________________________________________________________

"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
O7I6pIj5FHA.1028@TK2MSFTNGP11.phx.gbl...

Bonjour Érico,

Dans le code de la feuille module où l'action se déroule :

'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("D9").Address Then
MaMacro
End If
End Sub
'-------------------------

Sub MaMacro()
MsgBox "bonjour"
End Sub
'-------------------------

P.S. Il y a un bug sur une version d'excel (2000 de mémoire) et
l'événement change ne se déclenche pas suite à la modification d'une
cellule émanant d'une liste de validation. La bidouille consiste à
insérer
une feuille masquée et d'introduire dans cette feuille
une formule surveillant le changement de la valeur de la feuille désirée
par : = Feuil2!D9 et d'insérer le code dans la feuille
masquée.


Salutations!


"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
uDXi58i5FHA.2676@TK2MSFTNGP15.phx.gbl...
Bonjour,

Est-ce possible d'associer une macro sur un menu de déroulant réaliser
via
"Validation de données"
Ma validation est dans la cellule D9.

Merci

Érico de Montréal

Une chose que je ne comprends pas, quand j'annule le montant qui est de
trop, il le rajoute quant même le double de ce qui était écrit avant dans la
colonne saisie.

Bizarre non?


"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23CwGgjn5FHA.2676@TK2MSFTNGP15.phx.gbl...

Bonjour Érico,

'---------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Const iMin As Long = 17 'A ajuster
Const iMax As Long = 88 'A ajuster
Const iCol As Long = 13 'A ajuster
If Target.Row < iMin Then Exit Sub
If Target.Row > iMax Then Exit Sub
If Not (Target.Column = iCol) Then Exit Sub
If Not (IsNumeric(Target)) Then Exit Sub

Application.EnableEvents = False
Target.Offset(0, 1) = Target.Offset(0, 1) + Target

If Target.Address = Range("D9").Address Then
Range("M17:M88").Select
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=-1
Range("D9").Select
End If
Application.EnableEvents = True

End Sub
'---------------------------------------



Salutations!




"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
uaFCNcj5FHA.692@TK2MSFTNGP11.phx.gbl...
Comment je fais?


"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eyKISWj5FHA.1140@tk2msftngp13.phx.gbl...

M. Erico est un malin... il y avait anguille sous roche !!!!

Une feuille de code ne peut contenir qu'un événement "Worksheet_Change" .
Tu te dois de confiner dans la même procédure, tout le
code à cet événement.


Salutations!



"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
O45JKSj5FHA.2192@TK2MSFTNGP14.phx.gbl...
Il me marque un message d'erreur suivant:
Erreur de compilation
Nom ambigu détecté
Worksheet_change

J'ai un autre enête pareil, peut-être ceci?
_____________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Const iMin As Long = 17 'A ajuster
Const iMax As Long = 88 'A ajuster
Const iCol As Long = 13 'A ajuster
If Target.Row < iMin Then Exit Sub
If Target.Row > iMax Then Exit Sub
If Not (Target.Column = iCol) Then Exit Sub
If Not (IsNumeric(Target)) Then Exit Sub
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("D9").Address Then Range("M17:M88").Select
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=-1
Range("D9").Select
End If
End Sub
_______________________________________________________________

"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
O7I6pIj5FHA.1028@TK2MSFTNGP11.phx.gbl...

Bonjour Érico,

Dans le code de la feuille module où l'action se déroule :

'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("D9").Address Then
MaMacro
End If
End Sub
'-------------------------

Sub MaMacro()
MsgBox "bonjour"
End Sub
'-------------------------

P.S. Il y a un bug sur une version d'excel (2000 de mémoire) et
l'événement change ne se déclenche pas suite à la modification d'une
cellule émanant d'une liste de validation. La bidouille consiste à
insérer
une feuille masquée et d'introduire dans cette feuille
une formule surveillant le changement de la valeur de la feuille désirée
par : = Feuil2!D9 et d'insérer le code dans la feuille
masquée.


Salutations!


"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
uDXi58i5FHA.2676@TK2MSFTNGP15.phx.gbl...
Bonjour,

Est-ce possible d'associer une macro sur un menu de déroulant réaliser
via
"Validation de données"
Ma validation est dans la cellule D9.

Merci

Érico de Montréal

Bonjour Érico,

Regarde cette ligne de code de ta procédure, c'est la seule qui effectue une opération mathématique !

Target.Offset(0, 1) = Target.Offset(0, 1) + Target

Target.Offset(0, 1) = la première cellule à droite de la cellule active.


Au delà de cela, je ne sais pas ce que tu tentes de réaliser !


Salutations!



"Érico" <hahaha@videotron.ca> a écrit dans le message de news: esbKUIw5FHA.1864@TK2MSFTNGP12.phx.gbl...
Une chose que je ne comprends pas, quand j'annule le montant qui est de
trop, il le rajoute quant même le double de ce qui était écrit avant dans la
colonne saisie.

Bizarre non?


"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23CwGgjn5FHA.2676@TK2MSFTNGP15.phx.gbl...

Bonjour Érico,

'---------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Const iMin As Long = 17 'A ajuster
Const iMax As Long = 88 'A ajuster
Const iCol As Long = 13 'A ajuster
If Target.Row < iMin Then Exit Sub
If Target.Row > iMax Then Exit Sub
If Not (Target.Column = iCol) Then Exit Sub
If Not (IsNumeric(Target)) Then Exit Sub

Application.EnableEvents = False
Target.Offset(0, 1) = Target.Offset(0, 1) + Target

If Target.Address = Range("D9").Address Then
Range("M17:M88").Select
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=-1
Range("D9").Select
End If
Application.EnableEvents = True

End Sub
'---------------------------------------



Salutations!




"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
uaFCNcj5FHA.692@TK2MSFTNGP11.phx.gbl...
Comment je fais?


"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eyKISWj5FHA.1140@tk2msftngp13.phx.gbl...

M. Erico est un malin... il y avait anguille sous roche !!!!

Une feuille de code ne peut contenir qu'un événement "Worksheet_Change" .
Tu te dois de confiner dans la même procédure, tout le
code à cet événement.


Salutations!



"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
O45JKSj5FHA.2192@TK2MSFTNGP14.phx.gbl...
Il me marque un message d'erreur suivant:
Erreur de compilation
Nom ambigu détecté
Worksheet_change

J'ai un autre enête pareil, peut-être ceci?
_____________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Const iMin As Long = 17 'A ajuster
Const iMax As Long = 88 'A ajuster
Const iCol As Long = 13 'A ajuster
If Target.Row < iMin Then Exit Sub
If Target.Row > iMax Then Exit Sub
If Not (Target.Column = iCol) Then Exit Sub
If Not (IsNumeric(Target)) Then Exit Sub
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("D9").Address Then Range("M17:M88").Select
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=-1
Range("D9").Select
End If
End Sub
_______________________________________________________________

"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
O7I6pIj5FHA.1028@TK2MSFTNGP11.phx.gbl...

Bonjour Érico,

Dans le code de la feuille module où l'action se déroule :

'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("D9").Address Then
MaMacro
End If
End Sub
'-------------------------

Sub MaMacro()
MsgBox "bonjour"
End Sub
'-------------------------

P.S. Il y a un bug sur une version d'excel (2000 de mémoire) et
l'événement change ne se déclenche pas suite à la modification d'une
cellule émanant d'une liste de validation. La bidouille consiste à
insérer
une feuille masquée et d'introduire dans cette feuille
une formule surveillant le changement de la valeur de la feuille désirée
par : = Feuil2!D9 et d'insérer le code dans la feuille
masquée.


Salutations!


"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
uDXi58i5FHA.2676@TK2MSFTNGP15.phx.gbl...
Bonjour,

Est-ce possible d'associer une macro sur un menu de déroulant réaliser
via
"Validation de données"
Ma validation est dans la cellule D9.

Merci

Érico de Montréal

Est-ce que je peux t'envoyé le fichier?


"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
O%23QjfOw5FHA.3544@TK2MSFTNGP09.phx.gbl...

Bonjour Érico,

Regarde cette ligne de code de ta procédure, c'est la seule qui effectue
une opération mathématique !

Target.Offset(0, 1) = Target.Offset(0, 1) + Target

Target.Offset(0, 1) = la première cellule à droite de la cellule active.


Au delà de cela, je ne sais pas ce que tu tentes de réaliser !


Salutations!



"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
esbKUIw5FHA.1864@TK2MSFTNGP12.phx.gbl...
Une chose que je ne comprends pas, quand j'annule le montant qui est de
trop, il le rajoute quant même le double de ce qui était écrit avant dans
la
colonne saisie.

Bizarre non?


"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23CwGgjn5FHA.2676@TK2MSFTNGP15.phx.gbl...

Bonjour Érico,

'---------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Const iMin As Long = 17 'A ajuster
Const iMax As Long = 88 'A ajuster
Const iCol As Long = 13 'A ajuster
If Target.Row < iMin Then Exit Sub
If Target.Row > iMax Then Exit Sub
If Not (Target.Column = iCol) Then Exit Sub
If Not (IsNumeric(Target)) Then Exit Sub

Application.EnableEvents = False
Target.Offset(0, 1) = Target.Offset(0, 1) + Target

If Target.Address = Range("D9").Address Then
Range("M17:M88").Select
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=-1
Range("D9").Select
End If
Application.EnableEvents = True

End Sub
'---------------------------------------



Salutations!




"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
uaFCNcj5FHA.692@TK2MSFTNGP11.phx.gbl...
Comment je fais?


"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eyKISWj5FHA.1140@tk2msftngp13.phx.gbl...

M. Erico est un malin... il y avait anguille sous roche !!!!

Une feuille de code ne peut contenir qu'un événement "Worksheet_Change"
.
Tu te dois de confiner dans la même procédure, tout le
code à cet événement.


Salutations!



"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
O45JKSj5FHA.2192@TK2MSFTNGP14.phx.gbl...
Il me marque un message d'erreur suivant:
Erreur de compilation
Nom ambigu détecté
Worksheet_change

J'ai un autre enête pareil, peut-être ceci?
_____________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Const iMin As Long = 17 'A ajuster
Const iMax As Long = 88 'A ajuster
Const iCol As Long = 13 'A ajuster
If Target.Row < iMin Then Exit Sub
If Target.Row > iMax Then Exit Sub
If Not (Target.Column = iCol) Then Exit Sub
If Not (IsNumeric(Target)) Then Exit Sub
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("D9").Address Then Range("M17:M88").Select
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=-1
Range("D9").Select
End If
End Sub
_______________________________________________________________

"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
O7I6pIj5FHA.1028@TK2MSFTNGP11.phx.gbl...

Bonjour Érico,

Dans le code de la feuille module où l'action se déroule :

'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("D9").Address Then
MaMacro
End If
End Sub
'-------------------------

Sub MaMacro()
MsgBox "bonjour"
End Sub
'-------------------------

P.S. Il y a un bug sur une version d'excel (2000 de mémoire) et
l'événement change ne se déclenche pas suite à la modification d'une
cellule émanant d'une liste de validation. La bidouille consiste à
insérer
une feuille masquée et d'introduire dans cette feuille
une formule surveillant le changement de la valeur de la feuille
désirée
par : = Feuil2!D9 et d'insérer le code dans la feuille
masquée.


Salutations!


"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
uDXi58i5FHA.2676@TK2MSFTNGP15.phx.gbl...
Bonjour,

Est-ce possible d'associer une macro sur un menu de déroulant réaliser
via
"Validation de données"
Ma validation est dans la cellule D9.

Merci

Érico de Montréal

Bonjour Érico,

Envoie le directement dans ma bal + explications + version excel


Salutations!


"Érico" <hahaha@videotron.ca> a écrit dans le message de news: uTXhf0S6FHA.2676@TK2MSFTNGP15.phx.gbl...
Est-ce que je peux t'envoyé le fichier?


"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
O%23QjfOw5FHA.3544@TK2MSFTNGP09.phx.gbl...

Bonjour Érico,

Regarde cette ligne de code de ta procédure, c'est la seule qui effectue
une opération mathématique !

Target.Offset(0, 1) = Target.Offset(0, 1) + Target

Target.Offset(0, 1) = la première cellule à droite de la cellule active.


Au delà de cela, je ne sais pas ce que tu tentes de réaliser !


Salutations!



"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
esbKUIw5FHA.1864@TK2MSFTNGP12.phx.gbl...
Une chose que je ne comprends pas, quand j'annule le montant qui est de
trop, il le rajoute quant même le double de ce qui était écrit avant dans
la
colonne saisie.

Bizarre non?


"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23CwGgjn5FHA.2676@TK2MSFTNGP15.phx.gbl...

Bonjour Érico,

'---------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Const iMin As Long = 17 'A ajuster
Const iMax As Long = 88 'A ajuster
Const iCol As Long = 13 'A ajuster
If Target.Row < iMin Then Exit Sub
If Target.Row > iMax Then Exit Sub
If Not (Target.Column = iCol) Then Exit Sub
If Not (IsNumeric(Target)) Then Exit Sub

Application.EnableEvents = False
Target.Offset(0, 1) = Target.Offset(0, 1) + Target

If Target.Address = Range("D9").Address Then
Range("M17:M88").Select
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=-1
Range("D9").Select
End If
Application.EnableEvents = True

End Sub
'---------------------------------------



Salutations!




"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
uaFCNcj5FHA.692@TK2MSFTNGP11.phx.gbl...
Comment je fais?


"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eyKISWj5FHA.1140@tk2msftngp13.phx.gbl...

M. Erico est un malin... il y avait anguille sous roche !!!!

Une feuille de code ne peut contenir qu'un événement "Worksheet_Change"
.
Tu te dois de confiner dans la même procédure, tout le
code à cet événement.


Salutations!



"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
O45JKSj5FHA.2192@TK2MSFTNGP14.phx.gbl...
Il me marque un message d'erreur suivant:
Erreur de compilation
Nom ambigu détecté
Worksheet_change

J'ai un autre enête pareil, peut-être ceci?
_____________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Const iMin As Long = 17 'A ajuster
Const iMax As Long = 88 'A ajuster
Const iCol As Long = 13 'A ajuster
If Target.Row < iMin Then Exit Sub
If Target.Row > iMax Then Exit Sub
If Not (Target.Column = iCol) Then Exit Sub
If Not (IsNumeric(Target)) Then Exit Sub
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("D9").Address Then Range("M17:M88").Select
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=-1
Range("D9").Select
End If
End Sub
_______________________________________________________________

"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
O7I6pIj5FHA.1028@TK2MSFTNGP11.phx.gbl...

Bonjour Érico,

Dans le code de la feuille module où l'action se déroule :

'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("D9").Address Then
MaMacro
End If
End Sub
'-------------------------

Sub MaMacro()
MsgBox "bonjour"
End Sub
'-------------------------

P.S. Il y a un bug sur une version d'excel (2000 de mémoire) et
l'événement change ne se déclenche pas suite à la modification d'une
cellule émanant d'une liste de validation. La bidouille consiste à
insérer
une feuille masquée et d'introduire dans cette feuille
une formule surveillant le changement de la valeur de la feuille
désirée
par : = Feuil2!D9 et d'insérer le code dans la feuille
masquée.


Salutations!


"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
uDXi58i5FHA.2676@TK2MSFTNGP15.phx.gbl...
Bonjour,

Est-ce possible d'associer une macro sur un menu de déroulant réaliser
via
"Validation de données"
Ma validation est dans la cellule D9.

Merci

Érico de Montréal