Discussion :

[Stéphane_MAN]

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,

--

[Patrice740]

Bonjour,

L'instruction End If clôture le If précédent.
Tu écris ensuite un Else sans If préalable !

[joe.levrai]

Bonjour,

ne serait-il pas plus pertinent de mettre en place un blocage de saisie si la cellule ne comporte pas une séquence de 5 chiffres ?

Ca évite les contrôles en aval

En passant par une validation des données "personnalisé", la formule suivante effectue le contrôle sur la cellule D3 (à adapter de ce fait)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ET(ESTNUM(D3);NBCAR(D3)=5)

Sinon, il faut tester à la fois que la valeur de la cellule est numérique, et que le nombre de caractères est de 5

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If IsNumeric(Cell.Value) And Len(ActiveCell.Value) = 5 Then  ' Si la valeur est numérique est contient 5 caractères

[Stéphane_MAN]

Merci à vous pour vos réponses.

Je teste cela de suite après je souhaite avoir la valeur au format texte car il s'agit des codes communes insee, certains commence par 0 pour les départements du 01 au 09.

Donc je peux remplacer isnumeric par istext je suppose ?

[joe.levrai]

Même si le nombre est au format texte, isnumeric renverra true

Istext n'existe pas

[Patrice740]

Bonjour,

Pour tester si le code est correct (avec les 0 préliminaires correctement saisis) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  If Format(Val(cellule.Value), "00000") = cellule.Text And Len(cellule.Text) = 5 Then

[Stéphane_MAN]

Messieurs,

Je pense que je suis une quiche car j'ai essayé le code ci-dessous mais sans succès.

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
16
17
 
 
Sub FILTRE()
 
Dim cellule As Range
Set cellule = Range("O:O")
 
For Each cellule In Range("O2:O")
If cellule <> "" Then
If Not Format(Val(cellule.Value), "00000") = cellule.Text And Len(cellule.Text) = 5 Then
End If
End If
Next cellule
 
MsgBox ("Le format n'est pas bon")
Exit Sub
End Sub

Je souhaite que la formule soit active uniquement sur les cellules non vide et malheureusement cela ne fonction pas.

De plus que je colle des valeurs bonnes ou non dans ma colonne, le message "le format n'est pas bon" s'affiche à chaque fois.

Cordialemenent,

--

[Patrice740]

Re,

Ça c'est inutile :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set cellule = Range("O:O")

et O:O c'est pas une cellule, c'est une colonne ....

Et là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each cellule In Range("O2:O")

il faut indiquer le numéro de la dernière ligne !

Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim d As Long
d = Cells(Rows.Count, "O").End(xlUp).Row
For Each cellule In Range("O2:O" & d)

Le message, il faut le mettre entre ta ligne 10 et ta ligne 11

Le Exit Sub est inutile

[Stéphane_MAN]

Bonjour Merci pour votre réponse.

Je comprends de mieux en mieux mais maintenant j'ai le message Erreur de compilation End If sans bloc If alors que j'ai bien un If et un end If à la fin.

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 FILTRE()
 
Dim cellule As Range
 
If cellule <> "" Then
        If Not Format(Val(cellule.Value), "00000") = cellule.Text And Len(cellule.Text) = 5 Then
                Dim d As Long
            d = Cells(Rows.Count, "O").End(xlUp).Row
        For Each cellule In Range("O2:O" & d)
    End If
End If
Next cellule
 
MsgBox ("Le format n'est pas bon")
End Sub

[Patrice740]

Re,

Je comprends de mieux en mieux mais ...

Tu mélanges tout, il faut faire les choses dans l'ordre, tu n'appliques pas les conseils qu'on te donnes !

Par exemple :

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
16
Sub TestCP()
Dim cellule As Range
Dim d As Long
Dim e As Integer
    d = Cells(Rows.Count, "O").End(xlUp).Row
    For Each cellule In Range("O2:O" & d)
        If cellule.Value <> "" Then
            If Not (Format(Val(cellule.Value), "00000") = cellule.Text And Len(cellule.Text) = 5) Then
                cellule.Activate
                MsgBox "Le format de la cellule " & cellule.Address & " n'est pas bon"
                e = e + 1
                If e >= 5 Then MsgBox "Il y a trop d'erreurs ": Exit Sub
            End If
        End If
    Next cellule
End Sub