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
lSteph
Bonjour, En remontant vers le haut Si dans ta ligne d'au dessus il y a @ dans une cellule tu insères une ligne, puis tu remontes d'une ligne.
En vba:
Sub insRm() Dim i As Long, c As Range Application.ScreenUpdating = False For i = 65536 To 2 Step -1 With Feuil1.Rows(i - 1) Set c = .Find("@", LookIn:=xlValues) If Not c Is Nothing Then Rows(i).Insert End With Next End Sub
'Cordialement.
'lSteph
On 9 juil, 11:20, "Pascal" wrote:
Bonjour, Comment insérer une ligne vide sous chaque cellule contenant une adresse Mail.
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 11:20:53 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
'
Bonjour,
En remontant vers le haut
Si dans ta ligne d'au dessus il y a @ dans une cellule
tu insères une ligne, puis tu remontes d'une ligne.
En vba:
Sub insRm()
Dim i As Long, c As Range
Application.ScreenUpdating = False
For i = 65536 To 2 Step -1
With Feuil1.Rows(i - 1)
Set c = .Find("@", LookIn:=xlValues)
If Not c Is Nothing Then Rows(i).Insert
End With
Next
End Sub
'Cordialement.
'lSteph
On 9 juil, 11:20, "Pascal" <lapl...@wanadoo.fr> wrote:
Bonjour,
Comment insérer une ligne vide sous chaque cellule contenant une adresse
Mail.
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 11:20:53
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour, En remontant vers le haut Si dans ta ligne d'au dessus il y a @ dans une cellule tu insères une ligne, puis tu remontes d'une ligne.
En vba:
Sub insRm() Dim i As Long, c As Range Application.ScreenUpdating = False For i = 65536 To 2 Step -1 With Feuil1.Rows(i - 1) Set c = .Find("@", LookIn:=xlValues) If Not c Is Nothing Then Rows(i).Insert End With Next End Sub
'Cordialement.
'lSteph
On 9 juil, 11:20, "Pascal" wrote:
Bonjour, Comment insérer une ligne vide sous chaque cellule contenant une adresse Mail.
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 11:20:53 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
'
JB
Bonjour,
Set champ = [A:Z] Set c = champ.Find(What:="*@*.*", LookIn:=xlValues, LookAt:=xlWhol e, searchdirection:=xlNext) If Not c Is Nothing Then premier = c.Address Do c.Offset(1, 0).EntireRow.Insert Set c = champ.FindNext(c) Loop While Not c Is Nothing And c.Address <> premier End If
JB On 9 juil, 11:20, "Pascal" wrote:
Bonjour, Comment insérer une ligne vide sous chaque cellule contenant une adresse Mail.
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 11:20:53 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour,
Set champ = [A:Z]
Set c = champ.Find(What:="*@*.*", LookIn:=xlValues, LookAt:=xlWhol e,
searchdirection:=xlNext)
If Not c Is Nothing Then
premier = c.Address
Do
c.Offset(1, 0).EntireRow.Insert
Set c = champ.FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
JB
On 9 juil, 11:20, "Pascal" <lapl...@wanadoo.fr> wrote:
Bonjour,
Comment insérer une ligne vide sous chaque cellule contenant une adresse
Mail.
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 11:20:53
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Set champ = [A:Z] Set c = champ.Find(What:="*@*.*", LookIn:=xlValues, LookAt:=xlWhol e, searchdirection:=xlNext) If Not c Is Nothing Then premier = c.Address Do c.Offset(1, 0).EntireRow.Insert Set c = champ.FindNext(c) Loop While Not c Is Nothing And c.Address <> premier End If
JB On 9 juil, 11:20, "Pascal" wrote:
Bonjour, Comment insérer une ligne vide sous chaque cellule contenant une adresse Mail.
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 11:20:53 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Pascal
Merci beaucoup, cela commence à prendre forme Pascal
"lSteph" a écrit dans le message de news:
Bonjour, En remontant vers le haut Si dans ta ligne d'au dessus il y a @ dans une cellule tu insères une ligne, puis tu remontes d'une ligne.
En vba:
Sub insRm() Dim i As Long, c As Range Application.ScreenUpdating = False For i = 65536 To 2 Step -1 With Feuil1.Rows(i - 1) Set c = .Find("@", LookIn:=xlValues) If Not c Is Nothing Then Rows(i).Insert End With Next End Sub
'Cordialement.
'lSteph
On 9 juil, 11:20, "Pascal" wrote:
Bonjour, Comment insérer une ligne vide sous chaque cellule contenant une adresse Mail.
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 11:20:53 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
'
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 12:37:30 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 12:42:19 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Merci beaucoup, cela commence à prendre forme
Pascal
"lSteph" <gmLSteph@gmail.com> a écrit dans le message de news:
1183976803.098933.313800@d55g2000hsg.googlegroups.com...
Bonjour,
En remontant vers le haut
Si dans ta ligne d'au dessus il y a @ dans une cellule
tu insères une ligne, puis tu remontes d'une ligne.
En vba:
Sub insRm()
Dim i As Long, c As Range
Application.ScreenUpdating = False
For i = 65536 To 2 Step -1
With Feuil1.Rows(i - 1)
Set c = .Find("@", LookIn:=xlValues)
If Not c Is Nothing Then Rows(i).Insert
End With
Next
End Sub
'Cordialement.
'lSteph
On 9 juil, 11:20, "Pascal" <lapl...@wanadoo.fr> wrote:
Bonjour,
Comment insérer une ligne vide sous chaque cellule contenant une adresse
Mail.
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 11:20:53
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
'
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 12:37:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 12:42:19
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Merci beaucoup, cela commence à prendre forme Pascal
"lSteph" a écrit dans le message de news:
Bonjour, En remontant vers le haut Si dans ta ligne d'au dessus il y a @ dans une cellule tu insères une ligne, puis tu remontes d'une ligne.
En vba:
Sub insRm() Dim i As Long, c As Range Application.ScreenUpdating = False For i = 65536 To 2 Step -1 With Feuil1.Rows(i - 1) Set c = .Find("@", LookIn:=xlValues) If Not c Is Nothing Then Rows(i).Insert End With Next End Sub
'Cordialement.
'lSteph
On 9 juil, 11:20, "Pascal" wrote:
Bonjour, Comment insérer une ligne vide sous chaque cellule contenant une adresse Mail.
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 11:20:53 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
'
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 12:37:30 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 12:42:19 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Pascal
Merci JB, Cela commence à prendre forme Pascal
"JB" a écrit dans le message de news:
Bonjour,
Set champ = [A:Z] Set c = champ.Find(What:="*@*.*", LookIn:=xlValues, LookAt:=xlWhole, searchdirection:=xlNext) If Not c Is Nothing Then premier = c.Address Do c.Offset(1, 0).EntireRow.Insert Set c = champ.FindNext(c) Loop While Not c Is Nothing And c.Address <> premier End If
JB On 9 juil, 11:20, "Pascal" wrote:
Bonjour, Comment insérer une ligne vide sous chaque cellule contenant une adresse Mail.
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 11:20:53 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 12:39:10 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 12:42:20 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Merci JB,
Cela commence à prendre forme
Pascal
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1183977311.903413.142460@22g2000hsm.googlegroups.com...
Bonjour,
Set champ = [A:Z]
Set c = champ.Find(What:="*@*.*", LookIn:=xlValues, LookAt:=xlWhole,
searchdirection:=xlNext)
If Not c Is Nothing Then
premier = c.Address
Do
c.Offset(1, 0).EntireRow.Insert
Set c = champ.FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
JB
On 9 juil, 11:20, "Pascal" <lapl...@wanadoo.fr> wrote:
Bonjour,
Comment insérer une ligne vide sous chaque cellule contenant une adresse
Mail.
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 11:20:53
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 12:39:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 12:42:20
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Set champ = [A:Z] Set c = champ.Find(What:="*@*.*", LookIn:=xlValues, LookAt:=xlWhole, searchdirection:=xlNext) If Not c Is Nothing Then premier = c.Address Do c.Offset(1, 0).EntireRow.Insert Set c = champ.FindNext(c) Loop While Not c Is Nothing And c.Address <> premier End If
JB On 9 juil, 11:20, "Pascal" wrote:
Bonjour, Comment insérer une ligne vide sous chaque cellule contenant une adresse Mail.
Merci Pascal
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 11:20:53 avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 12:39:10 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 12:42:20 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
