integer qui tournent en boucle

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

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

Re : integer qui tournent en boucle

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

Voili voilou