C
carlos
Guest
Bonsoir
j'ai recuperé cette macro sur ce forum mais j'ai l'avertissement suivant quand je l'execute (L'erreur semble tre sur "End(xlup) ?)
Erreur de compilation
Instruction incorrecte à l'exterieur d'une procedure
Option Explicit
Dim DerLigne As Long, Ligne As Long
Dim CL As Range
DerLigne = Range("A65536").End(xlUp).Row
Ligne = 1
Range("C1:C" & CStr(DerLigne)).ClearContents
For Each CL In Range("B1:B" & CStr(DerLigne))
If CL.Text = "X" Then
Range("C" & CStr(Ligne)) = CL.Offset(0, -1)
Ligne = Ligne + 1
End If
Merci
Next
j'ai recuperé cette macro sur ce forum mais j'ai l'avertissement suivant quand je l'execute (L'erreur semble tre sur "End(xlup) ?)
Erreur de compilation
Instruction incorrecte à l'exterieur d'une procedure
Option Explicit
Dim DerLigne As Long, Ligne As Long
Dim CL As Range
DerLigne = Range("A65536").End(xlUp).Row
Ligne = 1
Range("C1:C" & CStr(DerLigne)).ClearContents
For Each CL In Range("B1:B" & CStr(DerLigne))
If CL.Text = "X" Then
Range("C" & CStr(Ligne)) = CL.Offset(0, -1)
Ligne = Ligne + 1
End If
Merci
Next