Bonjour Le Forum,
J'ai une erreur dans le code que je ne trouve pas. Je souhaite copier certaines cellules (a,c,d,i,l,y)par ligne de la feuille 'facturation_usagers' si la valeur de la colonne z = 'non' et coller ces valeurs dans la feuille 'journées en attente' à partir de la ligne 7.
Merci par avance pour l'aide.
Hugues
Sub en_attente()
'Dim lign As Integer, a As Integer, b As Integer, lign As Integer
a = 5
b = 7
ActiveWorkbook.Worksheets('facturation_usagers').Activate
lign = Range('a65536').End(xlUp).Row '+1
For a = 5 To lign
If Sheets('facturation_usagers').Range('z' & a) = 'non' Then
Range('a' & a, 'C' & a, 'D' & a, 'I' & a, 'L' & a, 'Y' & a).Select
Selection.copy
Sheets('journées_en_attente').Select
Range('G' & b).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
b = b + 1
End If
Next
End Sub
J'ai une erreur dans le code que je ne trouve pas. Je souhaite copier certaines cellules (a,c,d,i,l,y)par ligne de la feuille 'facturation_usagers' si la valeur de la colonne z = 'non' et coller ces valeurs dans la feuille 'journées en attente' à partir de la ligne 7.
Merci par avance pour l'aide.
Hugues
Sub en_attente()
'Dim lign As Integer, a As Integer, b As Integer, lign As Integer
a = 5
b = 7
ActiveWorkbook.Worksheets('facturation_usagers').Activate
lign = Range('a65536').End(xlUp).Row '+1
For a = 5 To lign
If Sheets('facturation_usagers').Range('z' & a) = 'non' Then
Range('a' & a, 'C' & a, 'D' & a, 'I' & a, 'L' & a, 'Y' & a).Select
Selection.copy
Sheets('journées_en_attente').Select
Range('G' & b).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
b = b + 1
End If
Next
End Sub