XL 2019 [RÉSOLU] [Volets figés] Récupérer valeur de la première colonne visible

[pierrexcel]

Bonsoir,
volets figés sur jusqu'à la colonne AA.
Mon but est de récupérer la valeur de la première colonne visible en suivant (sur la ligne 16 // AB16;PK16 ), sans utiliser de macro.

merci.

 

[job75]

Bonjour pierrexcel; le forum,

Aucune formule Excel ne permet de savoir si une colonne est visible dans un volet, seule une macro peut faire ça.

Bonne journée.

 

[job75]

Dans le cas où la feuille est fractionnée verticalement exécutez cette macro :

Sub Test()
MsgBox "Colonne " & Split(ActiveWindow.Panes(2).VisibleRange.EntireColumn.Address(0, 0), ":")(0), , "Première colonne visible"
End Sub

Elle donne la 1ère colonne visible du 2ème volet.

 

[job75]

Cela dit il faut s'entendre sur le terme "visible".

Suppoosons que la macro affiche "Colonne AD" pour la 1ère colonne visible.

Sélectionnez la colonne AD et clic droit => Masquer.

Relancez la macro, elle affiche toujours "Colonne AD".

 

[pierrexcel]

Merci de votre réponse.
Et avec une barre de défilement de laquelle on récupèrerait la position du curseur?

 

[job75]

Et avec une barre de défilement de laquelle on récupèrerait la position du curseur?

Faites fonctionner l'enregistreur de macro et voyez.

 

[pierrexcel]

ça marche parfaitement, j'aimerais renvoyer la valeur de cette première colonne visible et de sa 16eme ligne dans une case en permanence.

 

[job75]

Qu'entendez-vous par valeur ?

De toute façon ce ne sera pas "en permanence", il faudra mettre à jour en exécutant la macro.

 

[pierrexcel]

j'entends le contenu de la cellule.

 

[job75]

j'entends le contenu de la cellule.

Sub PremiereValeur()
With Cells(16, ActiveWindow.Panes(2).VisibleRange.Column)
    MsgBox "En ligne 16 = " & IIf(.Value = "", "<vide>", .Value), , "Valeur de la première colonne visible"
End With
End Sub

 

[pierrexcel]

Merci Job75, dans la mesure où la macro ne permettait pas l'instantanéité non plus, j'ai utilisé la fonction DECALER/OFFSET pour le même résultat.

 

[job75]

dans la mesure où la macro ne permettait pas l'instantanéité non plus, j'ai utilisé la fonction DECALER/OFFSET pour le même résultat.

Quelle est la formule complète ?

 

[pierrexcel]

=SI(DECALER(AC19;0;$B$12)=0;"";DECALER(AC19;0;$B$12))

 

[job75]

Je ne vois pas le rapport avec le sujet de ce fil.

 

[pierrexcel]

Je comprends.