A voir également:
- Vba boucle for renvoie juste dernier client
- Mon pc s'allume et s'éteint en boucle - Forum Matériel & Système
- Renvoie d'appel ooredoo - Forum Mobile
- Dernier iphone - Guide
- Downloader for pc - Télécharger - Téléchargement & Transfert
- Orange service client - Guide
1 réponse
Colbi97
Messages postés
564
Date d'inscription
mardi 3 mars 2009
Statut
Membre
Dernière intervention
25 novembre 2015
12
24 déc. 2010 à 12:02
24 déc. 2010 à 12:02
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...
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...
24 déc. 2010 à 17:21
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