Creation du nom d'une procédure

Bonjour à tous,

Je sèche sur la création du nom de procédure, pour éviter la multiplication de lignes d'écriture.

Ce que j'aimerai faire:

En colonne H, j'ai une suite de dates

exemple: 01/01/09 ; 17/01/09, 23/01/09, etc....

lorsque je clique sur une des dates, une procédure doit se lancer:

Private Sub Worksheet_selectionChange(ByVal Target As Range)

Dim Intersection As Range, Plage As Range

Dim col As Integer

Dim lig As Integer

Dim proc As Variant

Set Plage = Range("H1:H100")

Set Intersection = Application.Intersect(Target, Plage)

col = Target.Column

lig = Target.Row

If Not Intersection Is Nothing Then

If Target.Cells.Count > 1 Then

MsgBox "Ne sélectionnez qu'une seule cellule."

Exit Sub

Else

proc = "journée" & lig - 1 'formatage du nom de la procédure à lancer ex: call journée1 si H2 sélectionné ??????

If lig = 1 Then Call Visualisation_Journées

If lig > 1 Then Call Masquage_Journées

If lig > 1 Then Call [proc] ?????

Quelle est la solution ?

Merci d'avance

Annette

End If

End If

End Sub

Bonsoir,

If lig > 1 Then Call [proc] ?????

et que devra faire cette macro ?

Claude.

Cher Claude,

La procédure je ne l'ai pas encore écrite mais elle mettre en visualisation les lignes concernées par la date.

Pour la première date les lignes 12 à 18 la deuxième 18 à 24 la troisième 24 à 30 etc ...

ou 12 à 17, 18 à 24, 25 à 30 etc...

Bonne soirée à topi

Annette

re,

Annette, ce serait mieux d'envoyer ton fichier allégé, possible ?

avec annotations de tes souhaits

Amicalement

Claude.

Cher Claude

ci joint un condensé

https://www.excel-pratique.com/~files/doc2/phase1.xls

A bientôt

Annette

re,

Avec un filtre élaboré,

https://www.excel-pratique.com/~files/doc2/Annette.xls

Dis si çà te va

Claude.

Claude

Je décortique pour comprendre et je te tiens au courant

Tiens il est minuit 5

Bonjour et a bientôt

"Je t'dis quoi"

Annette

Claude,

Bien, très bien, en quelques lignes tu as résolu ma demande.J'ai appliqué ton écriture et elle me convient parfaitement.Je continu sur mon projet, (résultats des matches, classements, gestion du capitaine unique ....

Si je galère trop longtemps je mettrai un mot sur le Forum.

Annette

Bonjour Annette, forum,

Tu peux mettre le fil en résolu,

pour la suite, ce sera un autre sujet, autre question.

à+.....Claude.