Discussion :

[climz]

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 :

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
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
Balises gentiment ajoutées par moi...

[Megaxel]

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 :

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

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.

[random]

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

[Megaxel]

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.

[climz]

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 :

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

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

Merci d'avance

[jmfmarques]

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

[climz]

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

[jmfmarques]

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

[Megaxel]

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 :

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

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

[climz]

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

[Megaxel]

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