Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Geo
Bonsoir michel,
Bonjour,
j'ai besoin d'aide en vba pour supprimer dans un doc toutes les lignes
contenant un meme mot (par exemple "Toto").
Ah ce Toto, toujours là ? Ce sont bien des lignes que tu veux, pas des paragraphes ? Passeque pour des paragraphes, ça ne me parait pas bien difficile, tandis que pour des lignes ! dur dur.
Et je souhaiterai savoir comment rendre une macro dynamique en faisant X fois une opération, X étant dans le presse papiers
Regarde la méthode GetFromClipboard tu récupères la valeur que tu transformes en numérique dont tu te sers comme borne supérieure pour un for
A+
Bonsoir michel,
Bonjour,
j'ai besoin d'aide en vba pour supprimer dans un doc toutes les
lignes
contenant un meme mot (par exemple "Toto").
Ah ce Toto, toujours là ?
Ce sont bien des lignes que tu veux, pas des paragraphes ?
Passeque pour des paragraphes, ça ne me parait pas bien difficile,
tandis que pour des lignes ! dur dur.
Et je souhaiterai savoir comment rendre une macro dynamique en
faisant X fois une opération, X étant dans le presse papiers
Regarde la méthode GetFromClipboard
tu récupères la valeur que tu transformes en numérique
dont tu te sers comme borne supérieure pour un for
j'ai besoin d'aide en vba pour supprimer dans un doc toutes les lignes
contenant un meme mot (par exemple "Toto").
Ah ce Toto, toujours là ? Ce sont bien des lignes que tu veux, pas des paragraphes ? Passeque pour des paragraphes, ça ne me parait pas bien difficile, tandis que pour des lignes ! dur dur.
Et je souhaiterai savoir comment rendre une macro dynamique en faisant X fois une opération, X étant dans le presse papiers
Regarde la méthode GetFromClipboard tu récupères la valeur que tu transformes en numérique dont tu te sers comme borne supérieure pour un for
A+
maudru michel
Bonjour,
Effectivement , cela peut etre un paragraphe en fait.
Merci
"Geo" a écrit dans le message news:
Bonsoir michel,
Bonjour,
j'ai besoin d'aide en vba pour supprimer dans un doc toutes les lignes
contenant un meme mot (par exemple "Toto").
Ah ce Toto, toujours là ? Ce sont bien des lignes que tu veux, pas des paragraphes ? Passeque pour des paragraphes, ça ne me parait pas bien difficile, tandis que pour des lignes ! dur dur.
Et je souhaiterai savoir comment rendre une macro dynamique en faisant X fois une opération, X étant dans le presse papiers
Regarde la méthode GetFromClipboard tu récupères la valeur que tu transformes en numérique dont tu te sers comme borne supérieure pour un for
A+
Bonjour,
Effectivement , cela peut etre un paragraphe en fait.
Merci
"Geo" <sanspub_gledu@wanadoo.fr> a écrit dans le message news:
uGEhBznlDHA.3320@tk2msftngp13.phx.gbl...
Bonsoir michel,
Bonjour,
j'ai besoin d'aide en vba pour supprimer dans un doc toutes les
lignes
contenant un meme mot (par exemple "Toto").
Ah ce Toto, toujours là ?
Ce sont bien des lignes que tu veux, pas des paragraphes ?
Passeque pour des paragraphes, ça ne me parait pas bien difficile,
tandis que pour des lignes ! dur dur.
Et je souhaiterai savoir comment rendre une macro dynamique en
faisant X fois une opération, X étant dans le presse papiers
Regarde la méthode GetFromClipboard
tu récupères la valeur que tu transformes en numérique
dont tu te sers comme borne supérieure pour un for
Effectivement , cela peut etre un paragraphe en fait.
Merci
"Geo" a écrit dans le message news:
Bonsoir michel,
Bonjour,
j'ai besoin d'aide en vba pour supprimer dans un doc toutes les lignes
contenant un meme mot (par exemple "Toto").
Ah ce Toto, toujours là ? Ce sont bien des lignes que tu veux, pas des paragraphes ? Passeque pour des paragraphes, ça ne me parait pas bien difficile, tandis que pour des lignes ! dur dur.
Et je souhaiterai savoir comment rendre une macro dynamique en faisant X fois une opération, X étant dans le presse papiers
Regarde la méthode GetFromClipboard tu récupères la valeur que tu transformes en numérique dont tu te sers comme borne supérieure pour un for
A+
Guy Moncomble
Bonjour à tous, dans le message <3f92e690$0$6970$,
| Bonjour, | | j'ai besoin d'aide en vba pour supprimer dans un doc toutes les lignes | contenant un meme mot (par exemple "Toto"). | | Dans chaque doc , ce nombre de lignes est aléatoire. et le mot | n'apparait qu'une fois dans chaque ligne. |
Essaye ceci :
Public Sub toto() Dim TexteAChercher as String, DebLigne As Long, FinLigne As Long ActiveDocument.Bookmarks("startofdoc").Select 'Texte à chercher TexteAChercher = "monsieur" With Selection.Find .ClearFormatting .Replacement.ClearFormatting While .Execute(TexteAChercher) Selection.Collapse wdCollapseEnd Selection.HomeKey Unit:=wdLine DebLigne = Selection.Range.Start Selection.EndKey Unit:=wdLine FinLigne = Selection.Range.End ActiveDocument.Range(DebLigne, FinLigne).Delete Wend End With End Sub
-- A+
GMO MVP WORD
Bonjour à tous,
dans le message <3f92e690$0$6970$7a628cd7@news.club-internet.fr>,
| Bonjour,
|
| j'ai besoin d'aide en vba pour supprimer dans un doc toutes les lignes
| contenant un meme mot (par exemple "Toto").
|
| Dans chaque doc , ce nombre de lignes est aléatoire. et le mot
| n'apparait qu'une fois dans chaque ligne.
|
Essaye ceci :
Public Sub toto()
Dim TexteAChercher as String, DebLigne As Long, FinLigne As Long
ActiveDocument.Bookmarks("startofdoc").Select
'Texte à chercher
TexteAChercher = "monsieur"
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
While .Execute(TexteAChercher)
Selection.Collapse wdCollapseEnd
Selection.HomeKey Unit:=wdLine
DebLigne = Selection.Range.Start
Selection.EndKey Unit:=wdLine
FinLigne = Selection.Range.End
ActiveDocument.Range(DebLigne, FinLigne).Delete
Wend
End With
End Sub
Bonjour à tous, dans le message <3f92e690$0$6970$,
| Bonjour, | | j'ai besoin d'aide en vba pour supprimer dans un doc toutes les lignes | contenant un meme mot (par exemple "Toto"). | | Dans chaque doc , ce nombre de lignes est aléatoire. et le mot | n'apparait qu'une fois dans chaque ligne. |
Essaye ceci :
Public Sub toto() Dim TexteAChercher as String, DebLigne As Long, FinLigne As Long ActiveDocument.Bookmarks("startofdoc").Select 'Texte à chercher TexteAChercher = "monsieur" With Selection.Find .ClearFormatting .Replacement.ClearFormatting While .Execute(TexteAChercher) Selection.Collapse wdCollapseEnd Selection.HomeKey Unit:=wdLine DebLigne = Selection.Range.Start Selection.EndKey Unit:=wdLine FinLigne = Selection.Range.End ActiveDocument.Range(DebLigne, FinLigne).Delete Wend End With End Sub
-- A+
GMO MVP WORD
Geo
Bonsoir maudru michel,
Bonjour,
Effectivement , cela peut etre un paragraphe en fait.
"Peut" ou "est" ? la nuance est importante, car Word sait gérer les paragraphes mais très mal les lignes.
Guy t'a donné une réponse pour les lignes, Si c'est pour les paragraphes
tu reviens nous le dire.
--
A+
Bonsoir maudru michel,
Bonjour,
Effectivement , cela peut etre un paragraphe en fait.
"Peut" ou "est" ? la nuance est importante, car Word sait gérer les
paragraphes mais très mal les lignes.
Guy t'a donné une réponse pour les lignes,
Si c'est pour les paragraphes
Effectivement , cela peut etre un paragraphe en fait.
"Peut" ou "est" ? la nuance est importante, car Word sait gérer les paragraphes mais très mal les lignes.
Guy t'a donné une réponse pour les lignes, Si c'est pour les paragraphes
tu reviens nous le dire.
--
A+
maudru michel
Merci pour ce code qui marche bien .
"Guy Moncomble" <http://cerbermail.com/?QOoOlzu81P> a écrit dans le message news:
Bonjour à tous, dans le message <3f92e690$0$6970$,
| Bonjour, | | j'ai besoin d'aide en vba pour supprimer dans un doc toutes les lignes | contenant un meme mot (par exemple "Toto"). | | Dans chaque doc , ce nombre de lignes est aléatoire. et le mot | n'apparait qu'une fois dans chaque ligne. |
Essaye ceci :
Public Sub toto() Dim TexteAChercher as String, DebLigne As Long, FinLigne As Long ActiveDocument.Bookmarks("startofdoc").Select 'Texte à chercher TexteAChercher = "monsieur" With Selection.Find .ClearFormatting .Replacement.ClearFormatting While .Execute(TexteAChercher) Selection.Collapse wdCollapseEnd Selection.HomeKey Unit:=wdLine DebLigne = Selection.Range.Start Selection.EndKey Unit:=wdLine FinLigne = Selection.Range.End ActiveDocument.Range(DebLigne, FinLigne).Delete Wend End With End Sub
-- A+
GMO MVP WORD
Merci pour ce code qui marche bien .
"Guy Moncomble" <http://cerbermail.com/?QOoOlzu81P> a écrit dans le message
news: OUOlFqulDHA.1708@TK2MSFTNGP12.phx.gbl...
Bonjour à tous,
dans le message <3f92e690$0$6970$7a628cd7@news.club-internet.fr>,
| Bonjour,
|
| j'ai besoin d'aide en vba pour supprimer dans un doc toutes les lignes
| contenant un meme mot (par exemple "Toto").
|
| Dans chaque doc , ce nombre de lignes est aléatoire. et le mot
| n'apparait qu'une fois dans chaque ligne.
|
Essaye ceci :
Public Sub toto()
Dim TexteAChercher as String, DebLigne As Long, FinLigne As Long
ActiveDocument.Bookmarks("startofdoc").Select
'Texte à chercher
TexteAChercher = "monsieur"
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
While .Execute(TexteAChercher)
Selection.Collapse wdCollapseEnd
Selection.HomeKey Unit:=wdLine
DebLigne = Selection.Range.Start
Selection.EndKey Unit:=wdLine
FinLigne = Selection.Range.End
ActiveDocument.Range(DebLigne, FinLigne).Delete
Wend
End With
End Sub
"Guy Moncomble" <http://cerbermail.com/?QOoOlzu81P> a écrit dans le message news:
Bonjour à tous, dans le message <3f92e690$0$6970$,
| Bonjour, | | j'ai besoin d'aide en vba pour supprimer dans un doc toutes les lignes | contenant un meme mot (par exemple "Toto"). | | Dans chaque doc , ce nombre de lignes est aléatoire. et le mot | n'apparait qu'une fois dans chaque ligne. |
Essaye ceci :
Public Sub toto() Dim TexteAChercher as String, DebLigne As Long, FinLigne As Long ActiveDocument.Bookmarks("startofdoc").Select 'Texte à chercher TexteAChercher = "monsieur" With Selection.Find .ClearFormatting .Replacement.ClearFormatting While .Execute(TexteAChercher) Selection.Collapse wdCollapseEnd Selection.HomeKey Unit:=wdLine DebLigne = Selection.Range.Start Selection.EndKey Unit:=wdLine FinLigne = Selection.Range.End ActiveDocument.Range(DebLigne, FinLigne).Delete Wend End With End Sub
