Discussion :

[Elhyra]

Bonjour,

J'ai actuellement un petit soucis au niveau de mon code. Lorsque je lance ma macro, seulement une des deux condition s'éxécute. (IsNumeric ne fonctionne pas.) Quelqu'un aurait une idée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub bouclecolonneC()
    Dim FL1, x
    Set FL1 = Worksheets("Feuil1")
    NoCol = 3 'lecture de la colonne C
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        If Not IsNumeric(Var) Then
        If IsEmpty(Var) = False Then
        Else
        Rows(NoLig & ":" & NoLig).Font.Color = RGB(255, 0, 0) 'rouge
       mess = mess & vbCrLf & "La colonne Prix 1 est éronnée. " & NoLig
    End If
    End If
    Next
     x = FreeFile
    Open Environ("userprofile") & "\DeskTop\rapport d'erreur.txt" For Output As #x: Print #x, mess: Close #x
    Set FL1 = Nothing
End Sub

[Thautheme]

Bonjour Elhyra, bonjour le forum,

Peut-être comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub bouclecolonneC()
Dim FL1 , x
 
Set FL1 = Worksheets("Feuil1")
NoCol = 3 'lecture de la colonne C
For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
    Var = FL1.Cells(NoLig, NoCol)
    If Var <> "" And IsNumeric(Var) = True Then
        Rows(NoLig & ":" & NoLig).Font.Color = RGB(255, 0, 0) 'rouge
        mess = mess & vbCrLf & "La colonne Prix 1 est éronnée. " & NoLig
    End If
Next
x = FreeFile
Open Environ("userprofile") & "\DeskTop\rapport d'erreur.txt" For Output As #x: Print #x, mess: Close #x
Set FL1 = Nothing
End Sub

Remarque : Telles que déclarées actuellement, tes variables sont de type variant. Ce n'est pas la meilleures option... De plus, pourquoi déclarer certaines variable et pas d'autres ?!...

[Elhyra]

Salut,

Eh bien à vrai dire je n'y ai pas trop pensé, et pour ce qui est de ton code il fait l'inverse de ce que je veux. En gros au lieu de surligner la ligne en rouge, il va la laisser tel qu'elle mais il va surligner toutes les autres lignes pleine en rouge, (En gros si la cellule est pleine alors = faux, alors que sa devrait être l'inverse.)

Merci tout de même pour ta réponse, c'est gentil !

[Thautheme]

Re,

Et comme ça ? :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub bouclecolonneC()
Dim FL1, x
 
Set FL1 = Worksheets("Feuil1")
NoCol = 3 'lecture de la colonne C
For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
    Var = FL1.Cells(NoLig, NoCol)
    If Var = "" Or IsNumeric(Var) = True Then
        Rows(NoLig & ":" & NoLig).Font.Color = RGB(255, 0, 0) 'rouge
        mess = mess & vbCrLf & "La colonne Prix 1 est éronnée. " & NoLig
    End If
Next
x = FreeFile
Open Environ("userprofile") & "\DeskTop\rapport d'erreur.txt" For Output As #x: Print #x, mess: Close #x
Set FL1 = Nothing
End Sub

[Elhyra]

Parfait, c'est exactement ça oui, j'ai juste eu à changer le True en False.

Merci de ton aide !