Ide sur un macros qui detecte des caracteres

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
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
Merci d'avance😀
 
Re : Ide sur un macros qui detecte des caracteres

Bonjour à tous

Code:
Sub AD_char()
Dim c As Range
Dim X As [COLOR="Red"]Long[/COLOR]
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 [COLOR="red"]'Ca ne sert plus, çà ?[/COLOR]        
For Each c In Range(Cells(1, X), Cells(Rows.Count, X).End(xlUp))
[COLOR="red"]c.Interior.ColorIndex = -4142[/COLOR] ' à déplacer
    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
Je pense à un truc comme ça
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
568
Réponses
10
Affichages
714
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
479
Réponses
4
Affichages
510
Réponses
40
Affichages
2 K
Retour