Suppression des lignes ne contenant pas une suite de caractères

**bloodyjacquou** · 26/09/2016, 17h38

Bonjour,

Je dois récupérer certaines données d'un Doc dans un tableau excel.
Les lignes que je dois récupérer commence par soit "Test identification: " soit "Result ".
En cherchant sur le net, j'ai trouvé un code VBA que j'ai tenté d'adapter mais sans succès.
Le tri se fait sur la colonne A. Toutes les cellules ce qui ne contiennent pas les caractères recherchés auront leur ligne supprimée

Voici le code en question:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Suppr()
 
Dim I As Integer
   Sheets("Exigences par Test et Step").Select
       ActiveCell.Offset(0, 0).Columns("A:A").EntireColumn.Select
 
  For I = [A32000].End(xlUp).Row To 1 Step -1
  If Not Cells(I, 1).Find("Test identification: ") Is Nothing Or _
     Not Cells(I, 1).Find("Result  * ") Is Nothing Then Rows(I).Delete
  Next
 
 
End Sub

Pouvez-vous m'aider à le rendre fonctionnel svp

Merci

**Marc-L** · 26/09/2016, 17h45

Bonjour !

(règles de ce forum !)
Sinon, placer le curseur dans le code sur Find puis appuyer sur la touche

!

Alors rien qu'en consultant l'aide VBA interne à la portée donc de tout débutant,
on peut s'apercevoir qu'au moins un paramètre est manquant, en l’occurrence Lookat:=xlPart …

_________________________________________________________________________________________________________
Copier / Coller n'est pas coder !

**bloodyjacquou** · 27/09/2016, 09h16

Ok merci.. je ne suis aucunement développeur. Chacun son domaine d'excellence. Vous me poseriez une question technique dans mon domaine (aéro), j'essaierai de répondre agréablement et de manière a ce que n'importe qui puisse comprendre.

De ce fait je n'ai rien compris à votre explication et j'aurais besoin d'éclaircissement:

Que manque t-il à "Find" ?
Où et quand dois-je utiliser F1 ?

Merci d'avance de rester accessible

Cordialement

**unparia** · 27/09/2016, 09h25

Vous me poseriez une question technique dans mon domaine (aéro), j'essaierai de répondre agréablement et de manière a ce que n'importe qui puisse comprendre

Cela tombe bien. Je n'y connais rien en aéronautique (chacun son domaine d'excellence, n'est-ce-pas ?) . Comment (quels gestes) agir sur les ailerons de mon aeronef pour faire un looping ?

**Al__22** · 27/09/2016, 09h35

Ce que Marc-L cherche à te dire, et ce sans être désagréable, c'est que en placant ton curseur (la souris, enfin la barre verticale permettant de taper des lettres/symboles/etc. ou de les supprimer) sur le Find de ta macro et en appuyant sur F1 tu accèdes à l'aide VBA.

Du coup en regardant bien tu remarque que ton Find doit s’écrire à minima ainsi :

Code :

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

Range("la où tu cherche").Find("Ce que tu cherche", lookat:=xlPart)

Après pour ce qui est de chacun son domaine, je suis loin d'être programmeur et n'en aurait jamais la prétention, mais en cherchant bien on trouve souvent la réponse

Bonne journée

**bloodyjacquou** · 27/09/2016, 09h38

Tout dépend si vous êtes en lois normales ou directes. Si les PRIM A et B ainsi que les SEC A et B sont actionnés, vous risquez avoir du mal à faire un looping. De plus les ailerons seuls ne suffiraient pas à maintenir l'équilibre. Elevator et Rudder sont également nécessaires au mouvement..

[EDIT]
Ok j'avis pas vu ta réponse Al. Merci à toi pour ton aide

**unparia** · 27/09/2016, 09h46

Bonjour AL_22
Il apprendra ainsi, entre autres, que la méthode Find cherche dans une plage et non dans une cellule.
Elle peut bien sur rechercher dans une seule cellule (une cellule étant elle aussi une plage), mais abusivement.
Ceci dit :
- l'utilisation de son Or est ici illogique.
- Il ferait maintenant bien d'ouvrir son aide VBA à la rubrique Instr.
- Il ferait également bien de consulter également la rubrique Like, Opérateur

PS : à rapprocher de :

Tout dépend si vous êtes en lois normales ou directes. Si les PRIM A et B ainsi que les SEC A et B sont actionnés, vous risquez avoir du mal à faire un looping. De plus les ailerons seuls ne suffiraient pas à maintenir l'équilibre. Elevator et Rudder sont également nécessaires au mouvement

Où rien ne m'a été expliqué de ce que sont les "lois normales", les "PRIM", les "SEC", etc ...

(je vais devoir me contenter de louer les services d'un pilote, dans ce cas. Le montant de cette dépense sera probablement moins élevé que celui du temps que je passerai à ouvrir un manuel d'aéronautique pour y découvrir ce que sont ces "choses" et qui sera donc pris sur celui que j'occuperais dans le domaine de mes compétences).

**Al__22** · 27/09/2016, 11h15

Bonjour unparia (toujours aussi cinglant d'après ce que je vois

)

N'empèche que je suis d'accord faire un Find dans une seule cellule n'est pas (enfin il me semble) très avantageux, le plus simple aurait été de faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Suppr()
 
Dim I As Integer
   Sheets("Exigences par Test et Step").Select
       ActiveCell.Offset(0, 0).Columns("A:A").EntireColumn.Select
 
  For I = [A32000].End(xlUp).Row To 1 Step -1
  If Not Cells(I, 1).Value Like "Test identification: " Or _
     Not Cells(I, 1).Value Like "Result  * " Then Rows(I).Delete
  Next
 
 
End Sub

(J'ai fait ça en 2 secs donc pas vérifié si ça marchait où si il y avait plus rapide

)

**unparia** · 27/09/2016, 11h23

(J'ai fait ça en 2 secs donc pas vérifié si ça marchait où si il y avait plus rapide )

En effet :
- tu as oublié des *
- tu as fait toi également la même erreur logique (utilisation du Or)

**Al__22** · 27/09/2016, 11h29

Autant pour moi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Suppr()
 
Dim I As Integer
 
  For I = Sheets("Exigences par Test et Step").[A32000].End(xlUp).Row To 1 Step -1
  If Not Cells(I, 1).Value Like "Test identification:*" Then
   If Not Cells(I, 1).Value Like "Result*" Then Rows(I).Delete
    End If
  Next
 
 
End Sub

**unparia** · 27/09/2016, 11h30

T'as encore oublié deux *

Et il suffisait par ailleurs de mettre un And à la place du Or.

PS : un simple Instr("ceci") + Instr("cela"), non ? (Si = 0, ni "ceci" ni "cela", présents).

**Al__22** · 27/09/2016, 11h32

Lesquels de * ???
Pour le And et les Instr j'ai pas réfléchi je suis allé au plus rapide

**unparia** · 27/09/2016, 11h37

Tu as finalement raison
La confusion venait d'un titre :

contenant pas une suite de caractères

différent du texte :

commence par soit "Test identification: " soit "Result "

Et tu coup, même Left aurait fait l'affaire.

**patricktoulon** · 27/09/2016, 11h40

Bonjour

et bien dit donc !! ca vous dirais de rester simple
perso un simple filtre suffit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
 
Sub test1()
   With ActiveSheet.Range("A2:C11")' plage a adapter
        .AutoFilter Field:=1, Criteria1:="*titi*" 'argument partiel a adapter (laisser les etoiles de chaque coté)
        Add = .SpecialCells(xlCellTypeVisible).Address 'te donne l'adresse la plage ou se trouve "titi" en colonne 1
        .AutoFilter ' arrete le filtre
        'et donc
        .Parent.Range(Add).EntireRow.Delete 'on supprime les lignes entière de la plage trouvée
       MsgBox "laplage(" & Add & ") a été supprimée"
    End With
 
End Sub

bon un café hein !! quelqu'un en veut un???

que dis-je!!
il y a deux critères
ben la ligne autofilter c'est :

Code :

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

.AutoFilter Field:=1, Criteria1:="=*titi*", Operator:=xlOr, Criteria2:="=*toto*"

voila

**Al__22** · 27/09/2016, 11h43

Envoyé par patricktoulon

bon un café hein !! quelqu'un en veut un???

Je t'aime patrick tu sais ça ?

**patricktoulon** · 27/09/2016, 11h48

a bon ??
moi ou le café

**Al__22** · 27/09/2016, 11h58

Le café

mais vu que c'est toi qui propose par rapprochement toi aussi

**Marc-L** · 27/09/2016, 12h01

♪ Love me, ♫ Love me tender, ♪ Love me sweet … ♫

**patricktoulon** · 27/09/2016, 12h13

bonjour Marc
hoh!! la !!! la c'est plus un café hein!!!

en relisant les arguments c'est "ne contenant pas "
alors

Code :

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

.AutoFilter Field:=1, Criteria1:="<>*titi*", Operator:=xlAnd, Criteria2:="<>*toto*"

enfin bref avec l'enregistreur de macro il aurait eu pratiquement un code tout fait

**Marc-L** · 27/09/2016, 12h25

Je suis bien d'accord mais déjà initialement il y avait son Copier / Coller utilisant Find sans compter la logique …

On en revient toujours à la première règle : se poser d'abord la question
« que peut faire Excel pour moi avant d'attaquer le VBA ? »

Car souvent l'utilisation du B-A-BA d'Excel permet aux débutants de pouvoir s'en sortir …

Suppression des lignes ne contenant pas une suite de caractères

Macros et VBA Excel

Discussions similaires

Partager

Partager