XL 2019 Supprimer ligne qui contient une valeur dans colonne

jim9595 · 23 Avril 2022

Bonjour a tous, je cherche une formule /macro qui supprimerais automatiquement une ligne qui contient une donnée "une suite de numero"présente dans ma colonne A.
Exemple:

Colonne A	Colonne B	Colonne C
010203	010203user1	050809user2
030504	050809user2

Dans cet exemple, la donné de la première ligne présente dans la colonne A "010203" est bien présente dans la première ligne de la colonne b "
010203user1" . Il faut donc que dans la colonne C, j'ai seulement des donnés de la colonne B ou aucune ligne ne contient la donnée de la colonne A. Dans cette exemple, j'aurais eu dans la colonne C "050809user2".

PS: j'ai des colonne avec 50 000 ligne max. Donc il faut que la formule/ macro se base sur les 50 000 ligne en colonne A et B et puisse la place en colone C sur 50 000 ligne max

Merci

Softmama · 24 Avril 2022

Bonjour,

Petite adaptation, car vu le nombre de lignes, une recherche par la méthode .FIND risque de durer longtemps, je vous propose l'équivalent en recherchant dans le tableau en mémoire :

VB:

Private Sub CommandButton1_Click()
  Dim DATA(), t, u, v
  'Récupération des données
  DATA = Range("A2:C" & Application.Max(Range("A2").End(xlDown).Row, Range("B2").End(xlDown).Row)).Value
  
  For t = 1 To UBound(DATA, 1)
    If DATA(t, 1) = "" Then Exit For
    'recherche dans la colonne B de chaque valeur de la colonne A
    For u = 1 To UBound(DATA, 1)
      If CStr(DATA(u, 2)) Like CStr(DATA(t, 1)) & "*" Then
        v = v + 1
        DATA(v, 3) = DATA(u, 2): Exit For
      End If
    Next u
  Next t
  
  'Affichage des résultats...

Softmama · 23 Avril 2022

Bonjour,

cette proposition à adapter à ton problème réel, car pas certain d'avoir bien tout compris à ta demande :

VB:

Private Sub CommandButton1_Click()
  Dim DATA()
 
  ' récupération des données du Tableau
  DATA = Range("A2:C" & Range("A2").End(xlDown).Row).Value
 
  'Modification de la colonne 3 selon colonnes 1 et 2
  For t = 1 To UBound(DATA, 1)
    DATA(t, 3) = IIf(DATA(t, 2) Like "*" & DATA(t, 1) & "*", DATA(t, 3), "")
  Next
 
  'Affichage des résultats
  Range("A2").Resize(UBound(DATA, 1), 3) = DATA()
End Sub

cf. fichier joint.
Bonne soirée,

jim9595 · 23 Avril 2022

Salut ! Merci pour ton retour! Je suis vraiment novice dessus donc je vais avoir un peu de mal ^^. je re explique : J'ai une 10éne de fichier excel qui dans la première colonne "A" contiens une suite de chiffre, qui sont 1fois sur 2 présente dans la colonne "B", cependant dans chaque ligne de la colonne B, celle-ci contient aussi du texte. Donc j'aimerais une formule/macro qui va supprimer automatiquement chaque ligne de la colonne b qui contient une donnée qui se trouve dans ma colonne A. Car je veux en gros avoir seulement les lignes qui ne contienne aucune donnée de la colonne A. Ou bien que le résultat de la formule soit dans la colonne C.

Je refait un exemple pour que ce soit encore plus clair:

Colonne A	Colonne B	Colonne C
0000	1111 utilisateur jim	4444 utilisateur antoine
1111	4444 utilisateur antoine
2222	0000 utilisateur marc

Dans cette exemple, la ligne 1 et 2 dans la colonne A "0000" et "1111" sont présente dans la colonne B (ligne 1 et 3). Dans la colonne C on aura donc seulement la ligne 2 de la colonne b "4444 utilisateurs antoine" . Car la suite de chiffre '4444' ne se trouve pas dans la colonne A

jim9595 · 23 Avril 2022

ps: j'ai tester ton excel mais sa correspond pas a ce que je souhaite, j'espere que mon explication en haut sera plus simple

Softmama · 23 Avril 2022

Bonsoir,

En effet, je n'avais rien compris de la demande initiale.
Voici donc une adaptation qui devrait mieux coller :

VB:

Private Sub CommandButton1_Click()
  Dim DATA(), c As Range, t, u

'Récupération des données  
DATA = Range("A2:C" & Range("A2").End(xlDown).Row).Value
 
  For t = 1 To UBound(DATA, 1)
    'Recherche de chaque élément de la colonne A dans la colonne B
    Set c = Range("B2:B" & Range("A2").End(xlDown).Row).Find(what:=DATA(t, 1), LookIn:=xlValues, lookat:=xlPart)
    'Si pas trouvé, alimente la colonne C
    If c Is Nothing Then
      u = u + 1
      DATA(u, 3) = DATA(t, 2)
    End If
  Next
 
   'Affichage des résultats
   Range("A2").Resize(UBound(DATA, 1), 3) = DATA()
End Sub

cf. fichier joint,

jim9595 · 23 Avril 2022

Super je vien de tester, c'est bien cela! Par contre j'ai remarqué que le contraire et plus simple pour moi finalement! C'est a dire que si une suite de numéro de la colonne A se trouve dans une des ligne de la colonne B => alors dans la colonne C on aura toute les lignes de la colonne B qui ont une suite de chiffre se trouvant dans la colonne A.

Je refait un exemple pour que ce soit encore plus clair:

Colonne A	Colonne B	Colonne C
0000	1111 utilisateur jim	1111 utilisateur jim
1111	4444 utilisateur antoine	0000 Utilisateur marc
2222	0000 utilisateur marc

Dans cette exemple, la ligne 1 et 2 dans la colonne A "0000" et "1111" sont présente dans la colonne B (ligne 1 et 3). Dans la colonne C on aura donc la ligne 1et 3 de la colonne b " 1111 utilisateur jim" et 0000 Utilisateur marc. Car la suite de chiffre "1111" et "0000" se trouve dans la colonne A

Softmama · 24 Avril 2022

L'adaptation est légère :

VB:

Private Sub CommandButton1_Click()
  Dim DATA(), c As Range, t, u

'Récupération des données
DATA = Range("A2:C" & Range("A2").End(xlDown).Row).Value
 
  For t = 1 To UBound(DATA, 1)
    'Recherche de chaque élément de la colonne A dans la colonne B
    Set c = Range("B2:B" & Range("A2").End(xlDown).Row).Find(what:=DATA(t, 1), LookIn:=xlValues, lookat:=xlPart)
    si trouvé on alimente colonne C
    If Not c Is Nothing Then
      u = u + 1
      DATA(u, 3) = c
    End If
  Next
 
'Affichage résultats
Range("A2").Resize(UBound(DATA, 1), 3) = DATA()
End Sub

cf. fichier joint

jim9595 · 24 Avril 2022

Merci pour votre retour.

Par contre j'ai un soucis: Jai tester votre macro pour voir si elle fonctionne correctement sans texte => Sur la colonne A j'ai pratiquement 14 000 ligne, dans la colonne B j'en ai plus de 20 000. Je sais que dans la colonne A pratiquement 13 000 sur les 14 000 ligne figure dans la colonne B. Cependant dans la colonne C je n'ai que 9000 ligne qui ressort. Apres avoir afficher les "valeur en double" excel m'indique bien que j'en ai 13 000.
Donc dans la logique dans la colonne C je devrais avoir 13 000 ligne. Ci -joint le fichier avec mes donnés pour le test.

PS: Au debut j'avais tester avec du texte en plus des chiffre dans la colonne B. Mais voyant que dans la colonne C je n'avais que 9000 ligne qui resort, sachant que 13 000 ligne sur 14 000 de la colonne A sont bien présent dans la colonne B, j'ai tester avec seulement des chiffres dans la colonne B, voir si le texte causé pas le probléme, mais le soucis est similaire

Softmama · 24 Avril 2022

Oui, logique, j’ai limité la recherche dans la colonne B au même nombre de lignes que la colonne A.

Il suffit de changer cette ligne :
Set c = Range("B2:B" & Range("A2").End(xlDown).Row).Find(what:=DATA(t, 1), LookIn:=xlValues, lookat:=xlPart)
En :

Set c = Range("B2:B" & Range("B2").End(xlDown).Row).Find(what:=DATA(t, 1), LookIn:=xlValues, lookat:=xlPart)

À tester car je ne suis pas chez moi et n’ai pas accès à un ordi.

Softmama · 24 Avril 2022

Bonjour,

Petite adaptation, car vu le nombre de lignes, une recherche par la méthode .FIND risque de durer longtemps, je vous propose l'équivalent en recherchant dans le tableau en mémoire :

VB:

Private Sub CommandButton1_Click()
  Dim DATA(), t, u, v
  'Récupération des données
  DATA = Range("A2:C" & Application.Max(Range("A2").End(xlDown).Row, Range("B2").End(xlDown).Row)).Value
  
  For t = 1 To UBound(DATA, 1)
    If DATA(t, 1) = "" Then Exit For
    'recherche dans la colonne B de chaque valeur de la colonne A
    For u = 1 To UBound(DATA, 1)
      If CStr(DATA(u, 2)) Like CStr(DATA(t, 1)) & "*" Then
        v = v + 1
        DATA(v, 3) = DATA(u, 2): Exit For
      End If
    Next u
  Next t
  
  'Affichage des résultats
  Range("A2").Resize(UBound(DATA, 1), 3) = DATA()
End Sub

Fichier en PJ à tester

jim9595 · 24 Avril 2022

Merci beaucoup sa fonctionne ! Vous m'avez bien aidé

XL 2019 Supprimer ligne qui contient une valeur dans colonne

jim9595

XLDnaute Nouveau

Softmama

Softmama

XLDnaute Accro

Pièces jointes

jim9595

XLDnaute Nouveau

jim9595

XLDnaute Nouveau

Softmama

XLDnaute Accro

Pièces jointes

jim9595

XLDnaute Nouveau

Softmama

XLDnaute Accro

Pièces jointes

jim9595

XLDnaute Nouveau

Pièces jointes

Softmama

XLDnaute Accro

Softmama

XLDnaute Accro

Pièces jointes

jim9595

XLDnaute Nouveau

Discussions similaires