teodormircea
XLDnaute Occasionnel
J'ai une macros qui me détecte des caractères donnes sur une colonne donne ,
mais je me suis perdu, car je suis débutant.
Voila le code
Merci d'avance😀
mais je me suis perdu, car je suis débutant.
Voila le code
Code:
Sub AD_char()
Dim c As Range
Dim X As Range
Dim caractere As Variant
Dim i, j As Byte
caractere = Array("&", "*", ",", ".", "@", "$", "#", "?", _
":", "'", "!", ";", ")", "(", "[", "]", " - ", "-", "_", "+", " ", " ", "``")
X = CLng(InputBox(Prompt:="Quelle colonne?"))
If (X < 1) + (X > Columns.Count) Then Exit Sub
lastRow = ActiveSheet.Cells(Rows.Count, X).End(xlUp).Row
c.Interior.ColorIndex = -4142
For Each c In Range(Cells(1, X), Cells(Rows.Count, X).End(xlUp))
For i = 1 To Len(c)
For j = 0 To UBound(caractere)
If Mid(c, i, 1) = caractere(j) Then
c.Interior.ColorIndex = 7
End If
Next j
Next i
Next c
End Sub