• Initiateur de la discussion Initiateur de la discussion Manu62
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Manu62

XLDnaute Impliqué
Bonjour à tous,

Je suis en train de faire un petit programme de stockage sous excel. Je pioche des info a droite et a gauche.

J'ai fait 2 userform avec bcp d'info a mettre.

Après tout cela, je me pose la question suivante.

Dans la partie N° de mon userform, il ya toute une partie de référence. Est 'il possible qu'a chaque ligne de référence, on positionne les données dans une nouvelle ligne. (C'est plus clair dans le fichier ci joint).

Je ne suis pas omnibuler par mon formulaire, je suis ouvert a toutes propositions.


Merci de votre aide

Manu
 

Pièces jointes

Re : Avis sur Userform

Skoobi, le forum

"Par contre, si il ya plusieurs lignes, on ajoute autant de ligne que saisie tout en reprenant les éléments des autres parties " lire avec userform1

Dans la partie 3, je peux avoir jusqu'a 10 lignes de références.
Je voulais dire, si il ya pls ligne, le code ajoute les références l'une en dessous des autres et copie également des champs des autres parties (qui apparaissent 1 fois)

Entre temps, je suis entrain d'essayé d'ajouté les données de la premiere partie et il ya un annomalie sur la ligne N° 5

1-Private Sub Alimenter_Click()
2-'Alimenter la base de donnée, date1 & heure1 correspondent aux éléments de la première partie
3-Dim derligne As Single
4-derligne = Sheets("BD").Range("A65000").End(xlUp).Row
5-Sheets("BD").cell(derligne + 1, 2).Value = Date1.Value
6-Sheets("BD").cell(derligne + 1, 3).Value = Heure1.Value
7-End Sub

Peux tu m'en dire plus ?

Merci

Manu
 
Re : Avis sur Userform

Bonjour,

Ci dessous mon code qui est commencé.
Je suis à ce niveau et je bute...

'Alimenter la BD
Private Sub Alimenter_Click()
Dim derligne As Single
derligne = Sheets("BD").Range("A65000").End(xlUp).Row
Sheets("BD").Cells(derligne + 1, 1).Value = Date1.Value
Sheets("BD").Cells(derligne + 1, 2).Value = Heure1.Value
Sheets("BD").Cells(derligne + 1, 3).Value = Nom1.Value
Sheets("BD").Cells(derligne + 1, 4).Value = NumSaisie.Value
Sheets("BD").Cells(derligne + 1, 5).Value = Nomcli.Value
Sheets("BD").Cells(derligne + 1, 6).Value = Date2.Value
Sheets("BD").Cells(derligne + 1, 7).Value = date3.Value
Sheets("BD").Cells(derligne + 1, 8).Value = Mentree.Value
'c'est ici où cela me pose problème, je voudrais ques les ref2,3,4... s'ajoute les un en dessous des autres et fait une copie
'date1, heure1, des 1ere colonnes ceci pour qu'il n'ya pas de blanc.
'les ref correpondent à la 1 ere colonne de la partie 3
Sheets("BD").Cells(derligne + 1, 9).Value = ref1.Value
Sheets("BD").Cells(derligne + 1, 9).Value = ref2.Value
Sheets("BD").Cells(derligne + 1, 9).Value = ref3.Value
Sheets("BD").Cells(derligne + 1, 9).Value = ref4.Value
Sheets("BD").Cells(derligne + 1, 9).Value = ref5.Value
Sheets("BD").Cells(derligne + 1, 9).Value = ref6.Value
Sheets("BD").Cells(derligne + 1, 9).Value = ref7.Value
Sheets("BD").Cells(derligne + 1, 9).Value = ref8.Value
Sheets("BD").Cells(derligne + 1, 9).Value = ref9.Value
Sheets("BD").Cells(derligne + 1, 9).Value = ref10.Value
Dim txtCtrl As Control
For Each txtCtrl In Me.Controls
If TypeOf txtCtrl Is MSForms.TextBox Then txtCtrl.Text = ""
Next
End Sub

Merci de votre aide.

Manu
 
Re : Avis sur Userform

Bonjour manu62,

sur la deuxième partie de ton code tu met toutes tes référence sur la même colonne, ce qui n'est pas bon.

tu dois continué sur le même principe que la première partie

Sheets("BD").Cells(derligne + 1, 9).Value = ref1.Value
Sheets("BD").Cells(derligne + 1, 10).Value = ref2.Value
Sheets("BD").Cells(derligne + 1, 11).Value = ref3.Value
Sheets("BD").Cells(derligne + 1, 12).Value = ref4.Value
Sheets("BD").Cells(derligne + 1, 13).Value = ref5.Value
Sheets("BD").Cells(derligne + 1,14).Value = ref6.Value
Sheets("BD").Cells(derligne + 1, 15).Value = ref7.Value
Sheets("BD").Cells(derligne + 1, 16).Value = ref8.Value
Sheets("BD").Cells(derligne + 1,17).Value = ref9.Value
Sheets("BD").Cells(derligne + 1, 18).Value = ref10.Value

essaye comme ceci.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
675
Réponses
8
Affichages
385
Retour