Afficher une colonne
Résolu/Fermé
JCB40
Messages postés
2878
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 avril 2024
-
Modifié le 31 oct. 2019 à 22:14
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 1 nov. 2019 à 09:44
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 1 nov. 2019 à 09:44
A voir également:
- Afficher une colonne
- Déplacer une colonne excel - Guide
- Colonne word - Guide
- Figer une colonne excel - Guide
- Additionner colonne excel - Guide
- Afficher mot de passe wifi android - Guide
2 réponses
yg_be
Messages postés
22717
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
22 avril 2024
1 474
1 nov. 2019 à 00:03
1 nov. 2019 à 00:03
bonjour, apparaître comment à l'écran? quel moment?
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
1 nov. 2019 à 09:37
1 nov. 2019 à 09:37
Bonjour,
comme ceci déclenché au double clic sur B1:
Voilà
comme ceci déclenché au double clic sur B1:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim madate As Date
If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
madate = Format(Target.Value, "dd/mm/yy")
Range("A4").Value = madate
Range("B4").FormulaR1C1 = "=RC[-1]+1"
Range("B4").AutoFill Destination:=Range("B4:AF4"), Type:=xlFillDefault
End If
End Sub
Voilà
JCB40
Messages postés
2878
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 avril 2024
461
1 nov. 2019 à 09:44
1 nov. 2019 à 09:44
Bonjour
Merci pour ta réponse
exactement ce que je souhaitais
Bonne journée
Cordialement
Merci pour ta réponse
exactement ce que je souhaitais
Bonne journée
Cordialement
