Afficher une colonne
Résolu
JCB40
Messages postés
3058
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3058 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3058 Date d'inscription Statut Membre Dernière intervention -
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
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir
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
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir
2 réponses
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour, apparaître comment à l'écran? quel moment? -
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à
