Bonjour Érico,
Envoie le directement dans ma bal + explications + version excel
Salutations!
"Érico" a écrit dans le message de news:
Est-ce que je peux t'envoyé le fichier?
"michdenis" a écrit dans le message de news:
O%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" a écrit dans le message de news:
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" a écrit dans le message de news:
%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" a écrit dans le message de news:
Comment je fais?
"michdenis" a écrit dans le message de news: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" a écrit dans le message de news:
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" a écrit dans le message de news: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" a écrit dans le message de news:
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
Bonjour Érico,
Envoie le directement dans ma bal + explications + version excel
Salutations!
"Érico" a écrit dans le message de news:
Est-ce que je peux t'envoyé le fichier?
"michdenis" a écrit dans le message de news:
O%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" a écrit dans le message de news:
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" a écrit dans le message de news:
%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" a écrit dans le message de news:
Comment je fais?
"michdenis" a écrit dans le message de news: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" a écrit dans le message de news:
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" a écrit dans le message de news: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" a écrit dans le message de news:
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" a écrit dans le message de news:
Est-ce que je peux t'envoyé le fichier?
"michdenis" a écrit dans le message de news:
O%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" a écrit dans le message de news:
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" a écrit dans le message de news:
%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" a écrit dans le message de news:
Comment je fais?
"michdenis" a écrit dans le message de news: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" a écrit dans le message de news:
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" a écrit dans le message de news: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" a écrit dans le message de news:
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
Bonjour Érico,
Envoie le directement dans ma bal + explications + version excel
Salutations!
"Érico" a écrit dans le message de news:
Est-ce que je peux t'envoyé le fichier?
"michdenis" a écrit dans le message de news:
O%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" a écrit dans le message de news:
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" a écrit dans le message de news:
%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" a écrit dans le message de news:
Comment je fais?
"michdenis" a écrit dans le message de news: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" a écrit dans le message de news:
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" a écrit dans le message de news: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" a écrit dans le message de news:
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
BAL = mon adresse de courriel hotmail qui parait dans mon message
Salutations!
"Érico" a écrit dans le message de news:
Hein? C'est quoi ça?????
"michdenis" a écrit dans le message de news:Bonjour Érico,
Envoie le directement dans ma bal + explications + version excel
Salutations!
"Érico" a écrit dans le message de news:
Est-ce que je peux t'envoyé le fichier?
"michdenis" a écrit dans le message de news:
O%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" a écrit dans le message de news:
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" a écrit dans le message de news:
%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" a écrit dans le message de news:
Comment je fais?
"michdenis" a écrit dans le message de news: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" a écrit dans le message de news:
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" a écrit dans le message de news: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" a écrit dans le message de news:
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
BAL = mon adresse de courriel hotmail qui parait dans mon message
Salutations!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
eXlafOT6FHA.3416@TK2MSFTNGP15.phx.gbl...
Hein? C'est quoi ça?????
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OxQh6LT6FHA.2608@tk2msftngp13.phx.gbl...
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
BAL = mon adresse de courriel hotmail qui parait dans mon message
Salutations!
"Érico" a écrit dans le message de news:
Hein? C'est quoi ça?????
"michdenis" a écrit dans le message de news:Bonjour Érico,
Envoie le directement dans ma bal + explications + version excel
Salutations!
"Érico" a écrit dans le message de news:
Est-ce que je peux t'envoyé le fichier?
"michdenis" a écrit dans le message de news:
O%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" a écrit dans le message de news:
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" a écrit dans le message de news:
%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" a écrit dans le message de news:
Comment je fais?
"michdenis" a écrit dans le message de news: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" a écrit dans le message de news:
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" a écrit dans le message de news: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" a écrit dans le message de news:
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
BAL = mon adresse de courriel hotmail qui parait dans mon message
Salutations!
"Érico" a écrit dans le message de news:
Hein? C'est quoi ça?????
"michdenis" a écrit dans le message de news:Bonjour Érico,
Envoie le directement dans ma bal + explications + version excel
Salutations!
"Érico" a écrit dans le message de news:
Est-ce que je peux t'envoyé le fichier?
"michdenis" a écrit dans le message de news:
O%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" a écrit dans le message de news:
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" a écrit dans le message de news:
%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" a écrit dans le message de news:
Comment je fais?
"michdenis" a écrit dans le message de news: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" a écrit dans le message de news:
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" a écrit dans le message de news: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" a écrit dans le message de news:
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
BAL = mon adresse de courriel hotmail qui parait dans mon message
Salutations!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
eXlafOT6FHA.3416@TK2MSFTNGP15.phx.gbl...
Hein? C'est quoi ça?????
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OxQh6LT6FHA.2608@tk2msftngp13.phx.gbl...
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
BAL = mon adresse de courriel hotmail qui parait dans mon message
Salutations!
"Érico" a écrit dans le message de news:
Hein? C'est quoi ça?????
"michdenis" a écrit dans le message de news:Bonjour Érico,
Envoie le directement dans ma bal + explications + version excel
Salutations!
"Érico" a écrit dans le message de news:
Est-ce que je peux t'envoyé le fichier?
"michdenis" a écrit dans le message de news:
O%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" a écrit dans le message de news:
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" a écrit dans le message de news:
%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" a écrit dans le message de news:
Comment je fais?
"michdenis" a écrit dans le message de news: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" a écrit dans le message de news:
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" a écrit dans le message de news: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" a écrit dans le message de news:
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
Fichier retourné.
Salutations!
"Érico" a écrit dans le message de news:
C'est envoyé.
Merci
Tu dois recevoir beaucoup de pourriels avec ton email ici????
"michdenis" a écrit dans le message de news:BAL = mon adresse de courriel hotmail qui parait dans mon message
Salutations!
"Érico" a écrit dans le message de news:
Hein? C'est quoi ça?????
"michdenis" a écrit dans le message de news:Bonjour Érico,
Envoie le directement dans ma bal + explications + version excel
Salutations!
"Érico" a écrit dans le message de news:
Est-ce que je peux t'envoyé le fichier?
"michdenis" a écrit dans le message de news:
O%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" a écrit dans le message de news:
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" a écrit dans le message de news:
%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" a écrit dans le message de news:
Comment je fais?
"michdenis" a écrit dans le message de news: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" a écrit dans le message de news:
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" a écrit dans le message de news: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" a écrit dans le message de news:
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
Fichier retourné.
Salutations!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
OmnXyvT6FHA.2036@TK2MSFTNGP14.phx.gbl...
C'est envoyé.
Merci
Tu dois recevoir beaucoup de pourriels avec ton email ici????
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
Of02CST6FHA.3976@TK2MSFTNGP15.phx.gbl...
BAL = mon adresse de courriel hotmail qui parait dans mon message
Salutations!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
eXlafOT6FHA.3416@TK2MSFTNGP15.phx.gbl...
Hein? C'est quoi ça?????
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OxQh6LT6FHA.2608@tk2msftngp13.phx.gbl...
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
Fichier retourné.
Salutations!
"Érico" a écrit dans le message de news:
C'est envoyé.
Merci
Tu dois recevoir beaucoup de pourriels avec ton email ici????
"michdenis" a écrit dans le message de news:BAL = mon adresse de courriel hotmail qui parait dans mon message
Salutations!
"Érico" a écrit dans le message de news:
Hein? C'est quoi ça?????
"michdenis" a écrit dans le message de news:Bonjour Érico,
Envoie le directement dans ma bal + explications + version excel
Salutations!
"Érico" a écrit dans le message de news:
Est-ce que je peux t'envoyé le fichier?
"michdenis" a écrit dans le message de news:
O%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" a écrit dans le message de news:
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" a écrit dans le message de news:
%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" a écrit dans le message de news:
Comment je fais?
"michdenis" a écrit dans le message de news: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" a écrit dans le message de news:
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" a écrit dans le message de news: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" a écrit dans le message de news:
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
