Discussion :

[Deeder]

Bonjour,

Ce que je cherche à faire est très simple, mais étant complètement novice en VBA, je n'arrive pas à mes fins : j'ai dans mon fichier Excel une entrée par ligne avec une donnée dans chaque cellule.

Je souhaite mettre en forme l'affichage de ces données grâce à un UserForm de manière à ce qu'elles soient plus faciles à lire (pour mon client supposé être au Jurassique de l'informatique).

J'affiche dont les informations concernant la première entrée dans des textboxes et je souhaite passer à l'entrée suivante (respectivement précédente) via des boutons "Suivant" (respectivement "Précédent"). Seulement je n'arrive pas à déclarer de variable globale qui puisse être modifiée par ces boutons justement.

Voici rapidement l'organisation de mon code (peut-être le problème vient-il de là, le VB n'est pas ma spécialité à la base) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Declaration de la variable globale
Public RowNum as Integer
 
Private Sub UserForm_Activate()
 
'Initialisation de la variable globale au premier affichage
RowNum = 2
 
    NomDeLaTextBox.Value = Cells(RowNum, NumeroCelluleCorrespondante).Value
 
End Sub
 
Private Sub NextUser_Click()
    RowNum = RowNum + 1
End Sub

Avec cette organisation, le bouton "Suivant" n'a aucun effet. Si vous avez une quelconque idée ou piste qui puisse expliquer ce qui ne fonctionne pas, je vous en serai reconnaissant de me la donner. :-)

Merci d'avance !

[Qwazerty]

Salut et bienvenu
Tu mets une valeur dans ta textbox, jusque la ok
Ensuite tu modifie la valeur de RowNum, la ok
Mais aprés il faut bien que tu réaffectes une valeur a ta textbox en fonction de la nouvelle valeur de RowNum.

Code :

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

1
2
3
4
Private Sub NextUser_Click()
    RowNum = RowNum + 1
    NomDeLaTextBox.Value = Cells(RowNum, NumeroCelluleCorrespondante).Value
End Sub

A++
Qwaz

[Deeder]

Merci beaucoup ! J'ai naïvement cru que l'affectation des variables concaténées était active à chaque instant et donc que les valeurs seraient réinitialisées à la suite d'un clic engendrant l'incrémentation de la variable RowNum. Effectivement, c'est plus logique d'avoir à les réaffecter manuellement. :-)