VBA Trouver le format d'une cellule

Version imprimable

28/03/2017, 21h13
anthony123

VBA Trouver le format d'une cellule

Bonjour,

J'ai un fichier excel avec des chiffre 1,2,3,... et j'aimerais faire apparaitre en fond jaune les cellules ne respectant pas la forme '0001', '0002', '0003' etc ...
Pour cela j'aimerais fixer un boutton qui lorsqu'on clique dessus rend toutes les cellules à ce format. Le nombre sera compris entre '0000' et '9999'. Et si je rencontre un doublon je le mets en rouge.

Quelqu'un pourrait m'aider pour réaliser ce code ?

Merci d'avance de votre aide

Bonjour,
Pour le format, je ne saurais pas trop t'orienter, mais pour la recherche de doublons, tu peux utiliser une liste des nombres visités et des nombres qui sont en double :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub doublons()
    Dim listVisit(1) As String
    Dim listDouble(1) As String
    Dim i As Long     'taille liste des visités
    Dim j As Long     'taille liste des doublons
    Dim cel As Range
    i = 0
    j = 0
 
    'boucle sur la plage de données pour repérer les doublons
    For Each cel In Range("A1:A100")
        If i = 0 Then       'on met la 1ère cellule dans la liste des visités
            listVisit(i) = cel.Value
            i = i + 1
            Next Cel
        End If
 
        If Application.Match(cel.Value, listVisit, 0) <> 0 Then    'si l'élément est déjà dans la liste des visités --> on l'ajoute à la liste des doublons
            If j <> 0 Then      'on vérifie s'il y a déjà un élément dans la liste des doublons, si oui, il faut redimensionner la liste
                ReDim Preserve listDouble(j)
            End If
            listDouble(j) = cel.Value       'ajout dans la liste des doublons
            j = j + 1
        Else        'si l'élément n'a pas encore été visité : on l'ajoute à la liste des visites.
            ReDim Preserve listVisit(i)
            listVisit(i) = cel.Value
        End If
    Next cel
 
    'boucle sur la plage des données pour colorer les doublons
    For Each cel In Range("A1:A100")
        If Application.Match(cel.Value, listDouble, 0) <> 0 Then
            'colorer --> voir avec l'enregistreur de macro comment colorer
        End If
    Next cel
 
End Sub

29/03/2017, 09h55
Menhir

Pour les doublons, le plus simple est d'utiliser les mises en forme conditionnelles : 10 s à mettre en place sans VBA.
29/03/2017, 11h39
unparia

Bonjour
Et pour ce qui est des cellules dont on veut vérifier la "forme" : prière de préciser si elles doivent être à un format de cellule ou si doivent être acceptées également des cellules qui auraient été saisies sous cette forme et préciser également si les données qu'elles contiennent doivent être des NUMERIQUES ou du texte (alphanumériques, donc).
Car ce n'est pas la même chose et les vocations peuvent être très différentes dans un cas et dans l'autre.
29/03/2017, 21h23
anthony123

Bonjour,

Concernant le format des cellules, elles doivent être à ce format : 0000 jusqu'à 9999 c'est à dire que si l'on rentre un numéro 1, celui-ci doit être convertit par 0001
Le format est bien numérique
29/03/2017, 21h43
unparia

donne alors tout simplement le format 000# aux cellules concernées.
30/03/2017, 09h14
anthony123

Je dois obligatoirement passer par le VBA pour faire ces instructions
30/03/2017, 09h23
riaolle

Bonjour,
Même si tu dois passer par VBA, tu peux utiliser les fonctionnalités d'Excel. Pour connaitre le code associé : utilise l'enregistreur de macro.
30/03/2017, 10h03
anthony123

Ah c'est super ça, et du coup j'aimerais enregistrer la macro lorsque je veux mettre sous fond jaune les cellules ne respectant pas la forme '0001', '0002', '0003' etc

Du coup je vais dans la mise sous forme conditionnel mais nada, je ne vois pas comment faire ....
J'ai pensé à créer une règle mais là aussi je bloque.
30/03/2017, 10h24
riaolle
Plusieurs réponses possibles à ta question, selon ce que tu fais avec ton document.
1. Est-ce que tu dois écrire dans une BDD et tu veux faire en sorte que les personnes écrivent sous le bon format?
2. Est-ce que tu as une BDD et tu veux en faire ressortir les éléments qui n'ont pas le bon format?
Cas 1. :
Suit le conseil de unparia :

Citation:

donne alors tout simplement le format 000# aux cellules concernées.

Cas 2. :
Il faut trouver comment identifier les nombres qui ne sont pas sous le bon format.
- Est-ce qu'être sous le bon format signifie : être un nombre ET être compris entre 1 et 9999 inclus?
- Ou est-ce que dans ta BDD, tu as toujours des nombres, mais tu as parfois 1 et parfois 0001 (et dans ce cas il faut dire que 1 n'est pas bon)?
1er cas : il faut faire une MFC qui reprend ces 2 critères (ou 2 MFC : une pour chaque critère ;) ) en utilisant ESTNUM() pour vérifier que c'est un nombre.
2ème cas : je trouverais cela bizarre, car a priori si tu tapes 0001 dans Excel, c'est automatiquement mis sour le format 1. Si ce n'est pas le cas, c'est sûrement que tes cellules sont sous le format texte. A ce moment là, tu peux faire une MFC sur le nombre de caractères dans ta chaîne avec NBCAR() qui doit être égal à 4.
30/03/2017, 11h04
unparia

Une chose m'interpelle :

Citation:

Je dois obligatoirement passer par le VBA pour faire ces instructions

Question qui appelle une réponse claire : pourquoi "obligatoirement" ?
Qui te l'impose ?
30/03/2017, 11h48
Marc-L

Bonjour, bonjour !

Si MFC, pas besoin de code …

Si code, pas besoin de MFC …
Voilà, voilà ! :dehors:

___________________________________________________________________________________________________________
Je suis Paris, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …