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

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

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

 
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

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

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 ?

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

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

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

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

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

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

Mega merci !!! c'est parfait.