Discussion :

[sormick]

Bonjour,

Dans une feuille sur la colonne "B" j'ai une liste de pays

J'ai créé un bouton "pays suivant" qui me permet sur la colonne B de sélectionner la cellule suivante et donc d'afficher le prochain pays dans un userform TEXTBOX1.
Sauf que cette macro est bien trop lente !
Je sais qu'il faut dans la mesure du possible éviter des sélection de cellules mais dans mon cas je ne sais pas trop ce que je dois changer!
Pouvez vous m'aider?
Voici mon code VBA actuel qui est dans le bouton "Pays suivant"
Désolé mais dernière question encore je suis nouveau dans ce forum. quel bouton utiliser pour mettre mes codes VBA en balises?

Code :

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

1
2
3
4
Application.Calculation = xlCalculationManual
ActiveCell.Offset(1, 0).Select
ActiveWindow.ScrollRow = ActiveCell.Row
me.TextBox1 = ActiveCell.Value

[galopin01]

bonjour,

Code :

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

me.TextBox1 = ActiveCell(2) 'suffira

ou encore :

Code :

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

me.TextBox1 = ActiveCell.Offset(1)

A+

[sormick]

Bonjour,

Merci pour la réponse mais malheureusement la macro est toujours trop lente à réagir.
Lorsque je clique sur le bouton ou sont insérés ces macros dans un userform j'ai toujours une lenteur
Est-ce que ces deux autres codes peuvent également faire ralentir la macro?

Code :

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

1
2
ActiveCell.Offset(1, 0).Select
ActiveWindow.ScrollRow = ActiveCell.Row