Discussion :

[0916paps]

Bonsoir,
Quelqu'un pourrait-il m'aider SVP à créer une macro sur Excel pour effectuer les actions suivantes :
Ayant deux feuilles de calcul d'un classeur Excel, la première ayant une colonne avec des noms (par ex: de A1:A65635) et sur la deuxième feuille une colonne que je rempli avec des noms qui sont tous ou partiellement dans la colonne de la première feuille, je voudrai que lorsque j'active cette macro elle enlève les noms que j'ai tapé sur la deuxième feuille sur la première feuille. Bref faire une sorte de mise à jour de mes données de la première feuille.
Merci pour la suite.

[chyanon]

Bonsoir 0916paps

Essayes ce code !
J'ai fais un essai avec une colonne dans une Feuil1 et une colonne à comparer sur la Feuil2
La macro efface toutes les lignes de la feuil1 qui sont connue dans la colonne A de la feuille 2

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
Sub macro2()
Dim lf1 As Long
Dim lf2 As Long
Dim A, B
Sheets("Feuil2").Select
lf1 = Range("A65536").End(xlUp).Row
 
For i = 2 To lf1
    A = Feuil2.Range("A" & i).Value
 
    Sheets("Feuil1").Select
    lf2 = Range("A65536").End(xlUp).Row
 
    For j = 2 To lf2
    B = Feuil1.Range("A" & j).Value
    If A = B Then Rows(j).Delete
    Next
 
Next
End Sub

Bonne soirée

[0916paps]

Merci pour ta réponse,
Je vois que je suis très loin de votre savoir.
J'ai essayé ton code, cela marche mais ce n'est pas exactement ce que je souhaite.
Je joins au présent un fichier qui je l'espère te guidera dans ta résolution de mon problème.
J'attends avec impatience ta solution,...
Cordialement.

[chyanon]

Ne t'inquiète pas ! Moi aussi j'apprends le VBA depuis moins d'un ans
Quand tu commences à découvrir toutes les possibilités tu deviens accro

Il n'y a de problème, mon code prend en compte une ligne d'entête dans chaque feuille (i = 2 To lf1)

Si tu mets DUPONT sur la ligne 2 ca marchera

Bon courage

[0916paps]

Je suis désolé, mais si j'active ton code alors je passe sur la Feuil1 sans que soit supprimer le ou les noms inscrit dans la Feuil2.
Alors je pense que je suis trop nul pour réussir ta solution
Pourrais-tu me faire le fichier que je t'ai envoyé avec la macro et son code.
Merci pour ton aide.
Cordialement.

[chyanon]

J'ai fait un peu de propre dans mon code
Normalement celui-ci devrait marcher sans ligne d'entête

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
Sub macro2()
Dim lf1 As Long
Dim lf2 As Long
Dim A, B
 
lf1 = Feuil2.Range("A65536").End(xlUp).Row
lf2 = Feuil1.Range("A65536").End(xlUp).Row
 
For i = 1 To lf1
    A = Feuil2.Range("A" & i).Value
    For j = 1 To lf2
    B = Feuil1.Range("A" & j).Value
    If A = B Then Feuil1.Rows(j).Delete
    Next
 
Next
End Sub

http://www.developpez.net/forums/att...1&d=1287521145

[mercatog]

Pour ton fichier

Code :

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

1
2
3
4
5
Dim c As Range
 
For Each c In Sheets("Feuil1").Range("A1").CurrentRegion
    If InStr(c, trim(Sheets("Feuil2").Range("A1"))) > 0 Then c.ClearContents
Next c

[0916paps]

C'est super, tu avances çà supprime les noms mais j'ose te demander de préciser encore mieux ton code dans les conditions suivantes :
Admettons qu'il y a des noms dans n'importe quelles cellules de la Feuil1 et que ayant inscrit dans une colonne de la Feuil2 un ou/et plusieurs noms j'active une macro lui demandant de supprimer les noms correspondants dans la Feuil1 en laissant les cellules vides.
Je suis très confiant et te souhaite de réussir.
Merci mille fois.
Cordialement.