Afficher une colonne
Résolu
JCB40
Messages postés
3070
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3070 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3070 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
A voir également:
- Afficher une colonne
- Déplacer une colonne excel - Guide
- Comment trier une colonne sur excel - Guide
- Colonne word - Guide
- Afficher appdata - Guide
- Figer une colonne excel - Guide
2 réponses
yg_be
Messages postés
23437
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 587
bonjour, apparaître comment à l'écran? quel moment?
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à
