integer qui tournent en boucle

[AWNISU]

Bonjour.
J'ai 3 userform consécutifs.
Le premier permet de sélectionner un matériel avec combobox et de visualiser la quantité en stock et le lieu de rangement. Ces données sont collées sur une feuille 2
J'enchaîne sur un 2° USF qui demande la quantité de ce matériel à sortir du magasin. Cette quantité est collée sur une feuille 2 et doit décrémenter la quantité en stock de cet article.
J'ai 2 integer mais cela tourne en boucle...
J'aimerais aussi pouvoir cliquer sur un bouton pour signaler le matériel en retour et après choix de la quantité de retour sur un usf pouvoir incrémenter le stock de cet article
Je crois avoir potassé une bonne partie du forum sans trouver d'exemples ressemblants...
Si quelqu'un excel-lent (mais pas trop) peut me venir en aide, je lui serai éternellement reconnaissant.
Je ne sais pas comment faire pour joindre mon fichier car cela vaudrait mieux qu'un long discours...Même en .rar, et la plupart des données retirées, il fait 480ko...
De plus, c'est mon premier fichier en VBA…

 

[jeanpierre]

Re : integer qui tournent en boucle

Bonsoir AWNISU,

Peut-être et exeptionnellement sur un site comme Cijoint.com ou Fr (sais plus) mais zippé (pas de .rar, tout le monde n'a pas) tout de même, sinon c'est un peu bazard pour récupérer.

Tu copies l'Url dans un fil.... et ensuite, plus qu'à attendre.

Bonne soirée.

Jean-Pierre

 

[AWNISU]

Re : integer qui tournent en boucle

Bonsoir et merci pour cette prompte réponse.
En attendant d'essayer de joindre, voici une partie du code qui tourne en rond...

Public Sub CommandButton1_Click()

Dim i As Integer, n As Integer
For i = 1 To 300
For n = 1 To 200


If Me.ComboBox1.Text = Empty Then
MsgBox ("Veuillez sélectionner une quantité")
Exit Sub

End If

If Me.ComboBox1.Text = Sheets("Feuil2").Range("W" & i).Value Then
Range("W" & i & ":W" & i).Select
Selection.Copy
Sheets("Feuil2").Select
Range("J65536").End(xlUp).Offset(1, 0).Select
'ActiveSheet.Paste
'Range("J3").Select
Application.CutCopyMode = False
'ActiveSheet.Paste
Sheets("Feuil2").Select
'Range("L3").Select
Range("L65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=RC[-10]-RC[-2]"
'Range("L3").Select
'Range("I3").Select
Range("I6556").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = Date
'Range("H3").Select
Range("H65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = Time
Range("H3").Select
End If
'mise a jour stock

Sheets("Feuil2").Select
If UserForm1.ComboBox1.Text = Sheets("Feuil2").Range("AB" & n).Value Then
Range("L3").Select
Range("L65536").End(xlUp).Select
Selection.Copy
Sheets("Feuil1").Select
Range("B" & n & ":B" & n).Select
ActiveSheet.Paste
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I7").Select
End If

Next
Next

Unload UserForm2
UserForm5.Show

End Sub


Voila, beaucoup de tatonnement m'ont amené ici.

Bien cordialement

 

[AWNISU]

Re : integer qui tournent en boucle

Rebonsoir.
Sinon voici le lien ou se trouve le fichier complet :
http://cjoint.com/?mttGZqTog8

Voili voilou