Discussion :

[Nherve]

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.

[Invité]

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 :

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

[Nherve]

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

[Invité]

Bonjour,

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

Code :

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

Len(MonTypeDeChaine(0))

Le code pour 6 caractères :

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

[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