|
|
|
|
Bonjour a vous amis donneurs de coups de pouce,
Je suis au taf et je passe ma journée a faire des pesées, pour ça, dans excel, par ligne, je rentre 3 valeurs dans 3 cellules et la date du jour dans la 4eme.
Ma question est : Serait il possible d'avoir une formule qui fait que que je rentre une valeur dans la premiere cellule, la date du jour soit automatiquement entrée dans la 4eme cellule ?
Merci
Oui bien sur, il suffit de mettre dans une 5ème cellule la formule suivante =aujourdhui()
|
Effectivement, je n'avais pas pensé à ça. Ta date va changer chaque jour donc ça ne va pas ce système
|
Bonjour tous,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As String, AncCell As Variant
If AncAdress <> "" Then 'pour 1ère initialisation.
On Error GoTo Sortie
If AncCell <> Range(AncAdress) Then
If Range(AncAdress).Column = 1 Then
Range(AncAdress).Offset(0, 3) = Date 'Changer le 3 pour autre colonne
End If
End If
End If
Sortie:
AncAdress = Target.Address
AncCell = Target.Value2
End Sub
La macro est configurée pour que quand tu entre une donnée en Colonne A la date actuelle est entrée dans la colonne D Il faut donc qu'il y ai une donnée dans la colonne A sinon ca marque pas. Si, par après tu fait une modif dans la colonne A la date va se réinitialiser. A+ L'expérience instruit plus sûrement que le conseil. (André Gide)
|
Comme ca...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'-------------------------------------------------------------------------
Static AncAdress As String, AncCell As Variant
If AncAdress <> "" Then 'pour 1ère initialisation.
On Error GoTo Sortie
If AncCell <> Range(AncAdress) Then
If Range(AncAdress).Column = 1 Then
Range(AncAdress).Offset(0, 3) = Date 'Changer le 3 pour autre colonne
End If
End If
End If
Sortie:
AncAdress = Target.Address
AncCell = Target.Value2
'-------------------------------------------------------------------------
If Target.Address = "$A$1" Then
liste_rincage.Show
End If
If Target.Address = "$F$1" Then
Range("F1").End(xlDown).Offset(1, 0).Activate
ActiveCell.Value = Date
End If
If Target.Address = "$K$1" Then
Range("K1").End(xlDown).Offset(1, 0).Activate
ActiveCell.Value = Date
End If
End Sub
Mettre le code que j'ai fait en 1ér parce que quand tu quite une cellule de la colonne A tu change de feuille. Les deux seront opérationnelles A+ L'expérience instruit plus sûrement que le conseil. (André Gide)
|
En bidouillant j'ai trouvé ça et ça me convient bien
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As String, AncCell As Variant
If AncAdress <> "" Then 'pour 1ère initialisation.
On Error GoTo Sortie
If AncCell <> Range(AncAdress) Then
If Range(AncAdress).Column = 2 Then
Range(AncAdress).Offset(0, 4) = Date 'Changer le 3 pour autre colonne
End If
If Range(AncAdress).Column = 7 Then
Range(AncAdress).Offset(0, 4) = Date 'Changer le 3 pour autre colonne
End If
End If
End If
Sortie:
AncAdress = Target.Address
AncCell = Target.Value2
End Sub
Je pensais pas y arriver par tatonnement, mais si ... Big Up a lermitte222 ainsi qu'a sevetbob et a eriiic Merci a vous ,pour votre reactivité et votre pointillosité et pis merci CCM !!! Salut |
Access inverse date et jour Changer le souleur excel si Dofus 2.0 date de sortie Erreure mise a jour sims 3 fichier non valide Excel si Excel 2007 vert si positif rouge si negatif Excel associer a chaque entre une valeur Excel plusieurs valeurs pour x Fonction si sur excel 2007 pour copier Formule "valeur unique" excel Mise a jour carte graphique Php date du jour Récupérer la date du jour en java Transformer date en annee excel Valeur cible cible ds un graphique excel 2007 Valeurs absolues sur excel Vb excel range value Vb excel recuperer la date
