Ajout après Filtrage

Chris401

XLDnaute Accro

• 25 Novembre 2016

• #2

Bonsoir

Modifie la partie

VB:

With Sheets("Base").Columns(1)
    .AutoFilter Field:=1, Criteria1:="=" & X & "*", Operator:=xlAnd
    .Range("A:B").Copy Destination:=Sheets("Depart").Range("L" & Count)

par une plage déterminée débutant par A2 comme

VB:

With Sheets("Base").Columns(1)
    .AutoFilter Field:=1, Criteria1:="=" & X & "*", Operator:=xlAnd
    .Range("A2:B1000").Copy Destination:=Sheets("Depart").Range("L" & Count)

 

Vote positif 0 Vote négatif

eric57

XLDnaute Occasionnel

• 25 Novembre 2016

• #3

Merci Chris 401

Cela fonctionne effectivement.

 

Vote positif 0 Vote négatif

eric57

XLDnaute Occasionnel

• 25 Novembre 2016

• #4

Désolé je revient sur ce problème,

Cette méthode Range("A2:B1000") pose un souci

Si dans ma liste "entête" j'ai une donné (comme par ex II) et que je n'ai pas de cellules "commençant par II" j'ai la liste compléte ( colonne A) qui se copie

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 26 Novembre 2016

• #5

Bonjour

Et si le Combobox2 se remplissait automatiquement selon les valeurs de la colonne A (plus besoin de la colonne N Liste des Entêtes ) ?
Tu ne pourrais choisir que les items qui existent.

Voir fichier

 

Pièces jointes

• Copie de Test-UserForm_v02.xlsm

  36.9 KB · Affichages: 30

Vote positif 0 Vote négatif

eric57

XLDnaute Occasionnel

• 26 Novembre 2016

• #6

Merci pour ton retour, Chris, cela ne fonctionne pas dans mon cas, car j'ai mis le commencement à 2 lettres dans l'exemple, mais la liste finale sera bien différente. On aura une colonne "A" Modèle de 1500 à 2000 lignes, et les "tête de listes" ont parfois 3 - 4 voir 5 ou 6 caractères .

Par contre je retiens ta macro pour un autre projet . Elle me servira bien .

Après, en théorie ma liste a entête dans "N" devrait forcement avoir une correspondance dans la colonne "A" mais je préfère prévoir toutes les possibilités .

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 26 Novembre 2016

• #7

Re

Nouveau fichier

 

Pièces jointes

• Test-UserForm_v03.xlsm

  35.2 KB · Affichages: 31

Vote positif 0 Vote négatif

eric57

XLDnaute Occasionnel

• 26 Novembre 2016

• #8

Alors ce coup-ci je te confirme que c'est opérationnel avec mes premiers essais .

Test grandeur nature dès lundi, je reviendrai confirmer pour te tenir au courant

Merci pour ton aide

Eric

 

Vote positif 0 Vote négatif