Discussion :

[Toub38]

Bonjour,

J'ai besoin du code qui me permettrait d'avoir une boite de dialogue à l'ouverture de mon fichier excel, lorsqu'une date notée dans le tableau correspond à la date d'aujourd'hui. Et il faut que la boite indique le nom de la personne correspondante (sur la même ligne).

Merci par avance!

[marot_r]

Bonjour.

Une idée, un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
public function LirePersonneDuJour() as variant
    'Trouve le nom de la personne en date du jour.
    'Retourne Null si pas trouvé.
 
    dim result as  variant:result=null
    dim zone as range
    set zone=thisWorkbook.Worksheets("ListeDatePersonne").Columns("A") 'Suppose que les date sont dans la colonne A de la feuille [ListeDatePersonne]
    dim cell as range
    set cell=zone.Find(date)
 
    if not cell is nothing
        'On a trouvé la date
        'nbColonne doit être le nombre de colonnes entre la colonne des dates et celle des noms -1 (ex : si les noms sont dans la colonne B, nbColonne doit être 1).
        result=cell.offset(0, nbColonne).Value
    end if
 
    LirePersonneDuJour=result
end function

Dans ThisWorkBook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()
 
    dim nomPersonneDuJour as variant: nomPersonneDuJour=LirePersonneDuJour()
 
    if not isnull(nomPersonneDuJour ) then
        msgbox "Trouvé " & nomPersonneDuJour  & " en date du " & Date
   end if
 
End Sub

A+

[Toub38]

Merci pour votre réponse !
Je ne m'y connais pas du tout en code Est-ce que je dois recopier l'un des 2 codes sans rien changer ou adapter selon l'intitulé des colonnes ?

Ma colonne avec le nom des personnes s'intitule "REMPLACANT NOM PRENOM" et la colonne avec la date s'intitule "Date limite pour la prochaine évaluation". Ces colonnes ne sont pas toujours fixes (certaines colonnes sont ajoutées, supprimées…)

Merci par avance!

[marot_r]

Bonjour.

Oui il faut copier et adapter mais mon code suppose une structure fixe de pour retrouver ses données.
Avec une structure variable c'est plus compliqué.
Et peut-être serait-ce plus facile à faire avec une formule au lieu de code VBA.
Tu n'aurai pas un message qui s'affiche dans une fenêtre mais tu pourrais avoir une cellule dans une feuille.

Pourrais-tu poster une copie d'écran de ta feuille source ? (Pense à masquer ou brouiller les données nominatives).
Et indiquer où les variations de colonnes se produisent ?

A+

[Toub38]

Merci marot_r

Voici une copie d'écran, un extrait du tableau

C'est la colonne F qui est susceptible de disparaître.

Les colonnes L et P sont celles qui m'intéressent.

[marot_r]

Bonjour.

J'ai modifié le code pour qu'il trouve les bonnes colonnes tout seul.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
public function LirePersonneDuJour() as variant
    'Trouve le nom de la personne en date du jour.
    'Retourne Null si pas trouvé.
 
    dim result as  variant:result=null
    dim feuille as worksheet: set feuille=thisWorkbook.Worksheets("ListeDatePersonne") 'Mettre ici le nom de la feuille qui contient la liste
 
    'Trouve la colonne des noms
    dim cell_entete_remplacant as range
    set cell_entete_remplacant=feuille.rows(6).Find("REMPLACANT NOM PRENOM")
 
    'Trouve la colonne des dates
    dim cell_entete_date as range
    set cell_entete_date=feuille.rows(6).Find("Date limite pour la prochaine évaluation")
 
    'Calcul le décalage horizontale entre les colonnes
    dim offset as long:offset=cellule_entete_remplacant - cell_entete_date + 1
 
    dim zone_date as range
    set zone_date=feuille.Columns(cell_entete_date.column) 
 
    dim cell as range
    set cell=zone.Find(date)
 
    if not cell is nothing
        'On a trouvé la date, prenons le nom correspondant
        result=cell.offset(0, offset ).Value 'Nom correspondant
    end if
 
    LirePersonneDuJour=result
 
    'Libère la mémoire utilisée.
    set zone_date=nothing
    set cell_entete_remplacant=nothing
    set cell_entete_date=nothing
    set feuille=nothing
 
end function

Tu peux le mettre dans ThisWorkbok avec l'autre code.
Pour accéder au code appuis sur les touches [alt][f11].
À gauche tu va avoir tes feuilles et en bas ThisWorkbook qui est ton classeur courant.
Tu copies les 2 codes là et tu ajustes la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim feuille as worksheet: set feuille=thisWorkbook.Worksheets("ListeDatePersonne") 'Mettre ici le nom de la feuille qui contient la liste

Pour indiquer entre les guillemets (") le nom de la feuille qui contient ta liste dans ton classeur.
Et il faut sauvegarder ton classeur au format xlsm si ce n'est pas déjà fait.

Note que je n'ai pas testé ce code donc il pourrait y avoir des erreurs.
J'ai un petit doute sur ma formule de calcul de l'offset.

Donc si tu as une erreur, poste :

• Le message d'erreur indiqué par le système.
• La ligne sur laquelle l'erreur a été détecté.
• Si il n'y a pas de message et que tu n'obtiens pas le résultat voulu, indique ce que tu attendais et ce que tu as eu.

A+