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
Jacky
Bonsoir, Dans le module de la feuille(clique droit sur l'onglet de la feuille==>visualiser le code et coller ceci dans la fenêtre de droite '---------- Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1:C1]) Is Nothing Then Application.EnableEvents = False If [A1] < [C1] Then [C1] = [A1] Application.EnableEvents = True End If End Sub '----------- -- Salutations JJ
"planquart" a écrit dans le message de news: 47161f41$
Bonjour, je voudrais que si la valeur de la cellule a1 est inférieure a celle de c1, que la valeur de c1 soit égale a celle d'a1
D'avance merci pour votre étroite collaboration.
Cordiales salutations de Christian.
Bonsoir,
Dans le module de la feuille(clique droit sur l'onglet de la
feuille==>visualiser le code et coller ceci dans la fenêtre de droite
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:C1]) Is Nothing Then
Application.EnableEvents = False
If [A1] < [C1] Then [C1] = [A1]
Application.EnableEvents = True
End If
End Sub
'-----------
--
Salutations
JJ
"planquart" <ch.planquart@bluewin.ch> a écrit dans le message de news:
47161f41$1_4@news.bluewin.ch...
Bonjour, je voudrais que si la valeur de la cellule a1 est inférieure a
celle de c1, que la valeur de c1 soit égale a celle d'a1
Bonsoir, Dans le module de la feuille(clique droit sur l'onglet de la feuille==>visualiser le code et coller ceci dans la fenêtre de droite '---------- Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1:C1]) Is Nothing Then Application.EnableEvents = False If [A1] < [C1] Then [C1] = [A1] Application.EnableEvents = True End If End Sub '----------- -- Salutations JJ
"planquart" a écrit dans le message de news: 47161f41$
Bonjour, je voudrais que si la valeur de la cellule a1 est inférieure a celle de c1, que la valeur de c1 soit égale a celle d'a1