Discussion :

[mel55]

Je suis entrant de programmer un petit programme qui me supprime sous excel toutes les lignes contenant certaines chaines de caractères:

sous excel mes chaines de caractères sont comme ceci : "SAMGW06-1" (oui il y'a bien les " " dans excel et sa je ne peux malheureusement pas le changé...)

et ce que j'essaye de faire c'est une boucle qui lit tout mon document et qui dès qu'il voit mon texte le supprime. J'ai essayé un tas de manière différente mais aucunes n'est concluante (j'ai mis des message box pour voir si j'entrais oui ou non dans ma boucle et je n'ai jamais mon message à l'ecran), j'ai mis dans ce code toutes mes tentatives pour supprimer ses lignes

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
 
For cptExcel = 1000 To 1 Step -1
            If  Trim(obxl.range("B" & cpt).value) = Chr(42) & "SAMGW06-1" & Chr(42) Then
                MsgBox("réussis  boucle 1")
                obxl.Rows(cptExcel).delete()
            ElseIf Trim(obxl.range("B" & cpt).value) = "*" & "SAMGW06-1" & "*" Then
                MsgBox("réussis  boucle 2")
                obxl.Rows(cptExcel).delete()
            ElseIf Trim(obxl.range("B" & cpt).value) = """ & "SAMGW06-1" & """Then
                MsgBox("réussis boucle 3")
                obxl.Rows(cptExcel).delete()
            ElseIf Trim(obxl.range("B" & cpt).value) = "*SAMGW06-1*" Then
                MsgBox("réussis boucle 4")
                obxl.Rows(cptExcel).delete()
            ElseIf Trim(obxl.range("B" & cpt).value) = "?" & " SAMGW06-1" & "?" Then
                MsgBox("réussis boucle 5")
                obxl.Rows(cptExcel).delete()
            ElseIf Trim(obxl.range("B" & cpt).value) = "*" & "SAMGW06-1" & "*" Then
                MsgBox("réussis boucle 6")
                obxl.Rows(cptExcel).delete()
            End If
        Next cptExcel

j'ai utilisé la commande trim pour supprimer certains espace non voulu dans mes lignes excel et sinan le obxl c'est mon fichier excel

Si vous arrivez à m'aider ce serait vraiment génial car la je galère depuis un petit moment et bien entendu si vous avez des questions n'hésitez pas

[mel55]

y'a personne qui aurait une petite idée pour m'aider???

[Pol63]

c'est incompréhensible, le code est étrange et mal écrit à première vue (désolé )
enfin tu peux débugger pas à pas pour comprendre ce qui va pas dans ton code, connaitre la valeur des variables etc...

[mel55]

si tu veux le problème c'est que j'ai pas la solution à mon soucis
dans excel j'ai plusieurs données à supprimé dans une des mes colonnes (colonne B pour être précis)

et enfaite mes données sont sous formes " ", c'est à dire par exemple comme ceci "SAMGW06-1"

et je dois supprimer ses lignes.

si mes données avait été simplement SAMGW06-1
mon code aurait été :

Code :

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

1
2
3
4
 
If  Trim(obxl.range("B" & cpt).value) = "SAMGW06-1"Then
                obxl.Rows(cptExcel).delete()
end if

mais je ne sais pas comment faire pour qu'il prenne en compte mes " "
car je ne peux pas mettre

Code :

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

1
2
3
4
 
If  Trim(obxl.range("B" & cpt).value) = ""SAMGW06-1""Then
                obxl.Rows(cptExcel).delete()
end if

sa ne fonctionne pas ... et donc dans le code que j'ai mis plus haut j'ai mis toutes les solutions que j'ai essayée (avec les caractères joker) et j'y ai mis des msgbox pour voir si j'entrais dans mes boucles ou pas et je n'entre dans aucunes de mes boucles vu qu'aucun message ne viens à l'écran.

je sais pas si c'étais plus compréhensible

[Pol63]

si tu veux le problème c'est que j'ai pas la solution

j'aurais pas cru ...

mais je ne sais pas comment faire pour qu'il prenne en compte mes " "
car je ne peux pas mettre

Code :

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

1
2
3
4
 
If  Trim(obxl.range("B" & cpt).value) = ""SAMGW06-1""Then
                obxl.Rows(cptExcel).delete()
end if

et bien si tu peux mais un " doit etre remplacer par 2 "
donc il t'en faut 3 de chaque coté
if machin = """aaa""" then ...


et puis si tu veux supprimer tout ce qui contient SAMGW06 tu peux faire

Code :

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

if Trim(obxl.range("B" & cpt).value).contains("SAMGW06") then

[mel55]

Hello j'ai essayé tes deux méthodes mais aucunes ne supprime ma ligne


je comprends plus rien

[Pol63]

apprend à débugger (pas à pas, points d'arrets, espions etc...)

tu trouveras exactement ce qui va pas et c'est mieux que de mettre des messagebox qui dans ce cas ne t'apprennent rien

[roshy]

Un guillemet peut être remplacé par Char(34).

Alors ça te donnerait :

Code :

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

1
2
3
4
 
If  Trim(obxl.range("B" & cpt).value) = Char(34) & "SAMGW06-1" & Char(34)Then
                obxl.Rows(cptExcel).delete()
end if

[mel55]

Merci beaucoup ta méthode marche à merveillle


allé le problème est résolus et merci à vous deux de m'avoir aidé

[roshy]

Ça m'a fait plaisir