Exclure des noms....

Clochard

XLDnaute Impliqué

• 9 Mai 2015

• #16

Re : Exclure des noms....

Merci beaucoup Job75,


J'adore....

C'est pas souvent pour ne pas dire "rarement"... que j'utilise une VBA... mais celle-là je l'aime...

C'est... dans mon cas, moins lourd et moins lent qu'une formule

Une dernière demande...

Est-ce possible de l'automatiser.... pour que je n'ai pas a appuyer sur "LISTE" afin d'obtenir le résultat....

Merci et bonne journée

Clochard

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Mai 2015

• #17

Re : Exclure des noms....

Clochard à dit:

Est-ce possible de l'automatiser.... pour que je n'ai pas a appuyer sur "LISTE" afin d'obtenir le résultat....

Cliquez pour agrandir...

Bien sûr, avec cette macro évènementielle dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [Q:Q,W:W]) Is Nothing Then Liste
End Sub

Modifiez ou revalidez une cellule quelconque en colonnes Q ou W.

Fichier joint.

A+

 

Pièces jointes

• VAB-exclure-des-noms-clochard-1-.xlsm

  20.6 KB · Affichages: 20
• VAB-exclure-des-noms-clochard-1-.xlsm

  20.6 KB · Affichages: 27
• VAB-exclure-des-noms-clochard-1-.xlsm

  20.6 KB · Affichages: 21

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 9 Mai 2015

• #18

Re : Exclure des noms....

Top notch... Job75,

Merci infiniment... c'est super....

Clochard

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Mai 2015

• #19

Re : Exclure des noms....

Re,

Cerise sur le gâteau, pour que l'on puisse ajouter ou supprimer des colonnes :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim source As Range, exclu As Range, dest As Range
Set source = Cells.Find("Liste_Noms", , xlValues, xlWhole)(2)
Set exclu = Cells.Find("Exclure")(2)
Set dest = Cells.Find("NB de fois")(3)
If Not Intersect(Target, Union(source.EntireColumn, exclu.EntireColumn)) Is Nothing _
  Then Liste source, exclu, dest
End Sub

La macro Liste est maintenant paramétrée.

Fichier -2-

A+

 

Pièces jointes

• VAB-exclure-des-noms-clochard-2-.xlsm

  22.3 KB · Affichages: 19

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 10 Mai 2015

• #20

Re : Exclure des noms....

Salut Job75

J'aime beaucoup ce que tu m'as produit... un grand merci...

J'ai réussi à travailler avec ta macro... et tout fonctionne très bien...

Mais là...tu es en train de me perdre dans la brume....

Va vraiment falloir que tu m'expliques....

liste paramétrée... ajouter ou supprimer des colonnes...

Ne pas oublier que je suis totalement ignorant en VAB... je ne fais que de la copie

Clochard

 

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 10 Mai 2015

• #21

Re : Exclure des noms....

Salut Job75

J'aime beaucoup ce que tu m'as produit... un grand merci...

J'ai réussi à travailler avec ta macro... et tout fonctionne très bien...

Mais là...tu es en train de me perdre dans la brume....

Va vraiment falloir que tu m'expliques....

liste paramétrée... ajouter ou supprimer des colonnes...

Ne pas oublier que je suis totalement ignorant en VAB... je ne fais que de la copie

Clochard

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Mai 2015

• #22

Re : Exclure des noms....

Bonjour Clochard, le forum,

Supprimez par exemple les colonnes M à P.

1) Avec le fichier -1- il est alors nécessaire dans la macro Liste de redéfinir les 3 variables Source, exclu, dest.

2) Avec le fichier -2- il n'y a rien à faire.

En effet pour définir ces 3 variables on recherche par la méthode Find les en-têtes des colonnes.

Décalées vers le bas, elles sont reprises par les arguments de la macro Liste :

Sub Liste(source As Range, exclu As Range, dest As Range)

Bonne journée.

 

Vote positif 0 Vote négatif

Clochard

XLDnaute Impliqué

• 10 Mai 2015

• #23

Re : Exclure des noms....

Merci beaucoup Job75,

Pour ta collaboration et tes explications....

Ce fut grandement apprécié...

Bonne journée

Clochard

 

Vote positif 0 Vote négatif