Microsoft 365 macro

Didier03 · 5 Octobre 2023

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 · 5 Octobre 2023

Bonjour,

Avec une fonction :

VB:

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 · 5 Octobre 2023

Eric KERGRESSE à dit:

Bonjour,

Avec une fonction :

VB:

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 · 5 Octobre 2023

Eric KERGRESSE à dit:

Bonjour,

Avec une fonction :

VB:

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 · 5 Octobre 2023

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 · 5 Octobre 2023

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 · 5 Octobre 2023

merci beaucoup Eric , je vais tester ça

Microsoft 365 macro

Didier03

XLDnaute Junior

Eric KERGRESSE

XLDnaute Occasionnel

Pièces jointes

Didier03

XLDnaute Junior

Didier03

XLDnaute Junior

Didier03

XLDnaute Junior

Eric KERGRESSE

XLDnaute Occasionnel

Didier03

XLDnaute Junior

Discussions similaires