Date en Excel
Résolu
Tambadou223
Messages postés
9
Date d'inscription
Statut
Membre
Dernière intervention
-
Tambadou223 Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
Tambadou223 Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
Bonjour. SVP. j'aimerais connaître les formules pour insérer des dates automatiquement comme suit :
j'ai un tableau de 2 cellules sur plusieurs lignes (A1, B1 / A2, B2, A3, B3...).
si je mets des infos dans A1 que dans B1 affiche automatiquement la date du jour où j'ai mis l'info. de même pour les autres lignes.
Merci !
j'ai un tableau de 2 cellules sur plusieurs lignes (A1, B1 / A2, B2, A3, B3...).
si je mets des infos dans A1 que dans B1 affiche automatiquement la date du jour où j'ai mis l'info. de même pour les autres lignes.
Merci !
A voir également:
- Date en Excel
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
2 réponses
Bonjour à tous,
Il n'y a pas de formules pour ça.
Il faut le faire en VBA,
ou alors dans b1, tu fais control et ;
Crdlmt
Il n'y a pas de formules pour ça.
Il faut le faire en VBA,
ou alors dans b1, tu fais control et ;
Crdlmt
Tambadou223
Messages postés
9
Date d'inscription
Statut
Membre
Dernière intervention
1
merci. c'est pratique " CTRL + ;"
Bonjour Tambadou,
Il faut passer par une macro
Macro à mettre dans le worksheet de la feuille (Alt+F11 pour ouvrir l'éditeur VBA, selectionner la feuille concernée dans l’arborescence, copier coller la macro suivante :
Cdlmnt
Via
Il faut passer par une macro
Macro à mettre dans le worksheet de la feuille (Alt+F11 pour ouvrir l'éditeur VBA, selectionner la feuille concernée dans l’arborescence, copier coller la macro suivante :
Private Sub Worksheet_Change(ByVal Target As Range) 'Macro pour la plage A1:A20, MODIFIER la plage si nécessaire dans la ligne ci-dessous If Not Intersect(Target, Range("A1:A20")) Is Nothing Then Range("B" & Target.Row) = Date End Sub
Cdlmnt
Via