Vba: extraction de l'union (sens mathématique) de deux feuilles
Résolu/Fermé
deub-deub
Messages postés
21
Date d'inscription
mercredi 25 septembre 2013
Statut
Membre
Dernière intervention
21 novembre 2013
-
Modifié par deub-deub le 15/11/2013 à 15:33
ccm81 Messages postés 10905 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 décembre 2024 - 21 nov. 2013 à 13:44
ccm81 Messages postés 10905 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 décembre 2024 - 21 nov. 2013 à 13:44
A voir également:
- Vba: extraction de l'union (sens mathématique) de deux feuilles
- Mkdir vba ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
- Vba range avec variable ✓ - Forum VB / VBA
- Autofill vba ✓ - Forum Excel
6 réponses
deub-deub
Messages postés
21
Date d'inscription
mercredi 25 septembre 2013
Statut
Membre
Dernière intervention
21 novembre 2013
15 nov. 2013 à 16:07
15 nov. 2013 à 16:07
il y'a quelqu'un ?!!!! je vous en prie !!!!!
Boisgontierjacques
Messages postés
175
Date d'inscription
jeudi 19 septembre 2013
Statut
Membre
Dernière intervention
26 décembre 2018
64
Modifié par Boisgontierjacques le 15/11/2013 à 16:38
Modifié par Boisgontierjacques le 15/11/2013 à 16:38
Bonjour,
Pour la rapidité, utiliser les tableaux et dictionary.
http://boisgontierjacques.free.fr/pages_site/Doublons.htm#Communs2BDBis
Jacques Boisgontier
Pour la rapidité, utiliser les tableaux et dictionary.
http://boisgontierjacques.free.fr/pages_site/Doublons.htm#Communs2BDBis
Jacques Boisgontier
ccm81
Messages postés
10905
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 décembre 2024
2 428
15 nov. 2013 à 17:39
15 nov. 2013 à 17:39
Bonjour
Peux tu mettre ton fichier au format excel 2003 (fichier/enregistrer sous/ type ....
Cdlmnt
Peux tu mettre ton fichier au format excel 2003 (fichier/enregistrer sous/ type ....
Cdlmnt
deub-deub
Messages postés
21
Date d'inscription
mercredi 25 septembre 2013
Statut
Membre
Dernière intervention
21 novembre 2013
18 nov. 2013 à 10:22
18 nov. 2013 à 10:22
Désolé ccm81 je n'avais pas d'accès internet ce week end !! voici le fichir version 2003 !!!
https://www.cjoint.com/c/CKskuTUXTDm
https://www.cjoint.com/c/CKskuTUXTDm
ccm81
Messages postés
10905
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 décembre 2024
2 428
18 nov. 2013 à 22:10
18 nov. 2013 à 22:10
Un essai (sur un fichier réduit)
https://www.cjoint.com/?3KswjJRxrTf
Cordialement
https://www.cjoint.com/?3KswjJRxrTf
Cordialement
ccm81
Messages postés
10905
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 décembre 2024
2 428
19 nov. 2013 à 09:13
19 nov. 2013 à 09:13
petites modifs
https://www.cjoint.com/?3KtjndHWbm8
https://www.cjoint.com/?3KtjndHWbm8
deub-deub
Messages postés
21
Date d'inscription
mercredi 25 septembre 2013
Statut
Membre
Dernière intervention
21 novembre 2013
20 nov. 2013 à 10:58
20 nov. 2013 à 10:58
Merci beaucoup ccm81 ca mache comme sur des roulettes ! mais est-ce-que tu peux m'expliquer , si ca ne te dérange pas, ce que fait la macro parce que j'ai essayé de la lire mais je n'ai pas réussi à comprendre !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ccm81
Messages postés
10905
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 décembre 2024
2 428
20 nov. 2013 à 12:06
20 nov. 2013 à 12:06
Quelques explications et la formule en colonne G
https://www.cjoint.com/?3KumfLdt3fs
Bonne journée
https://www.cjoint.com/?3KumfLdt3fs
Bonne journée
deub-deub
Messages postés
21
Date d'inscription
mercredi 25 septembre 2013
Statut
Membre
Dernière intervention
21 novembre 2013
20 nov. 2013 à 14:02
20 nov. 2013 à 14:02
Merci beacoup ccm81 tu me sauves la vie ! Par contre j'aurai une dernière question : comment fais tu pour que T1C et T9C correspondent à la colonne E ?!!
cdlt,
cdlt,
deub-deub
Messages postés
21
Date d'inscription
mercredi 25 septembre 2013
Statut
Membre
Dernière intervention
21 novembre 2013
20 nov. 2013 à 14:49
20 nov. 2013 à 14:49
parce que j'ai essayé d'appliquer la macro à des tableaux plus grands ( 17 colonnes), donc quand j'ai changé le nco et la plage , je compile on me sort une erreur d'incompatibilité de type à la ligne :
Sheets(FV).Range("A" & lideb & ":A" & nTC) = Application.Transpose(TC)
Sheets(FV).Range("A" & lideb & ":A" & nTC) = Application.Transpose(TC)
ccm81
Messages postés
10905
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 décembre 2024
2 428
Modifié par ccm81 le 20/11/2013 à 21:20
Modifié par ccm81 le 20/11/2013 à 21:20
Le tableau TC
- a t 'il été déclaré sans type (Dim TC)
- est il bien à une seule colonne?
- a t 'il été déclaré sans type (Dim TC)
- est il bien à une seule colonne?
deub-deub
Messages postés
21
Date d'inscription
mercredi 25 septembre 2013
Statut
Membre
Dernière intervention
21 novembre 2013
21 nov. 2013 à 13:33
21 nov. 2013 à 13:33
TC a été déclaré comme suit : Dim TC as long
Mais il n'a pas de souci je ne vais finalement pas utiliser les grands tableaux !!
Par contre dans la macro tu as concaténé toutes les colonnes de A à D en une seule colonne en utilisant "ReDim T1(1 To nbliT1)" , comment je peux faire la même chose en excluant la colonne C de la concaténation ?
Mais il n'a pas de souci je ne vais finalement pas utiliser les grands tableaux !!
Par contre dans la macro tu as concaténé toutes les colonnes de A à D en une seule colonne en utilisant "ReDim T1(1 To nbliT1)" , comment je peux faire la même chose en excluant la colonne C de la concaténation ?
ccm81
Messages postés
10905
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 décembre 2024
2 428
21 nov. 2013 à 13:44
21 nov. 2013 à 13:44
1. Application.Transpose(TC)
Pas étonnant que le compilateur ait râlé, TC est ici un tableau qui doit être déclaré comme Variant (pour pouvoir le redimensionner en cours d'exécution) et non un entier long
2. il suffit d'exclure la colonne 3 de la boucle
Bonne suite
Pas étonnant que le compilateur ait râlé, TC est ici un tableau qui doit être déclaré comme Variant (pour pouvoir le redimensionner en cours d'exécution) et non un entier long
2. il suffit d'exclure la colonne 3 de la boucle
For co = 2 To nbco - 1même chose pour T9
If co <> 3 Then T1(li1) = T1(li1) & ";" & Sheets(FP1).Cells(lideb + li1 - 1, co)
Next co
Bonne suite