Discussion :

[Gott49]

Bonjour,

Grand débutant du VBA je me suis fais un bouton de navigation, pour une feuille de mon fichier.

Je l'utilise pour aller directement à une ligne souhaité, et il est le suivant :

Private Sub CommandButton15_Click()
Dim Cellule As Range
Dim Ligne As Integer
Set Cellule = Sheets("BUDGET AGENCE").Range("B:B").Find("76 - ROUEN", LookAt:=xlWhole)
Ligne = Cellule.Show
UserForm1.Hide
End Sub

J'aimerais l'améliorer mais je flanche un peu.
J'aimerais que :
- La cellule qui s'affiche à l'écran soit positionnée en B3
- Lorsque j'ouvre ma boîte à bouton, celle-ci s'affiche toujours au même endroit. Je tourne à 3 écrans, et celle-ci s'affiche rarement au même endroit

Merci de votre aide

[Franc]

Salut, essaie comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton15_Click()
    Dim Cellule As Range
    Dim Ligne As Integer
    Set Cellule = Sheets("BUDGET AGENCE").Range("B:B").Find("76 - ROUEN", LookAt:=xlWhole)
    If Not Cellule Is Nothing Then
        Application.Goto Reference:=Cellule, Scroll:=True
        ActiveWindow.ScrollRow = Cellule.Row - 2
    End If
    UserForm1.Hide
End Sub

Pour afficher ton userform au même endroit, tu devrais préciser ses coordonnées .top et .left avant de l'afficher.

[deedolith]

Salut,

Si tu veux vraiment améliorer:
Trouves un meilleur nom que CommandButton15
Utilises des références explicites. Contrairement à ce que tu croits, Sheet(Sheets("BUDGET AGENCE") est une référence implicite. Elle fait référence à ActiveWorkbook.Sheets("BUDGET AGENCE"). Hors ActiveWorkbook est la classeur actif, il peut changer à tout moment (il suffit d'ouvrir ou créer un nouveau classeur).
Ta feuille n'existe que dans un seul classeur, celui qui contient le code.
Il existe une référence qui désigne cela: ThisWorkbook.

Pour des raisons de lisibilité, on va utiliser des références au plus proche vers les objets.

Donc avec un leger changement, on peut réécrire ton code de la facon suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim Wb As Excel.Workbook
Set Wb = ThisWorkbook    '// Reference vers le cClasseur qui contient le code
 
Dim Sh as Excel.Worksheet
Set Sh = Sheets("BUDGET AGENCE")    '// Reference vers la feuille
 
Dim Cellule As Excel.Range
Set Cellule = Sh.Find("76 - ROUEN", LookAt:=xlWhole)
 
Dim Ligne As Integer
Ligne = Cellule.Show
Me.Hide    '// Me designe l'objet courrant, en l'occurence le formulaire

[Gott49]

Bonjour,

Merci Franc ça marche impec !

Merci deedo pour ton retour également. J'ai malheureusement pas tout compris ne maîtrisant pas les lignes de codes et les termes associés mais si ça peut optimiser l'ensemble, alors je vais creuser !

Bonne journée