Extraire les valeur qui ne sont pas en double
Fermé
poumba_49
Messages postés
3
Date d'inscription
lundi 12 février 2018
Statut
Membre
Dernière intervention
12 février 2018
-
Modifié le 12 févr. 2018 à 12:09
poumba_49 Messages postés 3 Date d'inscription lundi 12 février 2018 Statut Membre Dernière intervention 12 février 2018 - 12 févr. 2018 à 16:22
poumba_49 Messages postés 3 Date d'inscription lundi 12 février 2018 Statut Membre Dernière intervention 12 février 2018 - 12 févr. 2018 à 16:22
A voir également:
- Extraire les valeur qui ne sont pas en double
- Double ecran - Guide
- Whatsapp double sim - Guide
- Extraire une video youtube - Guide
- Extraire son video - Guide
- Double appel - Guide
2 réponses
JeCherche24
Messages postés
46
Date d'inscription
samedi 10 février 2018
Statut
Membre
Dernière intervention
19 février 2018
5
12 févr. 2018 à 12:19
12 févr. 2018 à 12:19
Bonjour,
J'ai l'impression que la réponse a déjà été donné en 2003 ici :
https://forums.commentcamarche.net/forum/affich-335056-comparer-2-fichiers-excel
J'ai l'impression que la réponse a déjà été donné en 2003 ici :
https://forums.commentcamarche.net/forum/affich-335056-comparer-2-fichiers-excel
poumba_49
Messages postés
3
Date d'inscription
lundi 12 février 2018
Statut
Membre
Dernière intervention
12 février 2018
12 févr. 2018 à 16:22
12 févr. 2018 à 16:22
Pour info j'avance sur mon sujet, mais après enregistrement d'une macro de ce que je avais fait je n'arrive a le reproduire sur tout mes onglet. Help.....
Voici le code d'enregistrement de macro
Sub Macro5()
Windows("Paprec plastiques agence FCR.xls").Activate
Sheets("ABS").Select
Sheets("ABS").Copy After:=Workbooks("test de doublon.xlsx").Sheets(2)
Range("B2").Select
ActiveCell.FormulaR1C1 = _
"=ISNA(VLOOKUP('[Paprec plastiques agence Colombe.xls]ABS'!C,'[Paprec plastiques agence FCR.xls]ABS'!C,1,0))"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:E2"), Type:=xlFillDefault
Range("B2:E2").Select
Selection.AutoFill Destination:=Range("B2:E6")
Range("B2:E6").Select
Selection.AutoFill Destination:=Range("B2:E44"), Type:=xlFillDefault
Range("B2:E44").Select
ActiveWindow.SmallScroll Down:=-42
Range("G2").Select
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = _
"=IF(RC[-5],'[Paprec plastiques agence Colombe.xls]ABS'!RC[-5],"""")"
Range("G2").Select
Selection.AutoFill Destination:=Range("G2:J2"), Type:=xlFillDefault
Range("G2:J2").Select
Selection.AutoFill Destination:=Range("G2:J44"), Type:=xlFillDefault
Range("G2:J44").Select
ActiveWindow.SmallScroll Down:=-36
End Sub
Merci de votre aide
Voici le code d'enregistrement de macro
Sub Macro5()
Windows("Paprec plastiques agence FCR.xls").Activate
Sheets("ABS").Select
Sheets("ABS").Copy After:=Workbooks("test de doublon.xlsx").Sheets(2)
Range("B2").Select
ActiveCell.FormulaR1C1 = _
"=ISNA(VLOOKUP('[Paprec plastiques agence Colombe.xls]ABS'!C,'[Paprec plastiques agence FCR.xls]ABS'!C,1,0))"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:E2"), Type:=xlFillDefault
Range("B2:E2").Select
Selection.AutoFill Destination:=Range("B2:E6")
Range("B2:E6").Select
Selection.AutoFill Destination:=Range("B2:E44"), Type:=xlFillDefault
Range("B2:E44").Select
ActiveWindow.SmallScroll Down:=-42
Range("G2").Select
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = _
"=IF(RC[-5],'[Paprec plastiques agence Colombe.xls]ABS'!RC[-5],"""")"
Range("G2").Select
Selection.AutoFill Destination:=Range("G2:J2"), Type:=xlFillDefault
Range("G2:J2").Select
Selection.AutoFill Destination:=Range("G2:J44"), Type:=xlFillDefault
Range("G2:J44").Select
ActiveWindow.SmallScroll Down:=-36
End Sub
Merci de votre aide
12 févr. 2018 à 12:24
Ce n'est pas tout à fait ça. j'ai réussi avec la formule =ESTNA(RECHERCHEV à avoir des résultats en VRAI ou FAUX. J ai essayé aussi =EQUIV qui me donne un N/A pour les valeurs manquantes. Dans l'idée les résultats son bon mais moi je voudrais le texte qu'il y a dans les cellules si la réponse est VRAI ou encore N/A. De plus automatisé style VBA pour éviter de me faire les 90 onglets sachant que j'ai 8 classeur à comparer.