Microsoft 365 Afficher ligne

Marvin57

XLDnaute Occasionnel
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
 

Pièces jointes

  • Marvin57 trouver ligne.xlsm
    9.7 KB · Affichages: 7
Solution
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

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
9
Affichages
243
Réponses
2
Affichages
281
Réponses
2
Affichages
221

Statistiques des forums

Discussions
313 206
Messages
2 096 215
Membres
106 534
dernier inscrit
JOACHIM N T