Microsoft 365 Afficher ligne

[Marvin57]

bonjour à tout le forum,

dans mon fichier ci-joint, sur l'onglet "BDD" en colonne "A" se trouve des numéros avec un step de 28.

Je cherche à placer un code, qui dès l'activation de l'onglet "BDD" se positionne sur la ligne par rapport au numéro se trouvant en cellule "C1".

Donc en court, si j'ai le numéro 4 en cellule C1 il devra se positionner sur la ligne qui a en colonne "A" le numéro 4.

Merci d'avance pour votre aide.

Marvin57

 

[job75]

Bonjour,

Ne vous moquez pas du monde et joignez un fichier qui correspond à votre demande.

A+

 

[Marvin57]

Bonjour,

Ne vous moquez pas du monde et joignez un fichier qui correspond à votre demande.

A+

Bonjour Job75

je ne vois pas ou est le problème, le fichier c'est le bon !

Tout est sur l'onglet "BDD"

 

[job75]

Ah oui pardon, j'avais mal regardé la colonne A.

Alors placez dans le code de la feuille :

Private Sub Worksheet_Activate()
Dim c As Range
Set c = [A:A].Find([C1], , xlValues, xlWhole)
Application.Goto IIf(c Is Nothing, [A1], c), True 'cadrage
End Sub

 

[Marvin57]

Ah oui pardon, j'avais mal regardé la colonne A.

Alors placez dans le code de la feuille :

Private Sub Worksheet_Activate()
Dim c As Range
Set c = [A:A].Find([C1], , xlValues, xlWhole)
Application.Goto IIf(c Is Nothing, [A1], c), True 'cadrage
End Sub

Re job75,

y a pas de soucis,

Merci beaucoup pour ce coup de main. Cela fonctionne comme voulu.👍👍

A une prochaine certainement.

Marvin57

 

[JHA]

Bonjour à tous,
Bonjour @job75
Une solution avec un lien hypertexte

JHA

 

[Marvin57]

Bonjour à tous,
Bonjour @job75
Une solution avec un lien hypertexte

JHA

Bonjour JHA

Merci à vous pour ce retour. J'ai déjà mis en place la solution de job75 qui me convient très bien car à l'activation de l'onglet cela se fait automatiquement et c'était mon souhait .

Mais, je garderai votre solution bien au chaud, on sait jamais.😉

Merci en tout cas.
Marvin57