Afficher une colonne [Résolu]

Messages postés
1261
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 novembre 2019
-
Bonjour,
Je cherche un code VBA pour rechercher une colonne en fonction d'une cellule
si B1 se trouve dans la ligne 4 la colonne ou se trouve cette date doit apparaitre à l'écran
Si vous avez la solution je suis preneur
https://www.cjoint.com/c/IJFuZqv2nih
Merci pour votre aide
Cordialement


Configuration: Windows / Firefox 70.0


Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
8909
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
12 novembre 2019
449
1
Merci
bonjour, apparaître comment à l'écran? quel moment?

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 70872 internautes nous ont dit merci ce mois-ci

Commenter la réponse de yg_be
Messages postés
6340
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 novembre 2019
409
1
Merci
Bonjour,

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à

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 70872 internautes nous ont dit merci ce mois-ci

JCB40
Messages postés
1261
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 novembre 2019
159 -
Bonjour
Merci pour ta réponse
exactement ce que je souhaitais
Bonne journée
Cordialement
Commenter la réponse de cs_Le Pivert