qui peux m'aider sur les macros VBA EXCEL

Pièce jointe 364867

bonjour
suis toujours sur mon fichier excel qui veut pas faire comme je voudrais.

il fonctionne avec F5 mais inverse les textes (j'ai bien prix icone texte) et liste - j'en peux plus là
il me resiste

une idee pour m'aider s'il vous plait.

merci à tous

j'ai bien avancé déjà grace à vous....

Bonjour,

comme il est interdit voire impossible pour beaucoup de télécharger des fichiers contenant des macros, pourrais tu recopier la portion de code sur laquelle tu souhaites recevoir de l'aide stp ?

Merci pour nous.

Bonjour, j'ai ouvert votre document. Je comprend pas pourquoi vous utilisez dans votre UserForm, des Textboxs comme étiquettes et des ListBoxs comme TextBoxs.
Le nom des textboxs est généralement écrit avec des Labels. Ecrire une date ou un nom ou autre, peut se mettre dans un TextBox. Si maintenant, c'est volontaire de votre part, admettons que je n'ai rien dit?
Essayez de mettre le code qui cloche comme j'ai mis celui-ci en dessous. Parceque je comprend pas ce que vous voulez faire?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

'Pour le bouton Nouvelle Fiche Private Sub CommandButton1_Click() Dim L As Integer If MsgBox("Confirmez-vous l'insertion de ce nouvelle fiche ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then L = Sheets("NUM").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement ? la première ligne de tableau non vide Range("A" & L).Value = ComboBox1 Range("B" & L).Value = ComboBox2 Range("C" & L).Value = ListBox1 Range("D" & L).Value = ListBox2 Range("E" & L).Value = ListBox3 Range("F" & L).Value = ListBox4 Range("G" & L).Value = ListBox5 Range("H" & L).Value = ListBox6 Range("I" & L).Value = ListBox7 Range("J" & L).Value = ListBox8 Range("K" & L).Value = ListBox9 Range("L" & L).Value = ListBox10 End If End Sub

---

Chez moi, la ligne en rouge pose problème
mais je m'interroge La Variable L représente une Ligne? Ne devrait-on pas écrire comme celà? mais je peut me tromper

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Range(L & "A").Value = ComboBox1 Range(L & "B").Value = ComboBox2 Range(L & "C").Value = ListBox1 Range(L & "D").Value = ListBox2 Range(L & "E").Value = ListBox3 Range(L & "F").Value = ListBox4 Range(L & "G").Value = ListBox5 Range(L & "H").Value = ListBox6 Range(L & "I").Value = ListBox7 Range(L & "J").Value = ListBox8 Range(L & "K").Value = ListBox9 Range(L & "L").Value = ListBox10

---

Cordialement 8-)

Salut.

Comme le dit Transitoire, il faut utiliser les labels pour le texte d'étiquette et les textbox pour saisir le texte.

Il serait de loin préférable de nommer vos contrôles (au moins les textbox avec des noms explicites (tboDescription, tboReponse,...) et d'utiliser .Value derrière.

Code:

---

1 2 3 4

Range("A" & L).Value = tboCode.Value ... ... Range("E" & L).Value = tboDescription.Value

---

Normalement, on devrait travailler sur la feuille Demandes avec un tableau structuré. Outre les bénéfices Excel, le code VBA s'en trouverait plus lisible.

bonjour

1. faire la difference entre un label,textbox,listbox(il ne segere pas de la meme facon
2. la ligne rouge que signale transitoire pose probleme et pour cause ce sheets n'y est pas dans le fichier en piece jointe
3. une astuce que j'utilise souvent c'est de mettre dans le "tag" des textbox concerné la lettre de la colonne
4. dans cette boucle (en lecture ou ecriture)il est facile de les alimenter
5. je n'ai pas fait le code des bouton ayant un sheets manquant dans ta piece jointe

j'ai entierement redessiner ton userform

voila a quoi se resume le code quand je selectionne un num pour alimenter tes textboxs

evenement combobox pour les num qui alimente les textbox en fonction de l'item choisi
oui la combobox pour les num s'appelle A--->> c'est la colonne correspondante

Code:

---

1 2 3 4 5 6 7 8

Private Sub A_Click() Dim L As Long, ctrl As Object L = A.ListIndex + 2 For Each ctrl In Me.Controls If ctrl.Tag <> "" Then ctrl.Value = Sheets("Demandes").Range(ctrl.Tag & L).Text Next End Sub

---

code pour remplir les deux combo a l'initialise

Code:

---

1 2 3 4 5

'Pour le formulaire Private Sub UserForm_Initialize() B.List = Array("", "X3", "SAP", "X3/SAP") A.List = Sheets("Demandes").Range("A2", Sheets("Demandes").Cells(Rows.Count, 1).End(xlUp)).Value End Sub

---

ca deviend tout de suite plus clair
Pièce jointe 365229

merci merci et encore merci

c trop sympa

de rien et essaie d'en comprendre le fonctionnement qui est relativement simple
et pose des questions si tu ne comprends pas quelques chose
;)