Discussion :

[lolo_bob2]

Bonsoir,

Voila je veux faire des macros dans un fichier excel mais j'ai un problème. J'ai un premier formulaire avec des boutons de commande quand je clique sur enregistrer les données j'arrive sur un second formulaire avec une zone de liste déroulante et 6 zones de texte.

J'ai un soucis car je voudrais enregistrer les données sur des feuilles différentes qui correspondent aux données de mes réferences.
Sauf que pour enregistrer des données en lignes je sais faire mais en colonne je ne sais pas pouvez vous m'aidez ?
Second problème c'est sur le second formulaire je voudrais que mon menu déroulant sélectionne la feuille sur laquelle je voudrais enregistrer les données est ce que cela est possible ?


Merci de votre aide

(Ci joint le fichier si je ne me suis pas bien fais comprendre)

[SfJ5Rpw8]

montre nous le code que tu utilise pour "enregistrer" tes données en lignes il ne doit être possible de le modifier .. pour les colonnes... par exemple en utilisant Cells voir

[mortalino]

Salut,

je n'ai pas regardé ton fichier mais comme ça, à l'aveuglette, pour ton problème de données en colonne, beh c'est comme les lignes, il faut travailler en boucle :
Exemple :

cells(ligne, colonne)
Tu peux soit leur donner une valeur, soit incrémenter une boucle, dont la variable contiendra la valeur.

Code :

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

1
2
3
4
5
Dim i As Byte
 
For i = 1 To 10
    Cells(1, i).Value = i
Next i

Ce code, est pour mettre la valeur de i (soit de 1 à 10) dans la ligne 1 et de la colonne 1 à 10 (donc A à J).

Tu peux aussi (au besoin) faire 2 boucles, afin de gérer Et les lignes, Et les colonnes.

Après pour ton histoire de feuille dans le combobox, dans le code du second UserForm, insère ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ComboBox1_Change()
    Sheets(ComboBox1.Text).Select
    ' pense à changer le nom du ComboBox
End Sub
 
Private Sub UserForm_Initialize()
    Dim xlSheet As Worksheet
 
For Each xlSheet In ActiveWorkbook.Worksheets
    ComboBox1.AddItem xlSheet.Name
    ' pense à changer le nom du ComboBox
Next xlSheet
End Sub

Dès l'ouverture de ton UserForm, tous les noms de tes feuilles s'insèreront dans le comboBox, et lorsque tu sélectionnes une feuille dans ton Combo, celle-ci se sélectionne également.

@++

[lolo_bob2]

Bonjour,


Merci beaucoup de votre aide.
Je vais essayer de mettre en application ces codes

@++
Lolo