A voir également:
- Verrouiller le contenu d'une cellule
- Verrouiller cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Word a trouvé du contenu illisible - Guide
- Excel cellule couleur si condition texte - Guide
- Fusionner le contenu de 2 cellules excel - Guide
4 réponses
Utilisateur anonyme
25 mai 2020 à 11:20
25 mai 2020 à 11:20
Bonjour
Il y a plusieurs façon de procéder, on peut même (avec un peut de boulot) faire une macro pour automatiser. Et puis cela dépend de la version d'excel...
1) Faire un "copier"/"collage" - "spécial/option" - "valeur/1213" pour ne garder que 20200525-014
2) Faire une macro du genre : (fait a la vas vite, désolé !)
Sub Figer()
'
' Figer la valeur de la formule "=TEXTE(AUJOURDHUI();"aaaammjj")&"-0" & LIGNE()-54"
'
ActiveCell.FormulaR1C1 = "=TEXT(TODAY(),""aaaammjj"")&""-0"" &ROW()-54"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Puis insérer un bouton personnalisé dans la barre de menu pour l'utiliser dans la cellule sélectionnée.
Ce sont des pistes, mais perso je ferai une macro avec incrémentation automatique du n° de facture lors de chaque création, c'est une autre histoire !
Il y a plusieurs façon de procéder, on peut même (avec un peut de boulot) faire une macro pour automatiser. Et puis cela dépend de la version d'excel...
1) Faire un "copier"/"collage" - "spécial/option" - "valeur/1213" pour ne garder que 20200525-014
2) Faire une macro du genre : (fait a la vas vite, désolé !)
Sub Figer()
'
' Figer la valeur de la formule "=TEXTE(AUJOURDHUI();"aaaammjj")&"-0" & LIGNE()-54"
'
ActiveCell.FormulaR1C1 = "=TEXT(TODAY(),""aaaammjj"")&""-0"" &ROW()-54"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Puis insérer un bouton personnalisé dans la barre de menu pour l'utiliser dans la cellule sélectionnée.
Ce sont des pistes, mais perso je ferai une macro avec incrémentation automatique du n° de facture lors de chaque création, c'est une autre histoire !
via55
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
25 mai 2020 à 11:22
25 mai 2020 à 11:22
Bonjour Adeline
Il faut une macro pour figer la date
ALT+F11 pour ouvrir l'éditeur VBA
Double-clic sur le nom de la feuille concernée dans l'arborescence
Copier coller la macro dans la page et fermer l'éditeur
Ensuite double-clic dans lac cellule ou inscrire le n°
Cdlmnt
Via
Il faut une macro pour figer la date
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Target.Value = Format(Date, "yyyymmdd") & "-0" & Target.Row - 54 End Sub
ALT+F11 pour ouvrir l'éditeur VBA
Double-clic sur le nom de la feuille concernée dans l'arborescence
Copier coller la macro dans la page et fermer l'éditeur
Ensuite double-clic dans lac cellule ou inscrire le n°
Cdlmnt
Via
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
25 mai 2020 à 11:27
25 mai 2020 à 11:27
Bonjour
Pour figer la date du jour, je pense qu'une macro est indispensable
Un exemple
https://www.cjoint.com/c/JEzjBYagOJB
Cdlmnt
Pour figer la date du jour, je pense qu'une macro est indispensable
Un exemple
https://www.cjoint.com/c/JEzjBYagOJB
Cdlmnt