[VBA-E]Traitement d'un fichier excel

Bonjour
J'aimerais parcourir un fichier excel et supprimer les lignes ne commençant pas par le mot que je définis par var1
Voila ce que j'ai fait mais ça supprime tout

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Dim Var As String On Error Resume Next var1 = "valeur1"     nbr_lignes = ActiveSheet.UsedRange.Rows.Count   Set MotTrouvé = Cells.Find(What:="*", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate   For compteur = 1 To nbr_lignes   If Not MotTrouvé = var1 Then MotTrouvé.Select ActiveCell.EntireRow.Select Selection.Delete Shift:=xlUp Cells.FindNext(After:=ActiveCell).Activate Else Cells.FindNext(After:=ActiveCell).Activate End If   Next compteur

---

Merci de votre aide

Edit
Bonjour,
Utiliser les balises Code et /code facilite la lecture. Tu sélectionnes ton code et tu cliques sur [ Code ] Et lis les règles du forum, ça te facilitera la recherche de solutions :wink:
Balises gentiment ajoutées par moi...

Mais que c'est compliqué... A quoi sert donc ton "Find" sur le caractère "*"?
Tu n'as qu'à simplement parcourir ta colonne A, et utiliser ta variable "Compteur" pour désigner les lignes.
Et tu compares le contenu de la cellule à ta variable.
Tu déclares une variable "Var", et tu utilises "Var1"
Pourquoi:

Code:

---

On Error Resume Next

---

Pourquoi sélectionner la ligne avant de la supprimer? Tu aimes bien faire "papilloter" l'écran?
Allez, fais un peu de ménage, rajoute des balises de code pour que ton post soit lisible, et on verra mieux la suite.

ce code est dangereux
tu fais une boucle sur l'étendue d'un range qui va diminuer pendant
la durée de la boucle
moralité tu risques de supprimer des lignes que tu veux garder

Au passage: la technique que j'utilise pour ce genre de traitement (suppression de lignes), c'est de commencer par le bas de la feuille.

ok
j'ai donc réduit un peu mon code mais je ne connais malheureusement pas encore bien le fonctionnement du vb ( ca fait 2 jours )
Comment définir la cellule en fonction du compteur ?
j'ai fait cela mais ça n'est pas bon

Code:

---

1 2 3 4

For compteur = 1 To nbr_lignes MotTrouvé = [A(compteur)].Select ...

---

Merci d'avance

Citation:

---

mais je ne connais malheureusement pas encore bien le fonctionnement du vb

---

J'ai lu !
Je ne connais en ce qui me concerne pratiquement rien de Vba...
Mais cette remarque me laisse perplexe ! Le problème, ici, n'est pas le langage, mais le rasionnement (y compris avec des idéogrammes) !...
Pourquoi, par exemple, Megaxel commence-t-il par la dernière ligne (à fort juste titre) ? Oublies l'informatique, oublies tout langage... et tu commenceras à comprendre que le code n'est jamais rien d'autre qu'un vocabulaire à ta disposition pour exprimer ta pensée... Il n'est pas là pour penser à ta place ... :wink:

lol
Premièrement ici c'est une question de langage en C, en java, en php ... je sais faire mais pas en VBA, je ne connais pas la syntaxe
Deuxièmement parcourir un tableau et sélectionner la cellule en fonction du compteur je ne vois pas où est le problème logique ?

Merci d'avance

Syntaxe et fonctionnement ... sont 2 choses différentes !
Relis ce qu'à écrit Megaxel
Bonne chance

Oui, c'est un forum d'entraide, et un forum BÉNÉVOLE !!!
Quand tu auras passé plus de temps ici, tu apprendras comment les gens qui répondent le plus fonctionnent. Il-y-a des choses que tu apprécieras plus que d'autres, mais tu verras que tout le monde a des choses à t'apporter. Alors ne monte pas sur tes grands chevaux. Il n'y a personne ici qui veut rabaisser qui que ce soit, mais il est normal de vouloir faire progresser les gens.
Je vais donc, pour que tu ne te braques pas, faire ce qu'il ne faut pas faire, et te donner le code tout fait. Mais je compte sur toi pour que tu le comprennes, et que tu ailles voir dans les tutoriels ce qui peut être amélioré.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Var1 As String Dim Compteur As Integer Dim MotTrouve As String var1 = "valeur1" nbr_lignes = ActiveSheet.UsedRange.Rows.Count For Compteur = nbr_lignes To 1 Step -1 MotTrouve = Cells(Compteur,1).Value If MotTrouve = var1 Then Rows(Compteur).Delete Shift:=xlUp End If Next Compteur

---

Merci à toi Megaxel
Je comprend bien ton code je pense que ma logique n'été pas loin mais ma syntaxe plutôt éloigné, pour les tutoriel j'aimeré bien mais on m'a mi sur un projet Macro excel (que j'aprend au fur et à mesure) et j'ai un temp trés limité.

Allez, clique vite sur le bouton :resolu: , et tu seras pardonné.
(Enfin, par moi...)
:D