Supprimer une ligne dans WORD / EXCEL selon caractere

Supprimer une ligne dans WORD / EXCEL selon caractere - VB/VBA/VBS - Programmation

Marsh Posté le 14-06-2007 à 17:51:26    

Bonjour à tous,
 
J'aimerais supprimer une ligne dans word ( ou exel ) selon son caratere de début de facon automatique, avec une macro ou autres...
 
Par exemple on a :
 
aaz ze  ze e
az e
te fezerz
efz
te fezfg
 
Je voudrais supprimer les lignes avec "te" ??
Pouvez vous m'aider ??
Merci d'avance

Reply

Marsh Posté le 14-06-2007 à 17:51:26   

Reply

Marsh Posté le 14-06-2007 à 17:56:19    

le te il est forcement au debut ou nimporte ou dans la ligne ?
ca serait pluto nimporte ou
non

Reply

Marsh Posté le 14-06-2007 à 17:59:32    

ben moi c'est au debut donc je pense que cela simplifie le probleme : le texte exact c'est : "N/Aème sur ..."

Reply

Marsh Posté le 14-06-2007 à 18:02:19    

tarznag69 a écrit :

J'aimerais supprimer une ligne dans word ( ou exel ) selon son caratere de début de facon automatique, avec une macro ou autres...


 
deja ca sera kel type de document du .xls .txt ou .doc ?
on commence par koi ?
 
txt et xls je pense savoir faire ms le .doc vu ke c pas du sequentiel je c pa


Message édité par ingenieurcesi le 14-06-2007 à 18:03:05
Reply

Marsh Posté le 14-06-2007 à 18:08:09    

soit .doc ou xls , je pense que le plus facile serait excel car la phrase est dans une cellule donc faut juste suprimer la cellule (ou la vider) ou suppr la ligne...

Reply

Marsh Posté le 14-06-2007 à 18:13:57    

en gros
 
machaine="N/Aèm"
for i=1 to 15000 step 1
val=cells(i,1).value
if machaine=mid(val,1,len(machaine)) then
cells(i,1).clearcontents 'ou row(i).delete
end if
next
 
ca marche ?

Reply

Marsh Posté le 14-06-2007 à 18:18:28    

j'ai un souci avec "val", il dit qu'on doit revoyer un variant ou un object pourtant la syntaxe me parrait ok

Reply

Marsh Posté le 14-06-2007 à 18:20:41    

et avec val=str(cells(i,1).value))

Reply

Marsh Posté le 14-06-2007 à 18:26:27    

Si je met : val=str(cells(i,1).value)) j'ai une erraur de fin d'instruction
 
et en mettant val=str(cells(i,1).value) en enlevant un parenthese j'ai la meme erreur

Reply

Marsh Posté le 14-06-2007 à 18:31:59    

c bon
en fait val est une fonction
mets valeur a la place de val
 
par contre pour ton word je c pa faire ms avec un .txt ouais


Message édité par ingenieurcesi le 14-06-2007 à 18:33:42
Reply

Marsh Posté le 14-06-2007 à 18:31:59   

Reply

Marsh Posté le 14-06-2007 à 18:35:24    

OK c'est nikel, je te remercie beaucoup !!!

Reply

Marsh Posté le 15-06-2007 à 15:28:24    

Bonjour,
 
Voici une macro pour word  
 
Sub essai()
Selection.HomeKey unit:=wdStory
supp "te"
End Sub
 
 
Private Sub supp(txt)
 
Selection.HomeKey unit:=wdStory
With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Forward = True
    .MatchWildcards = False
    .Text = Chr(11)
    .Replacement.Text = vbCr
    .Execute Replace:=wdReplaceAll
End With
Selection.HomeKey unit:=wdStory
 
With Selection.Find
    .Replacement.Text = ""
    .Text = txt
    .Execute
End With
While Selection.Find.Found
    Selection.MoveRight
    Selection.MoveUp unit:=wdParagraph, Count:=1, Extend:=wdMove
    Selection.MoveDown unit:=wdParagraph, Count:=1, Extend:=True
    Selection.Delete
    Selection.Find.Execute
Wend
End Sub

Reply

Marsh Posté le 15-06-2007 à 16:19:04    

Mega merci !!! c'est parfait.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed