Est-il possible de supprimer les x lignes entre deux cellules qui ont le
même intitulé ("INFO" et "responsabilité exclusive")?
Voici mon exemple qui sera plus parlant je l'espère.
http://cjoint.com/?kDaJ0IVDR2
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
Philippe.R
Bonjour, Avec une tite macro :
Sub suplignes() Dim zz As Long, yy As Long, xx As Long zz = Range("a65432").End(xlUp).Row For j = zz To 1 Step -1 If Cells(j, 1).Value = "responsabilité exclusive" Then yy = j End If If Cells(j, 1).Value = "INFO" Then xx = j End If Next j Range("a" & xx & ":a" & yy).EntireRow.Delete End Sub
par exemple (on peut imaginer moulte solutions) -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "vincent" <pas> a écrit dans le message de news:4907a2eb$0$12027$
Bonsoir,
Est-il possible de supprimer les x lignes entre deux cellules qui ont le même intitulé ("INFO" et "responsabilité exclusive")? Voici mon exemple qui sera plus parlant je l'espère. http://cjoint.com/?kDaJ0IVDR2
Merci d'avance, Vincent
Bonjour,
Avec une tite macro :
Sub suplignes()
Dim zz As Long, yy As Long, xx As Long
zz = Range("a65432").End(xlUp).Row
For j = zz To 1 Step -1
If Cells(j, 1).Value = "responsabilité exclusive" Then
yy = j
End If
If Cells(j, 1).Value = "INFO" Then
xx = j
End If
Next j
Range("a" & xx & ":a" & yy).EntireRow.Delete
End Sub
par exemple (on peut imaginer moulte solutions)
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"vincent" <pas> a écrit dans le message de
news:4907a2eb$0$12027$426a74cc@news.free.fr...
Bonsoir,
Est-il possible de supprimer les x lignes entre deux cellules qui ont le
même intitulé ("INFO" et "responsabilité exclusive")?
Voici mon exemple qui sera plus parlant je l'espère.
http://cjoint.com/?kDaJ0IVDR2
Sub suplignes() Dim zz As Long, yy As Long, xx As Long zz = Range("a65432").End(xlUp).Row For j = zz To 1 Step -1 If Cells(j, 1).Value = "responsabilité exclusive" Then yy = j End If If Cells(j, 1).Value = "INFO" Then xx = j End If Next j Range("a" & xx & ":a" & yy).EntireRow.Delete End Sub
par exemple (on peut imaginer moulte solutions) -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "vincent" <pas> a écrit dans le message de news:4907a2eb$0$12027$
Bonsoir,
Est-il possible de supprimer les x lignes entre deux cellules qui ont le même intitulé ("INFO" et "responsabilité exclusive")? Voici mon exemple qui sera plus parlant je l'espère. http://cjoint.com/?kDaJ0IVDR2
Merci d'avance, Vincent
vincent
Bonjour
Super. Merci beaucoup. ;) Cà marche à merveille. ;)
Toutefois, si le mot "INFO" s'écrit légérement différemment par exemple "espaceINFO" ou encore " INFO" j'ai essayé de modifier la ligne "If Cells(j, 1).Value = "INFO" Then"
par
"If Cells(j, 1).Value = "INFO" Or "espaceINFO" Or " INFO" Then"
Mais hélas çà bug! Auriez-vous une solution ?
Merci d'avance, Vincent
Bonjour
Super. Merci beaucoup. ;)
Cà marche à merveille. ;)
Toutefois, si le mot "INFO" s'écrit légérement différemment par exemple
"espaceINFO" ou encore " INFO" j'ai essayé de modifier la ligne
"If Cells(j, 1).Value = "INFO" Then"
par
"If Cells(j, 1).Value = "INFO" Or "espaceINFO" Or " INFO" Then"
Super. Merci beaucoup. ;) Cà marche à merveille. ;)
Toutefois, si le mot "INFO" s'écrit légérement différemment par exemple "espaceINFO" ou encore " INFO" j'ai essayé de modifier la ligne "If Cells(j, 1).Value = "INFO" Then"
par
"If Cells(j, 1).Value = "INFO" Or "espaceINFO" Or " INFO" Then"
Mais hélas çà bug! Auriez-vous une solution ?
Merci d'avance, Vincent
isabelle
bonjour Vincent,
If LCase(Cells(j, 1)) Like "*info*" Then
isabelle
vincent a écrit :
Bonjour
Super. Merci beaucoup. ;) Cà marche à merveille. ;)
Toutefois, si le mot "INFO" s'écrit légérement différemment par exemple "espaceINFO" ou encore " INFO" j'ai essayé de modifier la ligne "If Cells(j, 1).Value = "INFO" Then"
par
"If Cells(j, 1).Value = "INFO" Or "espaceINFO" Or " INFO" Then"
Mais hélas çà bug! Auriez-vous une solution ?
Merci d'avance, Vincent
bonjour Vincent,
If LCase(Cells(j, 1)) Like "*info*" Then
isabelle
vincent a écrit :
Bonjour
Super. Merci beaucoup. ;)
Cà marche à merveille. ;)
Toutefois, si le mot "INFO" s'écrit légérement différemment par exemple
"espaceINFO" ou encore " INFO" j'ai essayé de modifier la ligne
"If Cells(j, 1).Value = "INFO" Then"
par
"If Cells(j, 1).Value = "INFO" Or "espaceINFO" Or " INFO" Then"
Super. Merci beaucoup. ;) Cà marche à merveille. ;)
Toutefois, si le mot "INFO" s'écrit légérement différemment par exemple "espaceINFO" ou encore " INFO" j'ai essayé de modifier la ligne "If Cells(j, 1).Value = "INFO" Then"
par
"If Cells(j, 1).Value = "INFO" Or "espaceINFO" Or " INFO" Then"
Mais hélas çà bug! Auriez-vous une solution ?
Merci d'avance, Vincent
vincent
> Toutefois, si le mot "INFO" s'écrit légérement différemment par exemple "espaceINFO" ou encore " INFO" j'ai essayé de modifier la ligne "If Cells(j, 1).Value = "INFO" Then"
par
"If Cells(j, 1).Value = "INFO" Or "espaceINFO" Or " INFO" Then"
Je crois que je viens de finir par trouver la bonne synthaxe! ;)
Pour info, existe-t-il une limite au nombre de "Or" que l'on peut ajouter ?
Merci encore ;) Vincent
> Toutefois, si le mot "INFO" s'écrit légérement différemment par exemple
"espaceINFO" ou encore " INFO" j'ai essayé de modifier la ligne
"If Cells(j, 1).Value = "INFO" Then"
par
"If Cells(j, 1).Value = "INFO" Or "espaceINFO" Or " INFO" Then"
Je crois que je viens de finir par trouver la bonne synthaxe! ;)
> Toutefois, si le mot "INFO" s'écrit légérement différemment par exemple "espaceINFO" ou encore " INFO" j'ai essayé de modifier la ligne "If Cells(j, 1).Value = "INFO" Then"
par
"If Cells(j, 1).Value = "INFO" Or "espaceINFO" Or " INFO" Then"
Je crois que je viens de finir par trouver la bonne synthaxe! ;)
Pour info, existe-t-il une limite au nombre de "Or" que l'on peut ajouter ?
Merci encore ;) Vincent
Philippe.R
Bonjour, Pas de limite physique au nombre d'Or à ma connaissance, mais risque important de rendre le code illisible ; il vaut mieux utiliser la syntaxe proposée par Isabelle ou à la rigueur recourir à un "select case" -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "vincent" <pas> a écrit dans le message de news:490878c3$0$5873$
Toutefois, si le mot "INFO" s'écrit légérement différemment par exemple "espaceINFO" ou encore " INFO" j'ai essayé de modifier la ligne "If Cells(j, 1).Value = "INFO" Then"
par
"If Cells(j, 1).Value = "INFO" Or "espaceINFO" Or " INFO" Then"
Je crois que je viens de finir par trouver la bonne synthaxe! ;)
Pour info, existe-t-il une limite au nombre de "Or" que l'on peut ajouter ?
Merci encore ;) Vincent
Bonjour,
Pas de limite physique au nombre d'Or à ma connaissance, mais risque
important de rendre le code illisible ; il vaut mieux utiliser la syntaxe
proposée par Isabelle ou à la rigueur recourir à un "select case"
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"vincent" <pas> a écrit dans le message de
news:490878c3$0$5873$426a74cc@news.free.fr...
Toutefois, si le mot "INFO" s'écrit légérement différemment par exemple
"espaceINFO" ou encore " INFO" j'ai essayé de modifier la ligne
"If Cells(j, 1).Value = "INFO" Then"
par
"If Cells(j, 1).Value = "INFO" Or "espaceINFO" Or " INFO" Then"
Je crois que je viens de finir par trouver la bonne synthaxe! ;)
Bonjour, Pas de limite physique au nombre d'Or à ma connaissance, mais risque important de rendre le code illisible ; il vaut mieux utiliser la syntaxe proposée par Isabelle ou à la rigueur recourir à un "select case" -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "vincent" <pas> a écrit dans le message de news:490878c3$0$5873$
Toutefois, si le mot "INFO" s'écrit légérement différemment par exemple "espaceINFO" ou encore " INFO" j'ai essayé de modifier la ligne "If Cells(j, 1).Value = "INFO" Then"
par
"If Cells(j, 1).Value = "INFO" Or "espaceINFO" Or " INFO" Then"
Je crois que je viens de finir par trouver la bonne synthaxe! ;)
Pour info, existe-t-il une limite au nombre de "Or" que l'on peut ajouter ?
Merci encore ;) Vincent
vincent
Bonjour à tous, Merci Philipe de m'avoir précisé qu'Isabelle m'avait également répondu. Hélas son message n'est pas apparu sous mon accès free (mais après verifications il est disponible sous google groupes)! Merci donc aussi Isabelle ! ;) Encore merci à tous les deux. ;)) Vincent
Bonjour à tous,
Merci Philipe de m'avoir précisé qu'Isabelle m'avait également répondu.
Hélas son message n'est pas apparu sous mon accès free (mais après
verifications il est disponible sous google groupes)! Merci donc aussi
Isabelle ! ;)
Encore merci à tous les deux. ;))
Vincent
Bonjour à tous, Merci Philipe de m'avoir précisé qu'Isabelle m'avait également répondu. Hélas son message n'est pas apparu sous mon accès free (mais après verifications il est disponible sous google groupes)! Merci donc aussi Isabelle ! ;) Encore merci à tous les deux. ;)) Vincent