Microsoft 365 Afficher ligne

Marvin57 · 3 Février 2024

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 · 3 Février 2024

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

Alors placez dans le code de la feuille :

VB:

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

job75 · 3 Février 2024

Bonjour,

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

A+

Marvin57 · 3 Février 2024

job75 à dit:
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 · 3 Février 2024

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

Alors placez dans le code de la feuille :

VB:

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 · 3 Février 2024

job75 à dit:
Ah oui pardon, j'avais mal regardé la colonne A.

Alors placez dans le code de la feuille :

VB:

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 · 3 Février 2024

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

JHA

Marvin57 · 3 Février 2024

JHA à dit:
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

Microsoft 365 Afficher ligne

Marvin57

XLDnaute Occasionnel

Pièces jointes

job75

job75

XLDnaute Barbatruc

Marvin57

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Marvin57

XLDnaute Occasionnel

JHA

XLDnaute Barbatruc

Pièces jointes

Marvin57

XLDnaute Occasionnel

Discussions similaires