Discussion :

[MARGO170873]

Récapitulatif ameliorations X3 macro.xlsm

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....

[Jean-Philippe André]

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.

[Transitoire]

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 :

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
'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 :

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

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

[Pierre Fauconnier]

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 :

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

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.

[patricktoulon]

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 :

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

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 :

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

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

[MARGO170873]

merci merci et encore merci

c trop sympa

[patricktoulon]

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