Je cherche le moyen de supprimer des colonnes en fonction d'un mot
Exemple le terme " urgence " se trouve en N22 la colonne N est supprimée.
Je refrappe le terme " voiture verte " qui est en B12 la colonne B est
supprimée.
C'est pour gagner du temps, merci pour votre aide
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
Jacky
Bonsoir,
Ceci peut-être '---------------------- Sub jj() Dim mot As String mot = InputBox("Saisir le(s) mot(s) dont la colonne doit être supprimée", "Recherche par mot") If mot = "" Then Exit Sub On Error GoTo erreur If MsgBox(mot & " se trouve dans la cellule: " & Cells.Find(What:=mot, LookIn:=xlValues, _ LookAt:=xlWhole, MatchCase:=True).Address & vbLf & "Voulez-vous supprimer la colonne correspondante", 292, Recherche) = 6 Then Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Delete End If Exit Sub erreur: MsgBox mot & " non trouvé" End Sub '-----------------------
-- Salutations JJ
"pierre" a écrit dans le message de news: 4c23d088$0$27606$
Bonjour à tous
Je cherche le moyen de supprimer des colonnes en fonction d'un mot Exemple le terme " urgence " se trouve en N22 la colonne N est supprimée. Je refrappe le terme " voiture verte " qui est en B12 la colonne B est supprimée. C'est pour gagner du temps, merci pour votre aide
Pierre
Bonsoir,
Ceci peut-être
'----------------------
Sub jj()
Dim mot As String
mot = InputBox("Saisir le(s) mot(s) dont la colonne doit être supprimée", "Recherche par mot")
If mot = "" Then Exit Sub
On Error GoTo erreur
If MsgBox(mot & " se trouve dans la cellule: " & Cells.Find(What:=mot, LookIn:=xlValues, _
LookAt:=xlWhole, MatchCase:=True).Address & vbLf & "Voulez-vous supprimer la colonne correspondante",
292, Recherche) = 6 Then
Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Delete
End If
Exit Sub
erreur:
MsgBox mot & " non trouvé"
End Sub
'-----------------------
--
Salutations
JJ
"pierre" <prtech@free.fr> a écrit dans le message de news: 4c23d088$0$27606$ba4acef3@reader.news.orange.fr...
Bonjour à tous
Je cherche le moyen de supprimer des colonnes en fonction d'un mot
Exemple le terme " urgence " se trouve en N22 la colonne N est supprimée.
Je refrappe le terme " voiture verte " qui est en B12 la colonne B est supprimée.
C'est pour gagner du temps, merci pour votre aide
Ceci peut-être '---------------------- Sub jj() Dim mot As String mot = InputBox("Saisir le(s) mot(s) dont la colonne doit être supprimée", "Recherche par mot") If mot = "" Then Exit Sub On Error GoTo erreur If MsgBox(mot & " se trouve dans la cellule: " & Cells.Find(What:=mot, LookIn:=xlValues, _ LookAt:=xlWhole, MatchCase:=True).Address & vbLf & "Voulez-vous supprimer la colonne correspondante", 292, Recherche) = 6 Then Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Delete End If Exit Sub erreur: MsgBox mot & " non trouvé" End Sub '-----------------------
-- Salutations JJ
"pierre" a écrit dans le message de news: 4c23d088$0$27606$
Bonjour à tous
Je cherche le moyen de supprimer des colonnes en fonction d'un mot Exemple le terme " urgence " se trouve en N22 la colonne N est supprimée. Je refrappe le terme " voiture verte " qui est en B12 la colonne B est supprimée. C'est pour gagner du temps, merci pour votre aide
Pierre
pierre
bonsoir
merci Jacky pour ton aide, c'est presque bon
La macro efface bien la valeur mais ne supprime pas la colonne . Les autres valeurs de la colonne remontent d'un cran. Je suis sous xls 2003, une idée ?
"Jacky" a écrit dans le message de news: i00rls$k3l$
Bonsoir,
Ceci peut-être '---------------------- Sub jj() Dim mot As String mot = InputBox("Saisir le(s) mot(s) dont la colonne doit être supprimée", "Recherche par mot") If mot = "" Then Exit Sub On Error GoTo erreur If MsgBox(mot & " se trouve dans la cellule: " & Cells.Find(What:=mot, LookIn:=xlValues, _ LookAt:=xlWhole, MatchCase:=True).Address & vbLf & "Voulez-vous supprimer la colonne correspondante", 292, Recherche) = 6 Then Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Delete End If Exit Sub erreur: MsgBox mot & " non trouvé" End Sub '-----------------------
-- Salutations JJ
"pierre" a écrit dans le message de news: 4c23d088$0$27606$
Bonjour à tous
Je cherche le moyen de supprimer des colonnes en fonction d'un mot Exemple le terme " urgence " se trouve en N22 la colonne N est supprimée. Je refrappe le terme " voiture verte " qui est en B12 la colonne B est supprimée. C'est pour gagner du temps, merci pour votre aide
Pierre
bonsoir
merci Jacky pour ton aide, c'est presque bon
La macro efface bien la valeur mais ne supprime pas la colonne . Les autres
valeurs de la colonne remontent d'un cran.
Je suis sous xls 2003, une idée ?
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
i00rls$k3l$1@speranza.aioe.org...
Bonsoir,
Ceci peut-être
'----------------------
Sub jj()
Dim mot As String
mot = InputBox("Saisir le(s) mot(s) dont la colonne doit être
supprimée", "Recherche par mot")
If mot = "" Then Exit Sub
On Error GoTo erreur
If MsgBox(mot & " se trouve dans la cellule: " & Cells.Find(What:=mot,
LookIn:=xlValues, _
LookAt:=xlWhole, MatchCase:=True).Address & vbLf & "Voulez-vous
supprimer la colonne correspondante", 292, Recherche) = 6 Then
Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Delete
End If
Exit Sub
erreur:
MsgBox mot & " non trouvé"
End Sub
'-----------------------
--
Salutations
JJ
"pierre" <prtech@free.fr> a écrit dans le message de news:
4c23d088$0$27606$ba4acef3@reader.news.orange.fr...
Bonjour à tous
Je cherche le moyen de supprimer des colonnes en fonction d'un mot
Exemple le terme " urgence " se trouve en N22 la colonne N est
supprimée.
Je refrappe le terme " voiture verte " qui est en B12 la colonne B est
supprimée.
C'est pour gagner du temps, merci pour votre aide
La macro efface bien la valeur mais ne supprime pas la colonne . Les autres valeurs de la colonne remontent d'un cran. Je suis sous xls 2003, une idée ?
"Jacky" a écrit dans le message de news: i00rls$k3l$
Bonsoir,
Ceci peut-être '---------------------- Sub jj() Dim mot As String mot = InputBox("Saisir le(s) mot(s) dont la colonne doit être supprimée", "Recherche par mot") If mot = "" Then Exit Sub On Error GoTo erreur If MsgBox(mot & " se trouve dans la cellule: " & Cells.Find(What:=mot, LookIn:=xlValues, _ LookAt:=xlWhole, MatchCase:=True).Address & vbLf & "Voulez-vous supprimer la colonne correspondante", 292, Recherche) = 6 Then Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Delete End If Exit Sub erreur: MsgBox mot & " non trouvé" End Sub '-----------------------
-- Salutations JJ
"pierre" a écrit dans le message de news: 4c23d088$0$27606$
Bonjour à tous
Je cherche le moyen de supprimer des colonnes en fonction d'un mot Exemple le terme " urgence " se trouve en N22 la colonne N est supprimée. Je refrappe le terme " voiture verte " qui est en B12 la colonne B est supprimée. C'est pour gagner du temps, merci pour votre aide
Pierre
Jacky
Re..
Je suis sous xls 2003, une idée ?
Remplace cette ligne Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Delete par Columns(Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Column).Delete -- Salutations JJ
"pierre" a écrit dans le message de news: 4c25036c$0$27578$
bonsoir
merci Jacky pour ton aide, c'est presque bon
La macro efface bien la valeur mais ne supprime pas la colonne . Les autres valeurs de la colonne remontent d'un cran. Je suis sous xls 2003, une idée ?
"Jacky" a écrit dans le message de news: i00rls$k3l$
Bonsoir,
Ceci peut-être '---------------------- Sub jj() Dim mot As String mot = InputBox("Saisir le(s) mot(s) dont la colonne doit être supprimée", "Recherche par mot") If mot = "" Then Exit Sub On Error GoTo erreur If MsgBox(mot & " se trouve dans la cellule: " & Cells.Find(What:=mot, LookIn:=xlValues, _ LookAt:=xlWhole, MatchCase:=True).Address & vbLf & "Voulez-vous supprimer la colonne correspondante", 292, Recherche) = 6 Then Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Delete End If Exit Sub erreur: MsgBox mot & " non trouvé" End Sub '-----------------------
-- Salutations JJ
"pierre" a écrit dans le message de news: 4c23d088$0$27606$
Bonjour à tous
Je cherche le moyen de supprimer des colonnes en fonction d'un mot Exemple le terme " urgence " se trouve en N22 la colonne N est supprimée. Je refrappe le terme " voiture verte " qui est en B12 la colonne B est supprimée. C'est pour gagner du temps, merci pour votre aide
Pierre
Re..
Je suis sous xls 2003, une idée ?
Remplace cette ligne
Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Delete
par
Columns(Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Column).Delete
--
Salutations
JJ
"pierre" <prtech@free.fr> a écrit dans le message de news: 4c25036c$0$27578$ba4acef3@reader.news.orange.fr...
bonsoir
merci Jacky pour ton aide, c'est presque bon
La macro efface bien la valeur mais ne supprime pas la colonne . Les autres valeurs de la colonne remontent
d'un cran.
Je suis sous xls 2003, une idée ?
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: i00rls$k3l$1@speranza.aioe.org...
Bonsoir,
Ceci peut-être
'----------------------
Sub jj()
Dim mot As String
mot = InputBox("Saisir le(s) mot(s) dont la colonne doit être supprimée", "Recherche par mot")
If mot = "" Then Exit Sub
On Error GoTo erreur
If MsgBox(mot & " se trouve dans la cellule: " & Cells.Find(What:=mot, LookIn:=xlValues, _
LookAt:=xlWhole, MatchCase:=True).Address & vbLf & "Voulez-vous supprimer la colonne
correspondante", 292, Recherche) = 6 Then
Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Delete
End If
Exit Sub
erreur:
MsgBox mot & " non trouvé"
End Sub
'-----------------------
--
Salutations
JJ
"pierre" <prtech@free.fr> a écrit dans le message de news:
4c23d088$0$27606$ba4acef3@reader.news.orange.fr...
Bonjour à tous
Je cherche le moyen de supprimer des colonnes en fonction d'un mot
Exemple le terme " urgence " se trouve en N22 la colonne N est supprimée.
Je refrappe le terme " voiture verte " qui est en B12 la colonne B est supprimée.
C'est pour gagner du temps, merci pour votre aide
Remplace cette ligne Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Delete par Columns(Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Column).Delete -- Salutations JJ
"pierre" a écrit dans le message de news: 4c25036c$0$27578$
bonsoir
merci Jacky pour ton aide, c'est presque bon
La macro efface bien la valeur mais ne supprime pas la colonne . Les autres valeurs de la colonne remontent d'un cran. Je suis sous xls 2003, une idée ?
"Jacky" a écrit dans le message de news: i00rls$k3l$
Bonsoir,
Ceci peut-être '---------------------- Sub jj() Dim mot As String mot = InputBox("Saisir le(s) mot(s) dont la colonne doit être supprimée", "Recherche par mot") If mot = "" Then Exit Sub On Error GoTo erreur If MsgBox(mot & " se trouve dans la cellule: " & Cells.Find(What:=mot, LookIn:=xlValues, _ LookAt:=xlWhole, MatchCase:=True).Address & vbLf & "Voulez-vous supprimer la colonne correspondante", 292, Recherche) = 6 Then Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Delete End If Exit Sub erreur: MsgBox mot & " non trouvé" End Sub '-----------------------
-- Salutations JJ
"pierre" a écrit dans le message de news: 4c23d088$0$27606$
Bonjour à tous
Je cherche le moyen de supprimer des colonnes en fonction d'un mot Exemple le terme " urgence " se trouve en N22 la colonne N est supprimée. Je refrappe le terme " voiture verte " qui est en B12 la colonne B est supprimée. C'est pour gagner du temps, merci pour votre aide
Pierre
pierre
bravo, c'est parfait
merci Jacky
"Jacky" a écrit dans le message de news: i0331o$qv6$
Re..
Je suis sous xls 2003, une idée ?
Remplace cette ligne Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Delete par Columns(Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Column).Delete -- Salutations JJ
"pierre" a écrit dans le message de news: 4c25036c$0$27578$
bonsoir
merci Jacky pour ton aide, c'est presque bon
La macro efface bien la valeur mais ne supprime pas la colonne . Les autres valeurs de la colonne remontent d'un cran. Je suis sous xls 2003, une idée ?
"Jacky" a écrit dans le message de news: i00rls$k3l$
Bonsoir,
Ceci peut-être '---------------------- Sub jj() Dim mot As String mot = InputBox("Saisir le(s) mot(s) dont la colonne doit être supprimée", "Recherche par mot") If mot = "" Then Exit Sub On Error GoTo erreur If MsgBox(mot & " se trouve dans la cellule: " & Cells.Find(What:=mot, LookIn:=xlValues, _ LookAt:=xlWhole, MatchCase:=True).Address & vbLf & "Voulez-vous supprimer la colonne correspondante", 292, Recherche) = 6 Then Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Delete End If Exit Sub erreur: MsgBox mot & " non trouvé" End Sub '-----------------------
-- Salutations JJ
"pierre" a écrit dans le message de news: 4c23d088$0$27606$
Bonjour à tous
Je cherche le moyen de supprimer des colonnes en fonction d'un mot Exemple le terme " urgence " se trouve en N22 la colonne N est supprimée. Je refrappe le terme " voiture verte " qui est en B12 la colonne B est supprimée. C'est pour gagner du temps, merci pour votre aide
Pierre
bravo, c'est parfait
merci Jacky
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
i0331o$qv6$1@speranza.aioe.org...
Re..
Je suis sous xls 2003, une idée ?
Remplace cette ligne
Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Delete
par
Columns(Cells.Find(What:=mot, LookIn:=xlValues,
LookAt:=xlWhole).Column).Delete
--
Salutations
JJ
"pierre" <prtech@free.fr> a écrit dans le message de news:
4c25036c$0$27578$ba4acef3@reader.news.orange.fr...
bonsoir
merci Jacky pour ton aide, c'est presque bon
La macro efface bien la valeur mais ne supprime pas la colonne . Les
autres valeurs de la colonne remontent d'un cran.
Je suis sous xls 2003, une idée ?
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
i00rls$k3l$1@speranza.aioe.org...
Bonsoir,
Ceci peut-être
'----------------------
Sub jj()
Dim mot As String
mot = InputBox("Saisir le(s) mot(s) dont la colonne doit être
supprimée", "Recherche par mot")
If mot = "" Then Exit Sub
On Error GoTo erreur
If MsgBox(mot & " se trouve dans la cellule: " & Cells.Find(What:=mot,
LookIn:=xlValues, _
LookAt:=xlWhole, MatchCase:=True).Address & vbLf & "Voulez-vous
supprimer la colonne correspondante", 292, Recherche) = 6 Then
Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Delete
End If
Exit Sub
erreur:
MsgBox mot & " non trouvé"
End Sub
'-----------------------
--
Salutations
JJ
"pierre" <prtech@free.fr> a écrit dans le message de news:
4c23d088$0$27606$ba4acef3@reader.news.orange.fr...
Bonjour à tous
Je cherche le moyen de supprimer des colonnes en fonction d'un mot
Exemple le terme " urgence " se trouve en N22 la colonne N est
supprimée.
Je refrappe le terme " voiture verte " qui est en B12 la colonne B est
supprimée.
C'est pour gagner du temps, merci pour votre aide
"Jacky" a écrit dans le message de news: i0331o$qv6$
Re..
Je suis sous xls 2003, une idée ?
Remplace cette ligne Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Delete par Columns(Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Column).Delete -- Salutations JJ
"pierre" a écrit dans le message de news: 4c25036c$0$27578$
bonsoir
merci Jacky pour ton aide, c'est presque bon
La macro efface bien la valeur mais ne supprime pas la colonne . Les autres valeurs de la colonne remontent d'un cran. Je suis sous xls 2003, une idée ?
"Jacky" a écrit dans le message de news: i00rls$k3l$
Bonsoir,
Ceci peut-être '---------------------- Sub jj() Dim mot As String mot = InputBox("Saisir le(s) mot(s) dont la colonne doit être supprimée", "Recherche par mot") If mot = "" Then Exit Sub On Error GoTo erreur If MsgBox(mot & " se trouve dans la cellule: " & Cells.Find(What:=mot, LookIn:=xlValues, _ LookAt:=xlWhole, MatchCase:=True).Address & vbLf & "Voulez-vous supprimer la colonne correspondante", 292, Recherche) = 6 Then Cells.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole).Delete End If Exit Sub erreur: MsgBox mot & " non trouvé" End Sub '-----------------------
-- Salutations JJ
"pierre" a écrit dans le message de news: 4c23d088$0$27606$
Bonjour à tous
Je cherche le moyen de supprimer des colonnes en fonction d'un mot Exemple le terme " urgence " se trouve en N22 la colonne N est supprimée. Je refrappe le terme " voiture verte " qui est en B12 la colonne B est supprimée. C'est pour gagner du temps, merci pour votre aide