Discussion :

[Ysae68]

Bonjour à tous !

Je souhaiterais couper, puis coller dans la deuxième feuille de mon classeur Excel, toutes les lignes de la colonne A contenant une adresse mail.

J'ai essayé avec la macro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Couper_Lignes()
 
Dim i As Long
 
Sheets("Feuil1").Select
 
NbLignes = 266
For i = 1 To NbLignes
 
    With Cells(i, 1)
 
        If .Value = "@" Then
            Cells(i, 1).EntireRow.Cut
            Sheets("Feuil2").Select
            Range("A266").End(xlUp).Offset(1, 0).Select
            ActiveSheet.Paste
            Sheets("Feuil1").Select
        End If
    End With
 
Next i
 
End Sub

Mais il ne se passe rien. J'aurais donc besoin de votre aide pour trouver mon erreur

Merci d'avance

[Invité]

Bonjour,
C’est normal, tu cherches la valeur @ hors un mail c’est toto@hébergeur .??
Donc tu ne trouves pas d’occurrence.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If InStr(1, .Value, "@") <> 0 Then

[Ysae68]

En fait comme seules les lignes contenant une adresse mail dans mon classeur contenaient le caractère "@", je pensais que cela suffirait comme je l'avais écrit à la base

Merci beaucoup pour ton aide en tout cas, ta solution marche effectivement bien mieux que la mienne !