Exclure des noms....

[Clochard]

Bonjour le Forum,

Je comptabilise le nombre de fois que des noms apparaissent dans une colonne

J'aimerais savoir de votre part s'il est possible d'exclure certains noms en ajoutant quelque chose à ma formule..

Je joins un fichier pour une meilleure compréhension

Merci beaucoup d'y regarder et bonne journée

Clochard

 

[Clochard]

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

 

[job75]

Re : Exclure des noms....

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

Bien sûr, avec cette macro évènementielle dans le code de la feuille (clic droit sur l'onglet et Visualiser le 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+

 

[Clochard]

Re : Exclure des noms....

Top notch... Job75,

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

Clochard

 

[job75]

Re : Exclure des noms....

Re,

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

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+

 

[Clochard]

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

 

[Clochard]

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

 

[job75]

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.

 

[Clochard]

Re : Exclure des noms....

Merci beaucoup Job75,

Pour ta collaboration et tes explications....

Ce fut grandement apprécié...

Bonne journée

Clochard