VBA Fonction If Else

Version imprimable

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:

Dim as cellule Range

Voici mon code VBA
Code:

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,

--

07/10/2020, 15h47
Patrice740

Bonjour,

L'instruction End If clôture le If précédent.
Tu écris ensuite un Else sans If préalable !
07/10/2020, 15h50
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:

=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:

If IsNumeric(Cell.Value) And Len(ActiveCell.Value) = 5 Then ' Si la valeur est numérique est contient 5 caractères
07/10/2020, 16h15
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 ?
07/10/2020, 16h39
joe.levrai

1 pièce(s) jointe(s)

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

Istext n'existe pas

Pièce jointe 580923
07/10/2020, 16h55
Patrice740

Bonjour,

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

Code:

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

Messieurs,

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

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,

--

07/10/2020, 19h13
Patrice740
Re,

Ça c'est inutile :

Code:

Set cellule = Range("O:O")

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

Et là

Code:

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

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

Par exemple :
Code:

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

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:

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

Re,

Citation:

Envoyé par Stéphane_MAN

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:

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