Faire du pas à pas dans l'exécution d'une boucle
Bonjour,
Je viens de lire qu'il valait mieux ne pas mettre de fichiers joint donc je reformule ma demande (message du 13/03/2013).
J'ai créé un fichier pour permettre de faciliter la saisie du suivi d'un fichier Excel.
Mon problème est que quand je vais chercher les informations, que je remplis les combos la phase suivante est l'écriture. Tout va très vite alors que je voudrai ne remplir les combos que ligne par ligne, si cela va click sur valid ou bien je modifie et puis je clicke et à ce moment la ligne est copiée dans le fichier. Cette action entraîne le remplissage des combos avec les valeurs de la ligne de dessous et etc pendant 9 fois. Mon Userform3 n'apparaît qu'à la fin et donc trop tard.
Je mets le code qui se trouve sur l'UF3.
Merci pour vos réponses
Code:
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 35 36 37 38
| Private Sub Frame2_Rlx()
TextBox1.Value = UF2.TextBox3.Value + 9
Dim a2 As String
Dim cherche1 As String
Dim Cellule As String
Dim ligne As String
UF2.Hide
Sheets("Durée de vie").Select
cherche1 = UF2.ComboBox.Value
TextBox2.Value = UF2.ComboBox.Value
a2 = TextBox1.Value
For n = 0 To 8
ligne = a2 + n
CBRlx = Range("H" & ligne).Value 'Affiche le Positionnement rouleau
CBN° = Range("I" & ligne).Value
CBØmin = Range("M" & ligne).Value
CBØmont = Range("J" & ligne).Value
CBØrectif = Range("N" & ligne).Value
CBDur = Range("K" & ligne).Value
CBmatiere = Range("P" & ligne).Value
CBFournis = Range("Q" & ligne).Value
CmdBvalid_Click
Next n
End Sub
Private Sub CmdBvalid_Click()
Cpt = Cpt + 1
num = Sheets("Durée de vie").Range("A8").Row + (Cpt)
Sheets("Durée de vie").Activate
Range("H" & num).Value = CBRlx.Value
Range("I" & num).Value = CBN°.Value
Range("M" & num).Value = CBØmin.Value
Range("J" & num).Value = CBØmont.Value
Range("N" & num).Value = CBØrectif.Value
Range("K" & num).Value = CBDur.Value
Range("P" & num).Value = CBmatiere.Value
Range("Q" & num).Value = CBFournis.Value
End Sub |
Y'a t'il un livre ou un doc pour mon Pb
Bonjour,
Je vois que mon sujet n'interesse personne.
J'ai déja écumé pas mal les forums, j'ai un livre excel et vba 2000, mais je n'ai pas trouvé ma réponse. Donc si quelqu'un à un ouvrage à me conseiller pour arriver à remplir plusieurs combo dans un User Form avec les données d'une feuille puis les copier dans une ligne, recharger les combo avec la ligne de dessous (dans la feuille) etc..
Merci d'avance
C'est bon, je jette l'éponge
Je ne vais pas passer ma vie à t'expliquer, les choses.
C'est pourtant simple ce qui m'arrive, le code que j'avais mis en tout début s'exécute sans que je puisse intervenir dans l'UF3.
Je pensais que vous auriez pu m'aider mais je ne vous ai jamais demandé de travailler à ma place, ni de perdre votre temps avec moi.
Depuis le début, tu ne comprends pas ce que j'écris et tu me demande de te donner des explications. Quand je te les donne cela ne te conviens pas.( ce fichier qui n'est pas de moi est complexe à renseigner et à suivre, je voulais juste aider un collègue et lui faciliter la vie).
Je bricole dessus le soir et le week-end à temps perdu et je suis juste un technicien et un autodidacte en informatique et en vba.
Ce n'est pas grave, cela prendra le temps qu'il faudra mais j'arriverai à trouver une solution.
Merci pour le dérangement.
Salut
Boucle pas à pas avec Do While Not
Bonsoir,
J'ai eu ma réponse sur un autre forum.
En quelques heures et avec les mêmes explications que j'avais donné.
Un expert qui ne se prend pas pour Dieu et se baisse jusqu'aux petits profanes dont je fais partie m'a donné la réponse sans discours superflus.
"Si haut que l'on soit placé, on n'est jamais assis que sur son cul" de Montaigne. A méditer M. Philippe.
Je ne reviendrai pas sur ce forum ou je trouvais pourtant une mine d'informations....