Supprimé des données d'une colonne

Bonjour,

J'ai une colonne A de données.

Dans la colonne A j'ai des données à supprimer qui se trouve dans la colonne G

G = données invalide

comment supprimer de ma colonne A les données G ?

D'avance merci.

Si vous êtes amateur de mécanique industriel, Vous pouvez visiter mon site internet : http://www.sarl-dassonville.com/

Bonjour,

Pourrais-tu mettre un extrait de ton fichier pour mieux cerner le problème ?

Bonjour,

C'est une colonne d'email et la colone G une colonne d'email invalide

Le format de la cellule est en standard

Bonjour,

Le code suivant ne répond pas exactement à tes exigences car je n'arrive pas à incrémenter la cellule source mais c'est déjà un début :

Sub SupprA()
 Dim i As Integer
 With ThisWorkbook.Sheets("Feuil1")
'Précisez le nom de votre feuille
            For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
 'Rows.count permet de retourner le nombre de ligne de la plage range
                        If .Range("A" & i).Value = Range("G1") Then 'cellule source : G1
                                   .Rows(i).Delete
                        End If
            Next i
 End With
 End Sub

Attention : L'exécution de la macro supprimera toute la ligne où la condition An = G1 est validée

J'espère t'avoir aidé