Discussion :

[ezkbkt]

Bonjour,

J'ai une liste de nom en feuil 1 de mon excel

Ex :

A
B
C
D
E

Dans ma feuille deux j'ai

B
A
D
C

j'aimerais écrire une macro qui me permettrait de rechercher la correspondance avec la feuille 1 si le mot y est pas d'action sinon je voudrais qu'il rajoute le E en la dernière ligne

ce qui donnerait

B
A
D
C
E

Il me semble que cela est possible mais je n'arrive pas à modéliser la macro.... est ce que quelqu'un a une idée ? Merci d'avance !!!

[Pierre Fauconnier]

Salut.

C'est juste une modélisation, sur base des deux plages illustrées ci-dessous. On parcourt la source, on cherche chaque valeur de la source dans Target et si pas trouvée, on l'ajoute à la suite. Il t'appartient d'adapter Source et Target à ta situation

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 AddValues()
  Dim Source As Range
  Dim Target As Range
  Dim Result
  Dim i As Long
  Dim j As Long: j = 1
 
  Set Source = Range("a1:a7")
  Set Target = Range("c1:c4")
  For i = 1 To Source.Count
    Result = Application.Match(Target(i), Source, 0)
    If IsError(Result) Then
      Target(Target.Count + j).Value = Source(i).Value
      j = j + 1
    End If
  Next
End Sub

[ezkbkt]

Après test cela fonctionne très bien si la source est tout le temps dans le bon ordre mais que faire si des données s'insère entre les données de base.

Ex :

SOURCE :
A
B
C
E
D
F
G

TARGET :

A
B
C
D


Ce la me sort :

A
B
C
D
D
F
G

Alors qu'il faudrait :

A
B
C
D
E
F
G

[Pierre Fauconnier]

Désolé, il y avait une erreur dans mon code, et la façon de rechercher ne la mettait pas en évidence. Au temps pour moi. C'est pratiquement le même code, mais la ligne Result = Application.Match(Target(i), Source, 0) a été remplacée par Result = Application.Match(Source(i), Target, 0)...

Voici le code corrigé

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 AddValues()
  Dim Source As Range
  Dim Target As Range
  Dim Result
  Dim i As Long
  Dim j As Long: j = 1
 
  Set Source = Range("a1:a7")
  Set Target = Range("c1:c4")
  For i = 1 To Source.Count
    Result = Application.Match(Source(i), Target, 0)
    If IsError(Result) Then
      Target(Target.Count + j).Value = Source(i).Value
      j = j + 1
    End If
  Next
End Sub

[ezkbkt]

Désolé, il y avait une erreur dans mon code, et la façon de rechercher ne la mettait pas en évidence. Au temps pour moi. C'est pratiquement le même code, mais la ligne Result = Application.Match(Target(i), Source, 0) a été remplacée par Result = Application.Match(Source(i), Target, 0)...

Voici le code corrigé

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 AddValues()
  Dim Source As Range
  Dim Target As Range
  Dim Result
  Dim i As Long
  Dim j As Long: j = 1
 
  Set Source = Range("a1:a7")
  Set Target = Range("c1:c4")
  For i = 1 To Source.Count
    Result = Application.Match(Source(i), Target, 0)
    If IsError(Result) Then
      Target(Target.Count + j).Value = Source(i).Value
      j = j + 1
    End If
  Next
End Sub

Ca fonctionne merci oui effectivement j'avais pas vu que source et target était inversé.

[Pierre Fauconnier]

Ca fonctionne merci oui effectivement j'avais pas vu que source et target était inversé.

Je teste toujours les codes que je donne, mais lorsque j'avais testé, ça fonctionnait sur mon petit jeu de test, et donc l'inversion n'était pas mise en évidence. Désolé pour le temps perdu

[ezkbkt]

Je teste toujours les codes que je donne, mais lorsque j'avais testé, ça fonctionnait sur mon petit jeu de test, et donc l'inversion n'était pas mise en évidence. Désolé pour le temps perdu

Pas de soucis c'est déjà de m'avoir aidé ! Je n'y serai jamais arrivé seul !