Mail

Le
Pascal
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
lSteph
Le #4902131
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"
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
Le #4902121
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"
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
Le #4902111
Merci beaucoup, cela commence à prendre forme
Pascal

"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"
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
Le #4902101
Merci JB,
Cela commence à prendre forme
Pascal

"JB"
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"
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

Publicité
Poster une réponse
Anonyme