[XL-2003] if then else [Résolu]

[dlight]

Bonjour à tous.

Je dois faire un petit travaille qui consiste à me générer une liste à partir de plusieurs fichiers de personnes qui n'ont peu ou pas d'expérience en Excel.

Je cherche donc à trouver les lignes qui contiennent une adresse courriel et de prendre cette ligne de la colonne A à Z et de la copier vers une autre feuille. Mon problème est que parfois le courriel est dans la colonne F, parfois dans K... parfois ... et ce dans le même fichier ! Bref

Dans un livre que j'ai à la maison, j'ai trouvé "if - then -else" mais je suis incapable de faire la traduction en VBA de :

Si tu trouves un courriel dans les colonnes A à Z, copie cette ligne dans la feuille 2, sinon, supprime la ligne et passe à la ligne suivante.

Si quelqu'un aurait une idée.

Merci encore une fois !

Dlight

[Theze]

Bonjour,

Essai ce qui suit pour voir si ça convient. Fais ce test sur une copie de ton classeur, la suppression des lignes étant définitive :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Sub RechercheMailto()
 
    Dim Plage As Range
    Dim Ligne As Range
    Dim Cel As Range
 
    'défini la plage de recherche en feuille Feuil1 (à adapter)
    With Worksheets("Feuil1")
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 26).End(xlUp))
 
    End With
 
    'parcour la plage ligne par ligne à la recherche du caractère @
    'si trouvé, la ligne est copiée en feuille Feuil2 (à adapter)
    'puis elle est supprimée
    For Each Ligne In Plage.Rows
 
        Set Cel = Ligne.Find("@", , xlValues, xlPart)
 
        If Not Cel Is Nothing Then
 
            With Worksheets("Feuil2")
 
                Ligne.Copy .Range("A" & .Cells(.Rows.Count, 1).End(xlUp).Row + 1)
                Ligne.EntireRow.Delete
 
            End With
 
        End If
 
    Next Ligne
 
End Sub

Hervé.

[dlight]

Merci à vous Theze.


J'ai adapté votre code à mes besoins mais sans votre aide je n'aurais pas été en mesure de réussir.

Dlight