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
Pierre Fauconnier
Bonsoir
La macro suivante, installée dans un module standard du classeur, permet cela
Sub SupprimerToto() Dim i As Long For i = Range("a65536").End(xlUp).Row To 1 Step -1 If Range("a" & i) = "toto" Then Range("a" & i).EntireRow.Delete Next i End Sub
-- Cela convient-il? ---- Pierre Fauconnier "Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre en mon nom." (Le Chat...) (remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
DID wrote:
Bonsoir,
Je cherche un moyen de supprimer un ligne entiere a partir d'une recherche du debut de la ligne.
Ex.: je recherche TOTO en debut de ligne et il me suprime automatiquement toute la ligne
et ce pour tout le fichier qui contient plus de 300 entrees
Est-ce possible ?
Bonsoir
La macro suivante, installée dans un module standard du classeur, permet
cela
Sub SupprimerToto()
Dim i As Long
For i = Range("a65536").End(xlUp).Row To 1 Step -1
If Range("a" & i) = "toto" Then Range("a" & i).EntireRow.Delete
Next i
End Sub
--
Cela convient-il?
----
Pierre Fauconnier
"Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre
en mon nom." (Le Chat...)
(remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
DID wrote:
Bonsoir,
Je cherche un moyen de supprimer un ligne entiere a partir
d'une recherche du debut de la ligne.
Ex.: je recherche TOTO en debut de ligne et il me suprime
automatiquement toute la ligne
et ce pour tout le fichier qui contient plus de 300
entrees
La macro suivante, installée dans un module standard du classeur, permet cela
Sub SupprimerToto() Dim i As Long For i = Range("a65536").End(xlUp).Row To 1 Step -1 If Range("a" & i) = "toto" Then Range("a" & i).EntireRow.Delete Next i End Sub
-- Cela convient-il? ---- Pierre Fauconnier "Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre en mon nom." (Le Chat...) (remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
DID wrote:
Bonsoir,
Je cherche un moyen de supprimer un ligne entiere a partir d'une recherche du debut de la ligne.
Ex.: je recherche TOTO en debut de ligne et il me suprime automatiquement toute la ligne
et ce pour tout le fichier qui contient plus de 300 entrees
Est-ce possible ?
Daniel.j
Bonsoir, Une macro comme celle-ci devrait faire l'affaire http://dj.joss.free.fr/cellule.htm
Sub SupLigValeur() Dim Var Dim NumLg On Error Resume Next Var = InputBox(Prompt:="Taper la valeur recherchée. ") Cells.Find(What:=(Var), After:¬tiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder _ :=xlByRows, SearchDirection:=xlNext, MatchCase:úlse).Activate With Application.ActiveCell NumLg = .Row End With ActiveCell.EntireRow.Select Style = vbYesNo + vbDefaultButton1 Msg = "Suppression de la ligne N°: " & NumLg Title = "Attention suppression de la ligne." Réponse = MsgBox(Msg, Style, Title) If Réponse = vbYes Then Selection.Delete Shift:=xlUp Else Exit Sub End If End Sub
-- Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm "DID" a écrit dans le message de news: 12cb201c3f652$ba8cd9d0$ | Bonsoir, | | Je cherche un moyen de supprimer un ligne entiere a partir | d'une recherche du debut de la ligne. | | Ex.: je recherche TOTO en debut de ligne et il me suprime | automatiquement toute la ligne | | et ce pour tout le fichier qui contient plus de 300 | entrees | | Est-ce possible ?
Bonsoir,
Une macro comme celle-ci devrait faire l'affaire
http://dj.joss.free.fr/cellule.htm
Sub SupLigValeur()
Dim Var
Dim NumLg
On Error Resume Next
Var = InputBox(Prompt:="Taper la valeur recherchée. ")
Cells.Find(What:=(Var), After:¬tiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder _
:=xlByRows, SearchDirection:=xlNext, MatchCase:úlse).Activate
With Application.ActiveCell
NumLg = .Row
End With
ActiveCell.EntireRow.Select
Style = vbYesNo + vbDefaultButton1
Msg = "Suppression de la ligne N°: " & NumLg
Title = "Attention suppression de la ligne."
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
Selection.Delete Shift:=xlUp
Else
Exit Sub
End If
End Sub
--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"DID" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
12cb201c3f652$ba8cd9d0$a501280a@phx.gbl...
| Bonsoir,
|
| Je cherche un moyen de supprimer un ligne entiere a partir
| d'une recherche du debut de la ligne.
|
| Ex.: je recherche TOTO en debut de ligne et il me suprime
| automatiquement toute la ligne
|
| et ce pour tout le fichier qui contient plus de 300
| entrees
|
| Est-ce possible ?
Bonsoir, Une macro comme celle-ci devrait faire l'affaire http://dj.joss.free.fr/cellule.htm
Sub SupLigValeur() Dim Var Dim NumLg On Error Resume Next Var = InputBox(Prompt:="Taper la valeur recherchée. ") Cells.Find(What:=(Var), After:¬tiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder _ :=xlByRows, SearchDirection:=xlNext, MatchCase:úlse).Activate With Application.ActiveCell NumLg = .Row End With ActiveCell.EntireRow.Select Style = vbYesNo + vbDefaultButton1 Msg = "Suppression de la ligne N°: " & NumLg Title = "Attention suppression de la ligne." Réponse = MsgBox(Msg, Style, Title) If Réponse = vbYes Then Selection.Delete Shift:=xlUp Else Exit Sub End If End Sub
-- Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm "DID" a écrit dans le message de news: 12cb201c3f652$ba8cd9d0$ | Bonsoir, | | Je cherche un moyen de supprimer un ligne entiere a partir | d'une recherche du debut de la ligne. | | Ex.: je recherche TOTO en debut de ligne et il me suprime | automatiquement toute la ligne | | et ce pour tout le fichier qui contient plus de 300 | entrees | | Est-ce possible ?
garnote
Bonsoir Pierre,
Je me suis permis, pour le plaisir, de modifier un tipeu ta macro :
Sub Supprimer_Lignes_Du_Coupable() On Error Resume Next Dim i As Long rep = InputBox("Entrez le nom du coupable.", "Qui voulez-vous supprimer?") For i = Range("a65536").End(xlUp).Row To 1 Step -1 If Range("a" & i) = rep Then Range("a" & i).EntireRow.Delete Next i End Sub
:-)))
Serge
"Pierre Fauconnier" a écrit dans le message de news:
Bonsoir
La macro suivante, installée dans un module standard du classeur, permet cela
Sub SupprimerToto() Dim i As Long For i = Range("a65536").End(xlUp).Row To 1 Step -1 If Range("a" & i) = "toto" Then Range("a" & i).EntireRow.Delete Next i End Sub
-- Cela convient-il? ---- Pierre Fauconnier "Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre
en mon nom." (Le Chat...) (remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
DID wrote:
Bonsoir,
Je cherche un moyen de supprimer un ligne entiere a partir d'une recherche du debut de la ligne.
Ex.: je recherche TOTO en debut de ligne et il me suprime automatiquement toute la ligne
et ce pour tout le fichier qui contient plus de 300 entrees
Est-ce possible ?
Bonsoir Pierre,
Je me suis permis, pour le plaisir, de modifier
un tipeu ta macro :
Sub Supprimer_Lignes_Du_Coupable()
On Error Resume Next
Dim i As Long
rep = InputBox("Entrez le nom du coupable.", "Qui voulez-vous supprimer?")
For i = Range("a65536").End(xlUp).Row To 1 Step -1
If Range("a" & i) = rep Then Range("a" & i).EntireRow.Delete
Next i
End Sub
:-)))
Serge
"Pierre Fauconnier" <pierre.fauconnier@NOSPAM> a écrit dans le message de
news: uyogCTl9DHA.548@TK2MSFTNGP11.phx.gbl...
Bonsoir
La macro suivante, installée dans un module standard du classeur, permet
cela
Sub SupprimerToto()
Dim i As Long
For i = Range("a65536").End(xlUp).Row To 1 Step -1
If Range("a" & i) = "toto" Then Range("a" & i).EntireRow.Delete
Next i
End Sub
--
Cela convient-il?
----
Pierre Fauconnier
"Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se
battre
en mon nom." (Le Chat...)
(remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
DID wrote:
Bonsoir,
Je cherche un moyen de supprimer un ligne entiere a partir
d'une recherche du debut de la ligne.
Ex.: je recherche TOTO en debut de ligne et il me suprime
automatiquement toute la ligne
et ce pour tout le fichier qui contient plus de 300
entrees
Je me suis permis, pour le plaisir, de modifier un tipeu ta macro :
Sub Supprimer_Lignes_Du_Coupable() On Error Resume Next Dim i As Long rep = InputBox("Entrez le nom du coupable.", "Qui voulez-vous supprimer?") For i = Range("a65536").End(xlUp).Row To 1 Step -1 If Range("a" & i) = rep Then Range("a" & i).EntireRow.Delete Next i End Sub
:-)))
Serge
"Pierre Fauconnier" a écrit dans le message de news:
Bonsoir
La macro suivante, installée dans un module standard du classeur, permet cela
Sub SupprimerToto() Dim i As Long For i = Range("a65536").End(xlUp).Row To 1 Step -1 If Range("a" & i) = "toto" Then Range("a" & i).EntireRow.Delete Next i End Sub
-- Cela convient-il? ---- Pierre Fauconnier "Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre
en mon nom." (Le Chat...) (remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
DID wrote:
Bonsoir,
Je cherche un moyen de supprimer un ligne entiere a partir d'une recherche du debut de la ligne.
Ex.: je recherche TOTO en debut de ligne et il me suprime automatiquement toute la ligne
et ce pour tout le fichier qui contient plus de 300 entrees
Est-ce possible ?
Pierre Fauconnier
Mais tu as bien fait, Serge...
Cela me rappelle le bourreau, à qui le condamné criait : "Je ne suis pas coupable, je ne suis pas coupable"... et qui, en regardant amoureusement sa hache aiguisée, répondit: "et pourtant ..."
Pierre
garnote wrote:
Bonsoir Pierre,
Je me suis permis, pour le plaisir, de modifier un tipeu ta macro :
Sub Supprimer_Lignes_Du_Coupable() On Error Resume Next Dim i As Long rep = InputBox("Entrez le nom du coupable.", "Qui voulez-vous supprimer?") For i = Range("a65536").End(xlUp).Row To 1 Step -1 If Range("a" & i) = rep Then Range("a" & i).EntireRow.Delete Next i End Sub
:-)))
Serge
"Pierre Fauconnier" a écrit dans le message de news:
Bonsoir
La macro suivante, installée dans un module standard du classeur, permet cela
Sub SupprimerToto() Dim i As Long For i = Range("a65536").End(xlUp).Row To 1 Step -1 If Range("a" & i) = "toto" Then Range("a" & i).EntireRow.Delete Next i End Sub
-- Cela convient-il? ---- Pierre Fauconnier "Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre en mon nom." (Le Chat...) (remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
DID wrote:
Bonsoir,
Je cherche un moyen de supprimer un ligne entiere a partir d'une recherche du debut de la ligne.
Ex.: je recherche TOTO en debut de ligne et il me suprime automatiquement toute la ligne
et ce pour tout le fichier qui contient plus de 300 entrees
Est-ce possible ?
Mais tu as bien fait, Serge...
Cela me rappelle le bourreau, à qui le condamné criait : "Je ne suis pas
coupable, je ne suis pas coupable"... et qui, en regardant amoureusement sa
hache aiguisée, répondit: "et pourtant ..."
Pierre
garnote wrote:
Bonsoir Pierre,
Je me suis permis, pour le plaisir, de modifier
un tipeu ta macro :
Sub Supprimer_Lignes_Du_Coupable()
On Error Resume Next
Dim i As Long
rep = InputBox("Entrez le nom du coupable.", "Qui voulez-vous
supprimer?") For i = Range("a65536").End(xlUp).Row To 1 Step -1
If Range("a" & i) = rep Then Range("a" & i).EntireRow.Delete
Next i
End Sub
:-)))
Serge
"Pierre Fauconnier" <pierre.fauconnier@NOSPAM> a écrit dans le
message de news: uyogCTl9DHA.548@TK2MSFTNGP11.phx.gbl...
Bonsoir
La macro suivante, installée dans un module standard du classeur,
permet cela
Sub SupprimerToto()
Dim i As Long
For i = Range("a65536").End(xlUp).Row To 1 Step -1
If Range("a" & i) = "toto" Then Range("a" & i).EntireRow.Delete
Next i
End Sub
--
Cela convient-il?
----
Pierre Fauconnier
"Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de
se battre en mon nom." (Le Chat...)
(remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
DID wrote:
Bonsoir,
Je cherche un moyen de supprimer un ligne entiere a partir
d'une recherche du debut de la ligne.
Ex.: je recherche TOTO en debut de ligne et il me suprime
automatiquement toute la ligne
et ce pour tout le fichier qui contient plus de 300
entrees
Cela me rappelle le bourreau, à qui le condamné criait : "Je ne suis pas coupable, je ne suis pas coupable"... et qui, en regardant amoureusement sa hache aiguisée, répondit: "et pourtant ..."
Pierre
garnote wrote:
Bonsoir Pierre,
Je me suis permis, pour le plaisir, de modifier un tipeu ta macro :
Sub Supprimer_Lignes_Du_Coupable() On Error Resume Next Dim i As Long rep = InputBox("Entrez le nom du coupable.", "Qui voulez-vous supprimer?") For i = Range("a65536").End(xlUp).Row To 1 Step -1 If Range("a" & i) = rep Then Range("a" & i).EntireRow.Delete Next i End Sub
:-)))
Serge
"Pierre Fauconnier" a écrit dans le message de news:
Bonsoir
La macro suivante, installée dans un module standard du classeur, permet cela
Sub SupprimerToto() Dim i As Long For i = Range("a65536").End(xlUp).Row To 1 Step -1 If Range("a" & i) = "toto" Then Range("a" & i).EntireRow.Delete Next i End Sub
-- Cela convient-il? ---- Pierre Fauconnier "Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre en mon nom." (Le Chat...) (remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
DID wrote:
Bonsoir,
Je cherche un moyen de supprimer un ligne entiere a partir d'une recherche du debut de la ligne.
Ex.: je recherche TOTO en debut de ligne et il me suprime automatiquement toute la ligne
et ce pour tout le fichier qui contient plus de 300 entrees
Est-ce possible ?
DID
MERCI a TOUSS !!!
-----Message d'origine----- Bonsoir
La macro suivante, installée dans un module standard du classeur, permet
cela
Sub SupprimerToto() Dim i As Long For i = Range("a65536").End(xlUp).Row To 1 Step -1 If Range("a" & i) = "toto" Then Range("a" & i).EntireRow.Delete
Next i End Sub
-- Cela convient-il? ---- Pierre Fauconnier "Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre
en mon nom." (Le Chat...) (remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
DID wrote:
Bonsoir,
Je cherche un moyen de supprimer un ligne entiere a partir
d'une recherche du debut de la ligne.
Ex.: je recherche TOTO en debut de ligne et il me suprime
automatiquement toute la ligne
et ce pour tout le fichier qui contient plus de 300 entrees
Est-ce possible ?
.
MERCI a TOUSS !!!
-----Message d'origine-----
Bonsoir
La macro suivante, installée dans un module standard du
classeur, permet
cela
Sub SupprimerToto()
Dim i As Long
For i = Range("a65536").End(xlUp).Row To 1 Step -1
If Range("a" & i) = "toto" Then Range("a" &
i).EntireRow.Delete
Next i
End Sub
--
Cela convient-il?
----
Pierre Fauconnier
"Si j'étais Dieu, je démissionnerais pour que les gens
arrêtent de se battre
en mon nom." (Le Chat...)
(remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
DID wrote:
Bonsoir,
Je cherche un moyen de supprimer un ligne entiere a
partir
d'une recherche du debut de la ligne.
Ex.: je recherche TOTO en debut de ligne et il me
suprime
automatiquement toute la ligne
et ce pour tout le fichier qui contient plus de 300
entrees
