Bonjour,
Une plage "saisie" contient (ou pas) des valeurs numériques.
Est-il possible d'executer une macro si l'on remplace une valeur par une
nouvelle valeur inférieure.
Je saisie une valeur dans une cellule vide, il ne se passe rien.
Je remplace 8 par 9 il ne se passe rien.
Je remplace 4 par 3 : declenchement macro
Et-ce pour n'importe quelle cellule de "saisie"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonsoir,
Déclenche une macro si chiffre saisi inférieur au chiffre actuel
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then If Target < CDbl([mémo]) Then MsgBox "coucou" End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr( 34) & Target.Value & Chr(34) End If End Sub
http://cjoint.com/?cpvqZBioTw
Cordialement JB
On 15 fév, 20:51, "Domi" wrote:
Bonjour, Une plage "saisie" contient (ou pas) des valeurs numériques. Est-il possible d'executer une macro si l'on remplace une valeur par une nouvelle valeur inférieure. Je saisie une valeur dans une cellule vide, il ne se passe rien. Je remplace 8 par 9 il ne se passe rien. Je remplace 4 par 3 : declenchement macro Et-ce pour n'importe quelle cellule de "saisie"
Merci Domi
Bonsoir,
Déclenche une macro si chiffre saisi inférieur au chiffre actuel
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
If Target < CDbl([mémo]) Then
MsgBox "coucou"
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr( 34)
& Target.Value & Chr(34)
End If
End Sub
http://cjoint.com/?cpvqZBioTw
Cordialement JB
On 15 fév, 20:51, "Domi" <scra...@free.fr> wrote:
Bonjour,
Une plage "saisie" contient (ou pas) des valeurs numériques.
Est-il possible d'executer une macro si l'on remplace une valeur par une
nouvelle valeur inférieure.
Je saisie une valeur dans une cellule vide, il ne se passe rien.
Je remplace 8 par 9 il ne se passe rien.
Je remplace 4 par 3 : declenchement macro
Et-ce pour n'importe quelle cellule de "saisie"
Déclenche une macro si chiffre saisi inférieur au chiffre actuel
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then If Target < CDbl([mémo]) Then MsgBox "coucou" End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr( 34) & Target.Value & Chr(34) End If End Sub
http://cjoint.com/?cpvqZBioTw
Cordialement JB
On 15 fév, 20:51, "Domi" wrote:
Bonjour, Une plage "saisie" contient (ou pas) des valeurs numériques. Est-il possible d'executer une macro si l'on remplace une valeur par une nouvelle valeur inférieure. Je saisie une valeur dans une cellule vide, il ne se passe rien. Je remplace 8 par 9 il ne se passe rien. Je remplace 4 par 3 : declenchement macro Et-ce pour n'importe quelle cellule de "saisie"
Merci Domi
Domi
Impec ! Merci Domi
"JB" a écrit dans le message de news:
Bonsoir,
Déclenche une macro si chiffre saisi inférieur au chiffre actuel
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then If Target < CDbl([mémo]) Then MsgBox "coucou" End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34) End If End Sub
http://cjoint.com/?cpvqZBioTw
Cordialement JB
On 15 fév, 20:51, "Domi" wrote:
Bonjour, Une plage "saisie" contient (ou pas) des valeurs numériques. Est-il possible d'executer une macro si l'on remplace une valeur par une nouvelle valeur inférieure. Je saisie une valeur dans une cellule vide, il ne se passe rien. Je remplace 8 par 9 il ne se passe rien. Je remplace 4 par 3 : declenchement macro Et-ce pour n'importe quelle cellule de "saisie"
Merci Domi
Impec !
Merci
Domi
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1171570662.029218.93520@v45g2000cwv.googlegroups.com...
Bonsoir,
Déclenche une macro si chiffre saisi inférieur au chiffre actuel
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
If Target < CDbl([mémo]) Then
MsgBox "coucou"
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
& Target.Value & Chr(34)
End If
End Sub
http://cjoint.com/?cpvqZBioTw
Cordialement JB
On 15 fév, 20:51, "Domi" <scra...@free.fr> wrote:
Bonjour,
Une plage "saisie" contient (ou pas) des valeurs numériques.
Est-il possible d'executer une macro si l'on remplace une valeur par une
nouvelle valeur inférieure.
Je saisie une valeur dans une cellule vide, il ne se passe rien.
Je remplace 8 par 9 il ne se passe rien.
Je remplace 4 par 3 : declenchement macro
Et-ce pour n'importe quelle cellule de "saisie"
Déclenche une macro si chiffre saisi inférieur au chiffre actuel
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then If Target < CDbl([mémo]) Then MsgBox "coucou" End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34) End If End Sub
http://cjoint.com/?cpvqZBioTw
Cordialement JB
On 15 fév, 20:51, "Domi" wrote:
Bonjour, Une plage "saisie" contient (ou pas) des valeurs numériques. Est-il possible d'executer une macro si l'on remplace une valeur par une nouvelle valeur inférieure. Je saisie une valeur dans une cellule vide, il ne se passe rien. Je remplace 8 par 9 il ne se passe rien. Je remplace 4 par 3 : declenchement macro Et-ce pour n'importe quelle cellule de "saisie"
