Vba boucle for renvoie juste dernier client
baktaz
-
baktaz -
baktaz -
Bonjour,
je suis ebutant en vba , j ai reussi a inserer une boucle for next pour tester si cell non vide renvoi et les donnees correspondant au client et imprim l etat final , mais ma boucle est desobeissante, c vrai qu il parcourt tte la plage mais revoi et imprime juste le dernier client et ceci n fois.
j ai besoin de votre aide svp
abderrahman - ouarzazate
je suis ebutant en vba , j ai reussi a inserer une boucle for next pour tester si cell non vide renvoi et les donnees correspondant au client et imprim l etat final , mais ma boucle est desobeissante, c vrai qu il parcourt tte la plage mais revoi et imprime juste le dernier client et ceci n fois.
j ai besoin de votre aide svp
abderrahman - ouarzazate
1 réponse
-
Bonjour,
Tu obtiendras peut-être plus d'aide si tu donnes le code de ta boucle, parce que sans voir ton code on ne peut pas te dire ce qui ne vas pas...
-
salut et merci voila mon code integral
Sub global_definitif()
'
' global_definitif Macro
' Macro enregistrée le 10/12/2010 par IBM
Dim i As Integer ''
Dim j As Integer
'
' pour selectionne la palge et trie
'
i = Range("A8").End(xlDown).Row
Sheets("noms_et_compteurs").Select
Range("A8:E" & i).Select
Selection.Sort Key1:=Range("A8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'
'ActiveCell.Offset(0, -1).Select
'ligne = ActiveCell.Row: colonne = actvecell.Column
'procedure de copie des données sur bons
'
For j = 9 To i ' Each cel In Range("A9:A" & i)
Sheets("noms_et_compteurs").Select
If Not IsEmpty(Range("A" & i)) Then
'If cel <> "" Then
Range("A" & i).Copy ' Select
'Selection.Copy
Sheets("bons").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("noms_et_compteurs").Select
Range("B" & i).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("bons").Select
Range("A9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("noms_et_compteurs").Select
Range("C" & i).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("bons").Select
Range("A9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("noms_et_compteurs").Select
Range("D" & i).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("bons").Select
Range("B9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("noms_et_compteurs").Select
Range("E" & i).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("bons").Select
Range("C9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
ActiveWindow.SmallScroll Down:=3
Range("A2:F18").Select
Application.CutCopyMode = False
Selection.Copy
Range("A19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A2:F35").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next j
End Sub
-
