Bonjour à tous,

Depuis 7h du matin, je bloque sur une fonction.

L'objectif de ma macro est de copier une liste de code commune insee (5 chiffres au format texte) dans une colonne précise en l'occurrence la colonne O afin de créer un filtre automatique dans un tableau annexe.

Je souhaite bloquer la macro quand la valeur n'est renseigné n'est pas un code commune insee, donc si l'utilisateur rentre un nombre à 4 chiffres, des lettres je souhaite bloquer la macro et cette macro ne doit fonctionner que si et seulement si le critère renseigné est bel et bien une liste de code commune insee à 5 chiffres.

J'ai ma colonne O dans excel que j'ai dimensionné comme ceci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim as cellule Range
Voici mon code VBA

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Filtrer()
 
Dim cellule As Range
 
For Each cellule In Range("O:O")
If WorksheetFunction.IsText(cellule.Value) = False Then
Exit For
End If
Next cellule
 
MsgBox ("veuillez corriger")
Else
    ActiveSheet.Range("$A$1:$M$6252").AutoFilter Field:=13, Criteria1:="<>"
    End If
End Sub

J'ai absolument besoin de votre aide please .

Cordialement,

--