Formule dans excel change heure automatique
Francis
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je vous explique mon problème.
Ma colonne B s'est en formule qui fait quand un certain nombre de colonnes (C a R) a quelque chose d'inscrit, elle devient, avec le chiffre 3 et je voudrais dans ma colonne A aussitôt elle devient 3 ça inscrive la date en colonne A. Mon problème est qu'aussitôt qu'une date est inscrite je ne veux plus qu'elle change.
Merci de votre aide.
Je vous explique mon problème.
Ma colonne B s'est en formule qui fait quand un certain nombre de colonnes (C a R) a quelque chose d'inscrit, elle devient, avec le chiffre 3 et je voudrais dans ma colonne A aussitôt elle devient 3 ça inscrive la date en colonne A. Mon problème est qu'aussitôt qu'une date est inscrite je ne veux plus qu'elle change.
Merci de votre aide.
A voir également:
- Formule dans excel change heure automatique
- Formule si et excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule somme excel colonne - Guide
- Excel mise en forme conditionnelle formule - Guide
- Liste déroulante excel - Guide
3 réponses
bonsoir
mettre la colonne A au format date
en A1tu fais =si(B1=3;MAINTENANT();"") et tu descends le tout par copier/coller
Crdlt
mettre la colonne A au format date
en A1tu fais =si(B1=3;MAINTENANT();"") et tu descends le tout par copier/coller
Crdlt
Malheureusement ça ne marche pas, car ça va se mettre a jour a chaque jour il faut que la date une fois inscrite reste la même.
Bonjour,
Ouvrir VBA avec Alt+F11
double click gauche sur la feuil ou sont vos donnees (ex: Feuil1)
Copier le code ci-dessous
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Col_B As Range, Cellule As Range, D_L_CR As Long
Application.ScreenUpdating = False
D_L_CR = Cells.Find("*", , , , xlByRows, xlPrevious).Row
If Not Application.Intersect(Target, Range("C1:R" & D_L_CR)) Is Nothing Then
Set Col_B = Range("B1:B" & D_L_CR)
For Each Cellule In Col_B
If Cellule = 3 Then
Cells(Cellule.Row, 1) = Date
Else
Cells(Cellule.Row, 1) = ""
End If
Next Cellule
Application.ScreenUpdating = True
End If
End Sub
Bonne suite
Ouvrir VBA avec Alt+F11
double click gauche sur la feuil ou sont vos donnees (ex: Feuil1)
Copier le code ci-dessous
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Col_B As Range, Cellule As Range, D_L_CR As Long
Application.ScreenUpdating = False
D_L_CR = Cells.Find("*", , , , xlByRows, xlPrevious).Row
If Not Application.Intersect(Target, Range("C1:R" & D_L_CR)) Is Nothing Then
Set Col_B = Range("B1:B" & D_L_CR)
For Each Cellule In Col_B
If Cellule = 3 Then
Cells(Cellule.Row, 1) = Date
Else
Cells(Cellule.Row, 1) = ""
End If
Next Cellule
Application.ScreenUpdating = True
End If
End Sub
Bonne suite