comment puis je ranger dans la cellule adjacente=20
appartenant =E9ventuellement =E0 une colonne "Date Modif" sur=20
la m=EAme ligne la date de modification de la cellule=20
active en utilisant :
Private Sub worksheet_change(ByVal Target As Range)
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
Clément Marcotte
target.offset(0,1)
"JpDupont" a écrit dans le message de news:02ad01c367fe$da180ff0$ comment puis je ranger dans la cellule adjacente appartenant éventuellement à une colonne "Date Modif" sur la même ligne la date de modification de la cellule active en utilisant :
Private Sub worksheet_change(ByVal Target As Range)
Merci
target.offset(0,1)
"JpDupont" <jeanphilippe.dupont@cegetel.fr> a écrit dans le message de
news:02ad01c367fe$da180ff0$a101280a@phx.gbl...
comment puis je ranger dans la cellule adjacente
appartenant éventuellement à une colonne "Date Modif" sur
la même ligne la date de modification de la cellule
active en utilisant :
Private Sub worksheet_change(ByVal Target As Range)
"JpDupont" a écrit dans le message de news:02ad01c367fe$da180ff0$ comment puis je ranger dans la cellule adjacente appartenant éventuellement à une colonne "Date Modif" sur la même ligne la date de modification de la cellule active en utilisant :
Private Sub worksheet_change(ByVal Target As Range)
Merci
Clément Marcotte
target.offset(0,1).value = "Bonjour"
"JpDupont" a écrit dans le message de news:02ad01c367fe$da180ff0$ comment puis je ranger dans la cellule adjacente appartenant éventuellement à une colonne "Date Modif" sur la même ligne la date de modification de la cellule active en utilisant :
Private Sub worksheet_change(ByVal Target As Range)
Merci
target.offset(0,1).value = "Bonjour"
"JpDupont" <jeanphilippe.dupont@cegetel.fr> a écrit dans le message de
news:02ad01c367fe$da180ff0$a101280a@phx.gbl...
comment puis je ranger dans la cellule adjacente
appartenant éventuellement à une colonne "Date Modif" sur
la même ligne la date de modification de la cellule
active en utilisant :
Private Sub worksheet_change(ByVal Target As Range)
"JpDupont" a écrit dans le message de news:02ad01c367fe$da180ff0$ comment puis je ranger dans la cellule adjacente appartenant éventuellement à une colonne "Date Modif" sur la même ligne la date de modification de la cellule active en utilisant :
Private Sub worksheet_change(ByVal Target As Range)
Merci
michdenis
Bonsoir JpDupont,
Essaie quelque chose dans le genre : à copier dans le module feuille où l'action se déroule
'------------------ Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range Set Rg = Intersect(Range("Date_Modif"), Target)
If Not Rg Is Nothing Then For Each c In Rg c.Offset(, 1) = Now ' or date Next Rg.Offset(, 1).EntireColumn.AutoFit End If Set Rg= Nothing End Sub '------------------
Salutations!
"JpDupont" a écrit dans le message de news:02ad01c367fe$da180ff0$ comment puis je ranger dans la cellule adjacente appartenant éventuellement à une colonne "Date Modif" sur la même ligne la date de modification de la cellule active en utilisant :
Private Sub worksheet_change(ByVal Target As Range)
Merci
Bonsoir JpDupont,
Essaie quelque chose dans le genre : à copier dans le module feuille où l'action se déroule
'------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Range("Date_Modif"), Target)
If Not Rg Is Nothing Then
For Each c In Rg
c.Offset(, 1) = Now ' or date
Next
Rg.Offset(, 1).EntireColumn.AutoFit
End If
Set Rg= Nothing
End Sub
'------------------
Salutations!
"JpDupont" <jeanphilippe.dupont@cegetel.fr> a écrit dans le message de news:02ad01c367fe$da180ff0$a101280a@phx.gbl...
comment puis je ranger dans la cellule adjacente
appartenant éventuellement à une colonne "Date Modif" sur
la même ligne la date de modification de la cellule
active en utilisant :
Private Sub worksheet_change(ByVal Target As Range)
Essaie quelque chose dans le genre : à copier dans le module feuille où l'action se déroule
'------------------ Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range Set Rg = Intersect(Range("Date_Modif"), Target)
If Not Rg Is Nothing Then For Each c In Rg c.Offset(, 1) = Now ' or date Next Rg.Offset(, 1).EntireColumn.AutoFit End If Set Rg= Nothing End Sub '------------------
Salutations!
"JpDupont" a écrit dans le message de news:02ad01c367fe$da180ff0$ comment puis je ranger dans la cellule adjacente appartenant éventuellement à une colonne "Date Modif" sur la même ligne la date de modification de la cellule active en utilisant :
Private Sub worksheet_change(ByVal Target As Range)
Merci
jean-philippe
Merci pour cette réponse
en fait mon problème est un peu plus sioux :
je suis dans une cellule D10
je souhaite incrire la date de saisie dans la cellule qui fait l'intersection entre la ligne 10 et la colonne nommé "Date_Modif"
qu'en penses tu ?
A+ jean-philippe
-----Message d'origine----- Bonsoir JpDupont,
Essaie quelque chose dans le genre : à copier dans le module feuille où l'action se déroule
'------------------ Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range Set Rg = Intersect(Range("Date_Modif"), Target)
If Not Rg Is Nothing Then For Each c In Rg c.Offset(, 1) = Now ' or date Next Rg.Offset(, 1).EntireColumn.AutoFit End If Set Rg= Nothing End Sub '------------------
Salutations!
"JpDupont" a écrit dans le message de news:02ad01c367fe$da180ff0
$
comment puis je ranger dans la cellule adjacente appartenant éventuellement à une colonne "Date Modif" sur la même ligne la date de modification de la cellule active en utilisant :
Private Sub worksheet_change(ByVal Target As Range)
Merci
.
Merci pour cette réponse
en fait mon problème est un peu plus sioux :
je suis dans une cellule D10
je souhaite incrire la date de saisie dans la cellule qui
fait l'intersection entre la ligne 10 et la colonne
nommé "Date_Modif"
qu'en penses tu ?
A+
jean-philippe
-----Message d'origine-----
Bonsoir JpDupont,
Essaie quelque chose dans le genre : à copier dans le
module feuille où l'action se déroule
'------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Range("Date_Modif"), Target)
If Not Rg Is Nothing Then
For Each c In Rg
c.Offset(, 1) = Now ' or date
Next
Rg.Offset(, 1).EntireColumn.AutoFit
End If
Set Rg= Nothing
End Sub
'------------------
Salutations!
"JpDupont" <jeanphilippe.dupont@cegetel.fr> a écrit dans
le message de news:02ad01c367fe$da180ff0
$a101280a@phx.gbl...
comment puis je ranger dans la cellule adjacente
appartenant éventuellement à une colonne "Date Modif" sur
la même ligne la date de modification de la cellule
active en utilisant :
Private Sub worksheet_change(ByVal Target As Range)
je souhaite incrire la date de saisie dans la cellule qui fait l'intersection entre la ligne 10 et la colonne nommé "Date_Modif"
qu'en penses tu ?
A+ jean-philippe
-----Message d'origine----- Bonsoir JpDupont,
Essaie quelque chose dans le genre : à copier dans le module feuille où l'action se déroule
'------------------ Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range Set Rg = Intersect(Range("Date_Modif"), Target)
If Not Rg Is Nothing Then For Each c In Rg c.Offset(, 1) = Now ' or date Next Rg.Offset(, 1).EntireColumn.AutoFit End If Set Rg= Nothing End Sub '------------------
Salutations!
"JpDupont" a écrit dans le message de news:02ad01c367fe$da180ff0
$
comment puis je ranger dans la cellule adjacente appartenant éventuellement à une colonne "Date Modif" sur la même ligne la date de modification de la cellule active en utilisant :
Private Sub worksheet_change(ByVal Target As Range)