trier et éffacer cellule

Y

yvon07

XLDnaute Occasionnel

• 21 Janvier 2015

• #2

Re : trier et éffacer cellule

bonjour
Personnes ne peu m'aider SVP
Merci
Slts

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Janvier 2015

• #3

Re : trier et éffacer cellule

Bonsoir yvon07,

Les références à rechercher sont en colonne C de Feui2 ?

Alors il n'y en a aucune en colonne A de Feuil1, il faudrait un fichier plausible 🙄

Et que fait-on avec les textes et les cellules vides ?

A+

 

Vote positif 0 Vote négatif

Y

yvon07

XLDnaute Occasionnel

• 22 Janvier 2015

• #4

Re : trier et éffacer cellule

bonsoir
est merci pour ta réponse
sur la feuilles1 une liste de réf sur laquelle il faut comparer avec la colonne K sur la feuille 2.
je ne veux garder sur la feuille 1 que les réf commune avec la feuille 2.
en espérant être claire dans mes explications.
Encore merci de m'aider
Salutations

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Janvier 2015

• #5

Re : trier et éffacer cellule

Bonjour

Bis repetita :

job75 à dit:

Et que fait-on avec les textes et les cellules vides ?

Cliquez pour agrandir...

A+

 

Vote positif 0 Vote négatif

Y

yvon07

XLDnaute Occasionnel

• 22 Janvier 2015

• #6

Re : trier et éffacer cellule

Bonsoir
Le fichier feuille 2, est un export sue je fait chaque jour, il me sert pour d autres chose, mais la juste besoin de la colonne K
Part contre il faut effacer , sur la feuille 1,ce qui n'est pas sur la feuille 2, mais ne pas bouger, le reste.
Encore mercA+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Janvier 2015

• #7

Re : trier et éffacer cellule

Re,

Le strict minimum puiqu'on ne veut pas répondre à mes questions :

Code:

Sub Effacer()
Dim P As Range, t1, t2, d As Object, i&
Set P = Feuil1.[A1:A147] 'à adapter
t1 = P 'matrice, plus rapide
t2 = Feuil2.[K2:K214] 'à adapter
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(t2)
  d(t2(i, 1)) = ""
Next
For i = 1 To UBound(t1)
  If Not d.exists(t1(i, 1)) Then t1(i, 1) = ""
Next
P = t1
End Sub

Bonne nuit.

 

Vote positif 0 Vote négatif

Y

yvon07

XLDnaute Occasionnel

• 23 Janvier 2015

• #8

Re : trier et éffacer cellule

bonsoir JOB75
est surtout merci, désoler je crois que je n'ai pas sue exprimer se que je voulais.
pourtant il semble que ce soit se que tu a fait.
les cellules vide reste vide, car chaque réf doit rester en place pour la suite.
Quand a la feuille deux après pour ceci elle ne me sert plus.
Je vais essayer ca avec le reste, pour construire, mon projet,
encore mille merci
je te tient au courant pour la suite
A+, bonne soirée

 

Vote positif 0 Vote négatif

Y

yvon07

XLDnaute Occasionnel

• 27 Janvier 2015

• #9

Re : trier et éffacer cellule

bonjour
j'ai du mal a comprendre car dans fichier essais tous fonctionne
une fois la macro dans mon fichier, rien ne se passe,
j'ai modifier le nombre de ligne colonne K feuille2 a 2000;car jamais le même nombre selon l'export.
en vous remerciant de votre aide
Salutations

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Janvier 2015

• #10

Re : trier et éffacer cellule

Bonsoir yvon07,

Dans la macro, avec les plages, il faut que vous adaptiez les CodeNames des feuilles...

A+

 

Vote positif 0 Vote négatif

Y

yvon07

XLDnaute Occasionnel

• 28 Janvier 2015

• #11

Re : trier et éffacer cellule

bonsoir
La ou vous avez marqué a adapté, si oui; j'ai fait .
par contre dans la feuille 2 le nombre de réf. dans la colonne K peu varier.
la il ne se passe rien du tout, alors que dans le fichier essai tous fonctionne.
sur ma feuille 1 il y a des données dans les colonne B et C . Mais je ne vois pas ou cela pourrai poser ,problème.
je sèche complètement.
j'au rai bien mis le fichier complet mais trop lourd. Mettre ici.
encore merci de votre aide
Salutations

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Janvier 2015

• #12

Re : trier et éffacer cellule

Re,

Joignez votre fichier avec uniquement les 2 feuilles concernées et une dizaine de lignes.

Et surtout avec la macro que vous avez adaptée.

A+

 

Vote positif 0 Vote négatif

Y

yvon07

XLDnaute Occasionnel

• 28 Janvier 2015

• #13

Re : trier et éffacer cellule

voici le fichier épurée de plusieurs ligne sur les deux feuilles(la 1 environ 200 lignes, la 2 de 700 a 1000 environ)
sachant qu'il y a une feuille 3 qui récupère les réf de la feuille 1 une fois trier.
A+

 

Pièces jointes

• TdB.xlsm

  33 KB · Affichages: 39
• TdB.xlsm

  33 KB · Affichages: 46
• TdB.xlsm

  33 KB · Affichages: 46

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Janvier 2015

• #14

Re : trier et éffacer cellule

Re,

C'est bien ce que je pensais : vous ne saviez pas ce qu'est un CodeName (mon post #10).

Dans VBA, en haut à gauche, vous avez :

- Feuil2 (Feuil1) => le CodeName est Feuil2, Feuil1 est le nom de la feuille (Name)

- Feuil3 (Feuil2) => le CodeName est Feuil3, Feuil2 est le nom de la feuille

J'espère que vous aurez compris, adaptez correctement ma macro.

Bonne soirée.

 

Vote positif 0 Vote négatif

Y

yvon07

XLDnaute Occasionnel

• 28 Janvier 2015

• #15

Re : trier et éffacer cellule

re
Encore merci JOB75 pour ce petit cours. Effectivement,je n'avez pas compris.
ca a l'air de fonctionner.
Bonne soirée

 

Vote positif 0 Vote négatif