Faire une sélection en fonction de format de donnée

Version imprimable

01/09/2017, 15h37
Nherve

1 pièce(s) jointe(s)

Faire une sélection en fonction de format de donnée

Bonjour,

Je dois actuellement modifier un document excel provenant d'un autre logiciel afin de l'intégrer dans ma base de donnée.
J'ai donc des lignes comportant des informations a supprimer. L'emplacement de celles-ci est variable.
J'ai cependant une donnée dans la colonne A sous la forme de 5 chiffres un tiré 2 lettres et 2 chiffres (exemple 01235-AA52)

Je recherche un moyen de sélectionner tout les lignes donc les formations contenu dans colonne A qui ne respectent pas le model 11111-AA11 (exemple 01235-AA52 )

Quelqu'un a t'il une idée ? une piste ? et pourquoi pas la solution à mon problème?

Merci d'avance.

Citation:

Envoyé par Nherve

Bonjour,

Le code suivant, met en jaune les cellules correspondant au cellules à garder. Avec le filtre par couleur, vous pouvez ensuite sélectionner les cellules qui ne sont pas de cette couleur et les éliminer.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub SelectionnerLesLignes()
 
Dim AireDonnees As Range, Cellule As Range
Dim MonTypeDeChaine As Variant
 
       Set AireDonnees = Sheets("Feuil1").UsedRange.Columns(1).Cells
       For Each Cellule In AireDonnees
           If Cellule.Value <> "" Then
              MonTypeDeChaine = Split(CStr(Cellule.Value), "-")
              If UBound(MonTypeDeChaine) > 0 Then
                 If Len(MonTypeDeChaine(0)) = 5 And Len(MonTypeDeChaine(1)) = 4 Then
                    Cellule.Interior.Color = RGB(255, 255, 0)
                 End If
              End If
           End If
       Next Cellule
       Set AireDonnees = Nothing
 
End Sub

04/09/2017, 11h41
Nherve

1 pièce(s) jointe(s)

Genial ça marche super bien sur le doc que je t'ai envoyé et la suppression des lignes non Jaune est ok aussi. Mais
Oui car il y a souvent un mais.....

Je ne comprends pas pourquoi tes lignes ne fonctionnent pas sur mon doc original.
Je t'envoie un extrait peut être que j'ai loupé un épisode

Merci beaucoup

Citation:

Envoyé par Nherve

Bonjour,

Parce que la 1ère partie de la chaîne fait 6 caractères et pas 5.

Code:

Len(MonTypeDeChaine(0))

Le code pour 6 caractères :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub SelectionnerLesLignes()
 
Dim AireDonnees As Range, Cellule As Range
Dim MonTypeDeChaine As Variant
 
       Set AireDonnees = Sheets("Feuil1").UsedRange.Columns(1).Cells
       For Each Cellule In AireDonnees
           If Cellule.Value <> "" Then
              MonTypeDeChaine = Split(CStr(Cellule.Value), "-")
              If UBound(MonTypeDeChaine) > 0 Then
                 If Len(MonTypeDeChaine(0)) = 6 And Len(MonTypeDeChaine(1)) = 4 Then
                    Cellule.Interior.Color = RGB(255, 255, 0)
                 End If
              End If
           End If
       Next Cellule
       Set AireDonnees = Nothing
 
End Sub

04/09/2017, 15h17
Nherve

C'était trop simple pour le voir ou je suis pas encore assez bon (ou toujours aussi mauvais :) )

En tout cas merci beaucoup ça marche super bien.
Il me reste encore quelques trucs a régler (dont un bien compliquer à voire) et tout sera nikel.
Cela fera peut être un nouveau poste sur le forum

Encore merci