Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Copier coller si valeur correspond

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

Stéfane

XLDnaute Occasionnel
Bonjour à tous,


Je suis à la recherche d'une macro me permettant de comparer 2 listes, A8 et AA2, et de copier-coller, lorsque la valeur en case A correspond à la valeur en cas AA, copier les valeur de AC pour les coller en M.

Sans modification des valeurs n'étant pas dans l'une ou l'autre des 2 listes.

D'avance merci,

Stéfane
 

Pièces jointes

Solution
Par VBA

il y a un doublon en colonne AA cf Poste #1
C'est cela que vous essayer de comparer ?
213122 = 28 (Colonne AA11) ou 213122 = 34 (Colonne AA18)
Ligne 17 avec la formule = 28
Ligne 17 avec VBA = 34

VB: 
Sub Comparlist()
Dim T() As Variant
ReDim T(0 To 2)
    T(0) = Range(Cells(8, 1), Cells(Cells(65536, 1).End(xlUp).Row, 1))
    T(1) = Range(Cells(2, 27), Cells(Cells(65536, 27).End(xlUp).Row, 27))
    T(2) = Range(Cells(2, 29), Cells(Cells(65536, 27).End(xlUp).Row, 29))
'
    For i = LBound(T(0), 1) To UBound(T(0), 1)
        For j = LBound(T(1), 1) To UBound(T(1), 1)
            If T(0)(i, 1) = T(1)(j, 1) Then
                Cells(i + 7, 13) = T(2)(j, 1)
            End If
        Next j
    Next i
End Sub
Trier par date Trier par votes
Bonsoir

Uniquement pas VBA, avec une Fonction c'est possible aussi :
Colonne M8 a étendre vers le bas.
=SI(A8=RECHERCHEV(A8;$AA$2:$AD$33;1;FAUX);RECHERCHEV(A8;$AA$2:$AD$33;3;FAUX);"")
 
Dernière édition:
Vote positif 0 Vote négatif
Bonsoir

Merci pour votre aide.
C'est vrai que je ne l'ai pas préciser mais je préfèrerais une macro, car si je met une formule les autres (ceux qui ne sont pas en A) seront à 0 n'étant pas en AA.

Merci,
 
Vote positif 0 Vote négatif
Par VBA

il y a un doublon en colonne AA cf Poste #1
C'est cela que vous essayer de comparer ?
213122 = 28 (Colonne AA11) ou 213122 = 34 (Colonne AA18)
Ligne 17 avec la formule = 28
Ligne 17 avec VBA = 34

VB: 
Sub Comparlist()
Dim T() As Variant
ReDim T(0 To 2)
    T(0) = Range(Cells(8, 1), Cells(Cells(65536, 1).End(xlUp).Row, 1))
    T(1) = Range(Cells(2, 27), Cells(Cells(65536, 27).End(xlUp).Row, 27))
    T(2) = Range(Cells(2, 29), Cells(Cells(65536, 27).End(xlUp).Row, 29))
'
    For i = LBound(T(0), 1) To UBound(T(0), 1)
        For j = LBound(T(1), 1) To UBound(T(1), 1)
            If T(0)(i, 1) = T(1)(j, 1) Then
                Cells(i + 7, 13) = T(2)(j, 1)
            End If
        Next j
    Next i
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Solution
Bonjour

Un grand merci, votre macro fonctionne parfaitement !!
J'ai fait une erreur sur le positionnement de ma colonne AD et souhaiterais que votre formule fonctionne avec la colonne AC à la place. pas de changment sur le reste.
Comment puis-je la modifier svp ?

Merci pour votre aide.
 
Vote positif 0 Vote négatif
Pour rechercher les erreurs doublons dans la colonne AA faite un essais.

Colonne A : T(0) = Range(Cells(8, 1), Cells(Cells(65536, 1).End(xlUp).Row, 1))
Colonne AA : T(1) = Range(Cells(2, 27), Cells(Cells(65536, 27).End(xlUp).Row, 27))
Colonne AC : T(2) = Range(Cells(2, 29), Cells(Cells(65536, 27).End(xlUp).Row, 29))
Colonne M : Cells(i + 7, 13)

VB: 
Sub Comparlist()
Dim Dico As Object
Set Dico = CreateObject("Scripting.Dictionary")
Dim Doublon As String

Dim T() As Variant
ReDim T(0 To 2)
    T(0) = Range(Cells(8, 1), Cells(Cells(65536, 1).End(xlUp).Row, 1))
    T(1) = Range(Cells(2, 27), Cells(Cells(65536, 27).End(xlUp).Row, 27))
    T(2) = Range(Cells(2, 29), Cells(Cells(65536, 27).End(xlUp).Row, 29))
 
    For j = LBound(T(1), 1) To UBound(T(1), 1)
        If Dico.Exists(T(1)(j, 1)) Then
            Doublon = Dico.Item(T(1)(j, 1))
            Dico.Remove (T(1)(j, 1))
            Dico.Add T(1)(j, 1), T(2)(j, 1) & "/" & Doublon
        Else
            Dico.Add T(1)(j, 1), T(2)(j, 1)
        End If
    Next j
'
    For i = LBound(T(0), 1) To UBound(T(0), 1)
        For j = LBound(T(1), 1) To UBound(T(1), 1)
            If T(0)(i, 1) = T(1)(j, 1) Then
                Doublon = Dico.Item(T(1)(j, 1))
                    Cells(i + 7, 13) = Doublon
            End If
        Next j
    Next i
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Merci à vous, votre 1ère formule fonctionnait déjà parfaitement.
Je souhaite juste la modifier pour qu'au lieu de faire la comparaison de la colonne A avec la colonne AD, celle-ci ce fasse entre la colonne A et la colonne AC.

Merci pour votre aide
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

K
  • Question Question
XL 2016 VBA: Selection Date renvoie copier/coller
Réponses
8
Affichages
863
Krome36
K
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
929
fanfan38
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
244
TooFatBoy
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
135
sylvanu
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
1 K
Pac41240
P
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
821
loloboc
L
S
  • Résolu(e)
Autres Copier-Coller en recherchant une ligne spécifique VBA
Réponses
4
Affichages
645
sambio2
S
X
  • Question Question
XL 2010 copier la valeur d'une cellule, si date du jour correspond à la date de la colonne...
Réponses
1
Affichages
663
djidji59430
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
670
Nel'
N
M
  • Question Question
XL 2021 Copier une cellule sur deux et coller dans une autre colonne
Réponses
5
Affichages
523
DJunqueira
D
Z
  • Question Question
XL 2016 RECHERCHEV et double liste de choix
Réponses
2
Affichages
902
zendb
Z
Z
  • Résolu(e)
Microsoft 365 (résolu) Position d'une valeur max dans un tableau avec ex-aequo
2
Réponses
15
Affichages
715
crocrocro
C
J
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
862
jebibo
J
  • Résolu(e)
XL 2013 Effacer le contenu si la valeur n'est pas entre 13000 90000 et copier les valeurs dupliqués
Réponses
8
Affichages
258
lestoiles1
  • Résolu(e)
Microsoft 365 VBA - Coller la valeur d'une cellule d'une autre feuille...
Réponses
11
Affichages
923
13Hubert
D
  • Question Question
XL 2021 Copier coller des colonnes suivant le nom de la colonne et non pas le N° de colonne idem ligne
Réponses
8
Affichages
855
desmonts
D
R
  • Question Question
Microsoft 365 Couverture de stock
Réponses
0
Affichages
346
romubzh35
R
D
  • Question Question
XL 2016 VBA - Copier/coller valeur d'une cellule, sur une plage de cellule données.
2 3
Réponses
34
Affichages
2 K
DaONE
D
  • Question Question
Microsoft 365 VBA : copier / coller d'un onglet à l'autre en fonction d'une valeur
Réponses
8
Affichages
703
Lisette
X
  • Question Question
XL 2016 Souci copier/coller avec un filtre.
2 3 4
Réponses
55
Affichages
4 K
Xender
X
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…