Discussion :

[VBANoJutsu]

Bonsoir à tous !

Je viens chercher un peu d'aide.

J'ai un tableau sur ma feuille Excel qui se présente comme ceci (il démarre en A1) :
Nom: Mimi
Prénom : John
Montant : 10000
Taux : 5%
Taux additionnel : 1%

J'ai créé sur VBA un formulaire de la façon suivante :
Nom:
Prénom:
Montant:
Taux : j'aimerais ici qu'un calcul se fasse et affiche le résultat (somme des taux)

Quand j'ouvre mon formulaire celui ci est vierge, je n'arrive pas a affecter les valeurs directement des cases correspondantes dans ma feuille de calcul.
Quelque pourrait t-il m'expliquer comment aller chercher automatiquement via le formulaire par exemple pour "nom" la valeur dans la cellule du tableau de la feuille de calcul ?
De même pour la valeur du taux dans le formulaire

Par avance merci !

[ARTURO83]

Bonjour,

Dans le module du formulaire, copiez ceci et adaptez selon les noms de vos TextBox

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
    TextBox1.Text = [B1] 'Nom
    TextBox2.Text = [B2] 'Prénom
    TextBox3.Text = [B3] 'Montant
    TextBox4.Text = ([B4] + [B5]) * 100 & "%" 'Taux cumulés
End Sub

Cdlt

[lucasgaetan]

Bonjour,

Voici un tuto sue les contrôles dans un UserForm, ça peut t'aider: ici

[VBANoJutsu]

Merci à tous, j'avais trouvé du coup en bidouillant un peu et cherchant plus en profondeur !

Je vais checker le tuto , merci les gars

[MarcelG]

Bonjour à vous, Bonjour au Forum,

Merci à tous, j'avais trouvé du coup en bidouillant un peu et cherchant plus en profondeur !

A mon sens, il aurait été préférable que tu retournes le code.

Si le nom est ici retourné par une zone de liste déroulante (Combobox), alors les données correspondantes pourraient, par exemple, alimenter le libellé de simples labels.
Ceci par une procédure évènementielle gérant l'index de la zone de liste.

Cela dit, pour ce cas de figure, je ne peux que conseiller de créer un "Type" de variable

Code :

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

1
2
3
4
Public Type données_nom
  prénom as String
  'etc 
End Type

et une fonction adjacente

Code :

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

1
2
3
4
5
6
7
8
Public Function id(lenom as String) As données_nom
 
With id
   .prénom = ....
   'etc...
End With
 
End Function

Au delà, il y aurait bien entendu la gestion de propriétés prédéfinis (Property Get) mais c'est un autre développement.
Dans un premier temps, du moins, la construction de Type permettrait une certaine souplesse d'utilisation.

A plus tard.