Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel gestion des modifications dans un tableau

gestion des modifications dans un tableau

3 réponses
Avatar
jean-philippe
Voil=E0 ci-dessous mon petit programme qui affiche dans une=20
colonne pr=E9vue =E0 cet effet la date de la saisie de la=20
cellule

quelqu'un peut il me dire comment puis je tester=20
l'existence d'une cellule nomm=E9 "Mois_valeur"






Private Sub WorkSheet_Change(ByVal Target As Range)
If Target.Column =3D Range("Mois_Valeur").Column Then 'c'est=20
bien la colonne Mois_valeur
Range("DateSaisie").Cells(Target.Row - 1,=20
1).Font.ColorIndex =3D 5
If IsEmpty(Range("DateSaisie").Cells(Target.Row - 1,=20
1).Value) Then
Range("DateSaisie").Cells(Target.Row - 1, 1).Value=20
=3D Now
End If
End If
End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Philippe.R
Bonjour Jean-Philippe,

Ceci convient il ,

Sub cherche_cellule()
Dim msg As Label

On Error GoTo msg
Range("Mois_valeur").Select
Exit Sub

msg:
MsgBox "La cellule recherchée n'existe pas !", vbInformation, "M.P.F.E. information"

End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"jean-philippe" a écrit dans le message de
news:0a3001c36e02$c2f916c0$
Voilà ci-dessous mon petit programme qui affiche dans une
colonne prévue à cet effet la date de la saisie de la
cellule

quelqu'un peut il me dire comment puis je tester
l'existence d'une cellule nommé "Mois_valeur"






Private Sub WorkSheet_Change(ByVal Target As Range)
If Target.Column = Range("Mois_Valeur").Column Then 'c'est
bien la colonne Mois_valeur
Range("DateSaisie").Cells(Target.Row - 1,
1).Font.ColorIndex = 5
If IsEmpty(Range("DateSaisie").Cells(Target.Row - 1,
1).Value) Then
Range("DateSaisie").Cells(Target.Row - 1, 1).Value
= Now
End If
End If
End Sub
Avatar
jean-philippe
Impec

merci

-----Message d'origine-----
Bonjour Jean-Philippe,

Ceci convient il ,

Sub cherche_cellule()
Dim msg As Label

On Error GoTo msg
Range("Mois_valeur").Select
Exit Sub

msg:
MsgBox "La cellule recherchée n'existe pas !",
vbInformation, "M.P.F.E. information"


End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"jean-philippe" a écrit
dans le message de

news:0a3001c36e02$c2f916c0$
Voilà ci-dessous mon petit programme qui affiche dans une
colonne prévue à cet effet la date de la saisie de la
cellule

quelqu'un peut il me dire comment puis je tester
l'existence d'une cellule nommé "Mois_valeur"






Private Sub WorkSheet_Change(ByVal Target As Range)
If Target.Column = Range("Mois_Valeur").Column Then 'c'est
bien la colonne Mois_valeur
Range("DateSaisie").Cells(Target.Row - 1,
1).Font.ColorIndex = 5
If IsEmpty(Range("DateSaisie").Cells(Target.Row - 1,
1).Value) Then
Range("DateSaisie").Cells(Target.Row - 1, 1).Value
= Now
End If
End If
End Sub


.



Avatar
Philippe.R
C'était avec plaisir Jean-Philippe !
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"jean-philippe" a écrit dans le message de
news:02e201c36e51$0c6c5b20$
Impec

merci

-----Message d'origine-----
Bonjour Jean-Philippe,

Ceci convient il ,

Sub cherche_cellule()
Dim msg As Label

On Error GoTo msg
Range("Mois_valeur").Select
Exit Sub

msg:
MsgBox "La cellule recherchée n'existe pas !",
vbInformation, "M.P.F.E. information"


End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"jean-philippe" a écrit
dans le message de

news:0a3001c36e02$c2f916c0$
Voilà ci-dessous mon petit programme qui affiche dans une
colonne prévue à cet effet la date de la saisie de la
cellule

quelqu'un peut il me dire comment puis je tester
l'existence d'une cellule nommé "Mois_valeur"






Private Sub WorkSheet_Change(ByVal Target As Range)
If Target.Column = Range("Mois_Valeur").Column Then 'c'est
bien la colonne Mois_valeur
Range("DateSaisie").Cells(Target.Row - 1,
1).Font.ColorIndex = 5
If IsEmpty(Range("DateSaisie").Cells(Target.Row - 1,
1).Value) Then
Range("DateSaisie").Cells(Target.Row - 1, 1).Value
= Now
End If
End If
End Sub


.