Valeur d'une cellule dans un TextBox

Résolu/Fermé

Utilisateur anonyme - 24 août 2010 à 15:47
Utilisateur anonyme - 24 août 2010 à 16:43

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

A voir également:

Afficher valeur cellule dans textbox vba
Aller à la ligne dans une cellule excel - Guide
Excel compter cellule couleur sans vba - Guide
Verrouiller cellule excel - Guide
Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
Excel cellule couleur si condition texte - Guide

3 réponses

Réponse 1 / 3

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
24 août 2010 à 16:05

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

Réponse 2 / 3

Utilisateur anonyme
24 août 2010 à 16:22

Bonjour,

merci

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

Laure

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
Modifié par pijaku le 24/08/2010 à 16:33

Comment cela??? Quelles manipulations fais tu exactement?
Si lors de l'initialisation de ton USF var a la valeur 3, il ne peux pas te donner les valeurs pour 1 et 2... Sauf si ton USF n'est pas initialisé. Comment lance tu ton USF? Si c'est par la commande : UserForm1.Show, ajoute la ligne Load UserForm1

Réponse 3 / 3

Utilisateur anonyme
24 août 2010 à 16:43

Merci ça marche !

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule

programme qui n'affiche pas le mot secret

Excel si cellule contient texte alors...

Excel:récupérer le contenu d'une cellule en fonction d'une autre

=Si la cellule A1 a du texte = B1 devient couleur

Discussions similaires

Newsletters