c.clappier
XLDnaute Nouveau
Bonjour,
Je bloque sur mon code. Je souhaiterais comparer les valeurs des cellules d'une colonne avec celles données par mon tableau "valeurs_autorisees" => 0,1,2,3,4,5,6,7,8,9
Je n'arrive à le faire que pour une seule valeur. J'ai essayé d'ajouter des conditions and => échec
J'ai essayé une boucle => échec ...
Voici ce que j'ai fait :
Sub Selection_caractère()
Dim Num_ligne As Variant
Dim Valeurs_autorisees As Variant
Valeurs_autorisees = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
Num_ligne = 2
While Cells(Num_ligne, 2) <> ""
Cells(Num_ligne, 4) = Mid(Cells(Num_ligne, 2), 4, 1)
If Cells(Num_ligne, 4) <> Valeurs_autorisees(i) Then
Cells(Num_ligne, 5) = "Non pris en compte"
Else
Cells(Num_ligne, 5) = "Valide"
End If
Num_ligne = Num_ligne + 1
Wend
End Sub
Merci de votre aide
Je bloque sur mon code. Je souhaiterais comparer les valeurs des cellules d'une colonne avec celles données par mon tableau "valeurs_autorisees" => 0,1,2,3,4,5,6,7,8,9
Je n'arrive à le faire que pour une seule valeur. J'ai essayé d'ajouter des conditions and => échec
J'ai essayé une boucle => échec ...
Voici ce que j'ai fait :
Sub Selection_caractère()
Dim Num_ligne As Variant
Dim Valeurs_autorisees As Variant
Valeurs_autorisees = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
Num_ligne = 2
While Cells(Num_ligne, 2) <> ""
Cells(Num_ligne, 4) = Mid(Cells(Num_ligne, 2), 4, 1)
If Cells(Num_ligne, 4) <> Valeurs_autorisees(i) Then
Cells(Num_ligne, 5) = "Non pris en compte"
Else
Cells(Num_ligne, 5) = "Valide"
End If
Num_ligne = Num_ligne + 1
Wend
End Sub
Merci de votre aide