Microsoft 365 macro

[Didier03]

Bonjour tout le monde,
voilà je cherche une macro qui envoie une alerte en cas d'utilisation de ces caractères spéciaux:
/ \ : * ? " | <> dans une cellule Excel

pourquoi cette demande ? , en faite, à mon boulot, nous avons créé une macro et à certains moments nous avons une erreur 1004 ..... nous avons cherché partout pourquoi cette erreur....
et on s'est apperçu qu'en utilisant ces caractères spéciaux nous avions cette erreur , et donc voilà pourquoi cette demande

merci beaucoup d'avance

 

[Eric KERGRESSE]

Bonjour,

Avec une fonction :

Function AlerteCaracteres(ByVal Chaine As String) As String

Dim I As Integer

    AlerteCaracteres = ""
    For I = 1 To Len(Chaine)
        Select Case Mid(Chaine, I, 1)
               Case "/", "\", ":", "*", "?", "|", "<", ">", """"
                 AlerteCaracteres = AlerteCaracteres & Mid(Chaine, I, 1)
        End Select
    Next I

End Function

 

[Didier03]

Bonjour,

Avec une fonction :

Function AlerteCaracteres(ByVal Chaine As String) As String

Dim I As Integer

    AlerteCaracteres = ""
    For I = 1 To Len(Chaine)
        Select Case Mid(Chaine, I, 1)
               Case "/", "\", ":", "*", "?", "|", "<", ">", """"
                 AlerteCaracteres = AlerteCaracteres & Mid(Chaine, I, 1)
        End Select
    Next I

End Function

Merci beaucoup pour votre réponse , je vais voir ça

 

[Didier03]

Bonjour,

Avec une fonction :

Function AlerteCaracteres(ByVal Chaine As String) As String

Dim I As Integer

    AlerteCaracteres = ""
    For I = 1 To Len(Chaine)
        Select Case Mid(Chaine, I, 1)
               Case "/", "\", ":", "*", "?", "|", "<", ">", """"
                 AlerteCaracteres = AlerteCaracteres & Mid(Chaine, I, 1)
        End Select
    Next I

End Function

suis un débutant dans vba , cette macro fonctionne sur toute les cellules du fichier ?

 

[Didier03]

j'avais oublié que nous écrivons dans les colonne 17 et 18 du fichier

j'ai déjà ce genre de macro écrite

If IsEmpty(Cells(LastRow, 17)) = False Then

Else: MsgBox ("La colonne Titre de la deviation n'est pas renseignée")
Exit Sub

 

[Eric KERGRESSE]

La fonction est valable sur toute cellule dont le contenu est un texte. Bous pouvez l'utiliser directement dans un code ou dans une cellule.

 

[Didier03]

merci beaucoup Eric , je vais tester ça