Instruction incorrecte à l'exterieur d'une procedure

[carlos]

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

 

[galopin01]

Bonsoir,

Option Explicit 'doit être avant toute macro

Sub Test()
Dim DerLigne As Long, Ligne As Long, 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
Next
End Sub

Sinon le reste du code est bon

A+

 

[carlos]

Merci

 

[Venture14]

J'ai un problème avec l'insertion d'une macro (Pour convertir un nombre en lettres). Ça m'envoie aussi le message d'erreur "Instruction incorrecte à l'extérieur d'un procédure" Pourquoi? Je vous mets le code ci-dessous:


Select Case byCent
Case 0
ConvNumCent = strReste
Case 1
If byReste = 0 Then
ConvNumCent = "cent"
Else
ConvNumCent = "cent " & strReste
End If
Case Else
If byReste = 0 Then
ConvNumCent = TabUnit(byCent) & " cent"
Else
ConvNumCent = TabUnit(byCent) & " cent " & strReste
End If
End Select
End Function
Private Function Nz(strNb As String) As String
If strNb <> " zéro" Then Nz = strNb
End Function

 

[Dranreb]

Bonsoir.
Dans votre code non plus on ne voit pas d'instruction Sub ni Function ni Property Get ou Let au début.
Avant une telle instruction on ne peut mettre que des instructions Option et des déclarations de variables globales.