Discussion :

[Loupion]

Bonjour Le Forum

J' ai cree un userform pour que des utilisateurs puissent rentrer des donnees sur tous les moins de l annee pour 10 categories
Les donnees de ce userform sont ensuite envoyees dans une feuille excel.
Je cherche un moyen rapide et efficace de copier les donnees de ce userform dans la feuille excel. Chaque mois doit etre sur une nouvelle ligne.
Dois-je faire ligne par ligne (cela en fait 120 ) en declarant chacune de mes combobox et textbox ou existe t il un moyen plus efficace de proceder?

Merci

Loupion

[geogeo70]

On peut utiliser un formulaire par ligne en indexant par exemple les noms(10) et les mois(12)

Donc noms et mois dans deux combobox qui permettent d'indexer la ligne saisie des données...

Je n'ai mis que deux données il suffit d'en itérer la suite (dans des textbox)

J'ai fait une feuille de données de base pour la recherche des noms et mois en utilisant la rechercheV. Pour les textbox j'utilise la propriété Controlsource qui adresse sur la cellule de donnée.

Voici les sub du formulaire

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub boxmois_Change()
  Dim nom, mois As Integer
 
  Feuil2.Cells(15, 2) = boxmois.Text
  nom = Feuil2.Cells(16, 3).Value
  mois = Feuil2.Cells(15, 3).Value
 
  Text1.ControlSource = "Feuil1!C" & CStr((nom - 1) * 12 + 1 + mois)
 
  Text2.ControlSource = "Feuil1!D" & CStr((nom - 1) * 12 + 1 + mois)
 
End Sub
 
Private Sub boxnom_Change()
  Dim nom, mois As Integer
 
  Feuil2.Cells(16, 2) = boxnom.Text
  nom = Feuil2.Cells(16, 3).Value
  mois = Feuil2.Cells(15, 3).Value
 
  Text1.ControlSource = "Feuil1!C" & CStr((nom - 1) * 12 + 1 + mois)
 
  Text2.ControlSource = "Feuil1!D" & CStr((nom - 1) * 12 + 1 + mois)
 
End Sub
 
Private Sub CommandButton1_Click()
Unload formulaire
End Sub
 
Private Sub UserForm_Initialize()
boxnom.ListIndex = 0
boxmois.ListIndex = 0
End Sub

Je joins le fichier d'essai

geogeo70