Decodage

[david.ridelaire]

Quelqu'un aurait-il l'amabilité de me traduire la formule ci-jointe

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Rows.Count = 1 Then
If Target.Offset(0, 7) = "" Then Target.Offset(0, 7) = Date
End If
End Sub

d'avance merci

DAVID

 

[pierrejean]

Re : Decodage

bonjour david

' se produit lorsque la feuille change
Private Sub Worksheet_Change(ByVal Target As Range)
' si la cellule ayant provoqué le changement est dans la 1ere colonne
' et si une seule cellule est concernée alors
If Target.Column = 1 And Target.Rows.Count = 1 Then
' si la cellule située 7 colonnes a droite de la cellule ayant provoqué .. est vide
' alors la date du jour est inscrite dans cette cellule
If Target.Offset(0, 7) = "" Then Target.Offset(0, 7) = Date
End If
End Sub

 

[Gorfael]

Re : Decodage

Quelqu'un aurait-il l'amabilité de me traduire la formule ci-jointe

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Rows.Count = 1 Then
If Target.Offset(0, 7) = "" Then Target.Offset(0, 7) = Date
End If
End Sub

d'avance merci

DAVID

Salut
c'est pas une formule, c'est une macro 😀
si la plage de cellules modifiées n'est que d'une cellule de la colonne A
si la cellule, même ligne, 7 colonnes à droite ("H") est vide, la remplir avec la date du jour (date du micro)
A+

 

[david.ridelaire]

Re : Decodage

merci à tous les 2

david