Discussion :

[TabbHonmin]

Bonjour,

Je poste car il m'arrive quelque chose d'incompréhensible.
J'utilise une simple macro VBA pour remettre en forme mes lignes après application d'un filtre et un tri.

Comme la liste peut être longue dans certains cas, je veux qu'à la fin de la macro, la cellule 1,1 soit sélectionnée pour afficher le haut du tableau.
Avec la commande :

Code :

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

Cells(1, 1).Select

Mais celle-ci s’exécute avant une boucle Do While Loop, alors qu'elle est tout à la fin du code et hors de la boucle bien entendu.
Avant la boucle, je sélectionne la cellule (2,3) pour que la boucle fasse défiler les cellules de la colonne 3.

Tout fonctionne bien avec le code ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
    Dim numero As Integer
    lignes = Cells(1, 2).Value
    numero = 1
    Cells(2, 3).Select
    Do While numero <= lignes + 1
        SendKeys "{F2}"
        SendKeys "{ENTER}"
        numero = numero + 1
    Loop
End Sub

Or avec le code ci-dessous (ajout de Cells(1, 1).Select à la fin), la macro fait défiler les cellules de la colonne 1 !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
    Dim numero As Integer
    lignes = Cells(1, 2).Value
    numero = 1
    Cells(2, 3).Select
    Do While numero <= lignes + 1
        SendKeys "{F2}"
        SendKeys "{ENTER}"
        numero = numero + 1
    Loop
    Cells(1, 1).Select
End Sub

Merci pour votre aide.

[Jean-Philippe André]

Salut,

saigneur d'yeux , pourquoi passes-tu par des Sendkeys

A minima tu passes par une logique comme ceci :

Code :

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

1
2
3
4
5
lignes = Cells(1, 2).Value
With Range("C2")
    .Formula = "=ROW()"
    .AutoFill Destination:=Range("C2:C" & lignes), Type:=xlFillDefault
End With

les sendkeys c'est vraiment une solution de la derniere chance

[TabbHonmin]

Merci pour ton aide.
En fait c'est mon copain qui a fait le code initial et qui m'a demandé mon aide. Donc j'ai pas regardé le reste, j'ai bloqué sur le "bug" de la dernière ligne exécutée avant les autres.

Je vais utiliser ta méthode ce sera plus propre en effet

Par contre je veux quand même comprendre ce qu'il se passe avec cette dernière ligne !

[Jean-Philippe André]

Dis nous quelle valeur on peut trouver dans la cellule B1 deja

[TabbHonmin]

Les cellules contiennent du texte avec des retours à la ligne.
Elle peuvent contenir entre 1 et X lignes.

Et B1 contient un simple nombre qui affiche le nombre de lignes à traiter.