Parcourir des cellules à l'aide d'un contrôle

  • Auteur de la discussion wilux
  • Date de début

wilux

Nouveau membre
Bonjour,

J'ai une plage de cellules non contigues, MyRange, et je voudrai créer un UserForm permettant de parcourir MyRange cellule par cellule en cliquant sur un bouton "suivant", un peu à la manière de la boite de dialogue "Rechercher".

J'ai pensé à une boucle du type:
[cpp]For each MyCell in MyRange
...
MyCell.select
...
Next MyCell[/cpp]
Il faudrait faire en sorte que la boucle attende l'événement click du bouton "Suivant" à chaque itération, mais je ne vois pas comment le coder.

Merci d'avance.
 

wilux

Nouveau membre
J'avais regardé mais je n'y ai pas cru. :sarcastic:
J'ai eu tord parce que ca marche: :bounce:
[cpp]Dim compt_aires As Integer, compt_cellules As Integer

Private Sub SuivantBouton_Click()
With Range("MyRange")
.Areas(compt_aires).Cells(compt_cellules).Select
If compt_cellules < .Areas(compt_aires).Count Then
compt_cellules = compt_cellules + 1
ElseIf compt_aires < .Areas.Count Then
compt_cellules = 1
compt_aires = compt_aires + 1
Else: Unload Parcours
End If
End With
End Sub

Private Sub UserForm_Initialize()
compt_cellules = 1
compt_aires = 1
End Sub
[/cpp]

Merci! :)
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 055
Membres
1 586 282
Dernier membre
Yannick3553
Partager cette page
Haut