Valeur d'une cellule dans un TextBox Résolu/Fermé

Question

Bonjour,

Sur Excel j''utilise un UserForm sur lequel j'ai plusieurs TextBox. 
Afin que certains d'entre ces TexBox m'affiche le contenu de certaine cellule, lors de l'ouverture de l'UserForm j'utilise la macro suivante :

Private Sub UserForm_Initialize()

    UserForm1.TextBox1.Value = Sheets(3).Cells(3, 1).Value   
    UserForm1.TextBox2.Value = Sheets(3).Cells(3, 2).Value    
    UserForm1.TextBox3.Value = Sheets(3).Cells(3, 3).Value    
    UserForm1.TextBox4.Value = Sheets(3).Cells(3, 4).Value    

End Sub

J'aimerai insérer un bouton dans mon UserForm qui permettra lorsque l'on clique dessus d'afficher les valeurs des cellules suivantes de la même feuille (celles de la ligne 4).

Est-ce que vous auriez une idée du code que je pourrai dans ce bouton afin de faire cela.

Merci d'avance

Laure

pijaku · Answer

Salut,
Essaie comme ceci :


Dim var As Integer
Private Sub CommandButton1_Click()
var = var + 1
UserForm1.TextBox1.Value = Sheets(3).Cells(var, 1).Value
UserForm1.TextBox2.Value = Sheets(3).Cells(var, 2).Value
UserForm1.TextBox3.Value = Sheets(3).Cells(var, 3).Value
UserForm1.TextBox4.Value = Sheets(3).Cells(var, 4).Value
End Sub

Private Sub UserForm_Initialize()
var = 3
UserForm1.TextBox1.Value = Sheets(3).Cells(var, 1).Value
UserForm1.TextBox2.Value = Sheets(3).Cells(var, 2).Value
UserForm1.TextBox3.Value = Sheets(3).Cells(var, 3).Value
UserForm1.TextBox4.Value = Sheets(3).Cells(var, 4).Value
End Sub

Utilisateur anonyme · Answer

Bonjour,

merci

Ça marche sauf que ça m'affiche également les valeurs pour var =1 et var =2.

Laure

Utilisateur anonyme · Answer

Merci ça marche !

Valeur d'une cellule dans un TextBox

3 réponses

Discussions similaires