Bonjour à tous,
Comment réaliser une procédure qui permettrait de réaliser différents tests sur la cellule sélectionnée quand le contenu change suite à une action de l’utilisateur lui-même ?
Description du test :
- temps que le contenu est plus petit que 1, on ne peut pas quitter la cellule sélectionnée.
- des que le contenu de la cellule est supérieur à 1 et qu’il est différent de celui d’une autre cellule indentifiée, ALORS la macro déplace le curseur dans une cellule définie, SINON on reste sur la même cellule + MsgBox
j’ai essayé quelque chose de ce genre, mais ça ne fonctionne pas !
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
MsgBox "F2 2a Effort connus & Dia.Alésage NonVide GoTo cellule TIGE"
If Range("H1").Value = 1 And Target.select [Range("U3")] > 1 Then Range("U4").Select
MsgBox "F2 3a Effort connus & Dia.tige vide, alors aucun déplacement possible"
If Range("H1").Value = 1 And Target.select [Range("U4")] < 1 Then Target.select [Range("U4")]
MsgBox "F2 3b Effort connus & Dia.tige Over_Size, alors retour cellule TIGE & MsgBox"
If Range("H1").Value = 1 And Target.select [Range("U4")] > Range("U3") Then Target.select [Range("U4")]: MsgBox “Montage”
MsgBox "F2 3c Effort connus & Dia.Tige complété, alors go to cellule EFFORT POUSSEE"
If Range("H1").Value = 1 And Target.select [Range("U4")] > 1 Then Range("U5").Select
Et ainsi de suite pour les autres cellules concernées…
Application.EnableEvents = True
End Sub
Merci d’avance pour vos réponses,
@+
Comment réaliser une procédure qui permettrait de réaliser différents tests sur la cellule sélectionnée quand le contenu change suite à une action de l’utilisateur lui-même ?
Description du test :
- temps que le contenu est plus petit que 1, on ne peut pas quitter la cellule sélectionnée.
- des que le contenu de la cellule est supérieur à 1 et qu’il est différent de celui d’une autre cellule indentifiée, ALORS la macro déplace le curseur dans une cellule définie, SINON on reste sur la même cellule + MsgBox
j’ai essayé quelque chose de ce genre, mais ça ne fonctionne pas !
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
MsgBox "F2 2a Effort connus & Dia.Alésage NonVide GoTo cellule TIGE"
If Range("H1").Value = 1 And Target.select [Range("U3")] > 1 Then Range("U4").Select
MsgBox "F2 3a Effort connus & Dia.tige vide, alors aucun déplacement possible"
If Range("H1").Value = 1 And Target.select [Range("U4")] < 1 Then Target.select [Range("U4")]
MsgBox "F2 3b Effort connus & Dia.tige Over_Size, alors retour cellule TIGE & MsgBox"
If Range("H1").Value = 1 And Target.select [Range("U4")] > Range("U3") Then Target.select [Range("U4")]: MsgBox “Montage”
MsgBox "F2 3c Effort connus & Dia.Tige complété, alors go to cellule EFFORT POUSSEE"
If Range("H1").Value = 1 And Target.select [Range("U4")] > 1 Then Range("U5").Select
Et ainsi de suite pour les autres cellules concernées…
Application.EnableEvents = True
End Sub
Merci d’avance pour vos réponses,
@+