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
michdenis
Bonjour Cyril77,
Un petit exemple. Le code est à copier dans le module feuille où l'action se déroule :
'----------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A23").Address Then Select Case Target.Value '1, 2, 3 représente les valeurs pour lesquelles 'le reste de la procédure va s'appliquer Case 1, 2, 3 Application.EnableEvents = False 'Tu peux écrire ce que tu veux With Target.Offset(1) .Select .Value = "Ok" .Font.ColorIndex = 3 .Interior.ColorIndex = 26 'etc End With Application.EnableEvents = True End Select End If End Sub '-----------------------------------------
"cyril77" a écrit dans le message de groupe de discussion : j'aimerais que ds mon tableau si a23=à 1 ou 2 ou 3,etc que sa me renvoie a la cellule du dessous et ecrit dedans
Bonjour Cyril77,
Un petit exemple. Le code est à copier dans le module feuille
où l'action se déroule :
'-----------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A23").Address Then
Select Case Target.Value
'1, 2, 3 représente les valeurs pour lesquelles
'le reste de la procédure va s'appliquer
Case 1, 2, 3
Application.EnableEvents = False
'Tu peux écrire ce que tu veux
With Target.Offset(1)
.Select
.Value = "Ok"
.Font.ColorIndex = 3
.Interior.ColorIndex = 26
'etc
End With
Application.EnableEvents = True
End Select
End If
End Sub
'-----------------------------------------
"cyril77" <cyril77@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : FBF763FF-F345-4D15-B2F7-A37E21282FC0@microsoft.com...
j'aimerais que ds mon tableau si a23=à 1 ou 2 ou 3,etc que sa me renvoie a la
cellule du dessous et ecrit dedans
Un petit exemple. Le code est à copier dans le module feuille où l'action se déroule :
'----------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A23").Address Then Select Case Target.Value '1, 2, 3 représente les valeurs pour lesquelles 'le reste de la procédure va s'appliquer Case 1, 2, 3 Application.EnableEvents = False 'Tu peux écrire ce que tu veux With Target.Offset(1) .Select .Value = "Ok" .Font.ColorIndex = 3 .Interior.ColorIndex = 26 'etc End With Application.EnableEvents = True End Select End If End Sub '-----------------------------------------
"cyril77" a écrit dans le message de groupe de discussion : j'aimerais que ds mon tableau si a23=à 1 ou 2 ou 3,etc que sa me renvoie a la cellule du dessous et ecrit dedans