Affichage nom client sur planning
Résolu
grincheux006
Messages postés
246
Date d'inscription
Statut
Membre
Dernière intervention
-
grincheux006 Messages postés 246 Date d'inscription Statut Membre Dernière intervention -
grincheux006 Messages postés 246 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Dans le fichier ci-joint:
http://www.cjoint.com/c/FFsmsasDWyU
J'aimerais que lorsque que je clique ou que je passe le pointeur de ma souris sur un jour en bleu(séjour réservé) il m'apparaisse le nom et si possible le NIA du vacancier.
Autre solution, que le fait de cliquer ou autre me renvoie sur le fichier inscription, sur la ligne concernée.
J'espère avoir été clair et que quelqu'un va pouvoir m'aider.
D'avance merci
Dans le fichier ci-joint:
http://www.cjoint.com/c/FFsmsasDWyU
J'aimerais que lorsque que je clique ou que je passe le pointeur de ma souris sur un jour en bleu(séjour réservé) il m'apparaisse le nom et si possible le NIA du vacancier.
Autre solution, que le fait de cliquer ou autre me renvoie sur le fichier inscription, sur la ligne concernée.
J'espère avoir été clair et que quelqu'un va pouvoir m'aider.
D'avance merci
A voir également:
- Affichage nom client sur planning
- Cybera client - Télécharger - Divers Réseau & Wi-Fi
- Planning equipe - Télécharger - Outils professionnels
- Filezilla client - Télécharger - Téléchargement & Transfert
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Planning infirmier - Télécharger - Outils professionnels
1 réponse
Bonjour
1° Mettre des majuscules à chambre dans toute les cellules de la colonne B de Planning (que les termes soient identiques à ceux d'Inscriptions)
2° Une possibilité : macro à mettre dans le worksheet de la feuille Planning :
Un double clic sur le 1er jour d'un séjour dans le planning fait afficher les nom, prénoms et NIA
Cdlmnt
Via
"L'imagination est plus importante que le savoir." A. Einstein
1° Mettre des majuscules à chambre dans toute les cellules de la colonne B de Planning (que les termes soient identiques à ceux d'Inscriptions)
2° Une possibilité : macro à mettre dans le worksheet de la feuille Planning :
Un double clic sur le 1er jour d'un séjour dans le planning fait afficher les nom, prénoms et NIA
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value <> 1 Then Exit Sub
If Cells(Target.Row, Target.Column - 1) = 1 Then Exit Sub
jour = Cells(6, Target.Column)
chambre = Range("B" & Target.Row)
Dim Ligne As Long
With Sheets("Inscriptions")
Ligne = .Columns(5).Find("*", , , , xlByColumns, xlPrevious).Row
For n = 2 To Ligne
If .Range("E" & n) = chambre And .Range("F" & n) = jour Then ligneclient = n: Exit For
Next
MsgBox .Range("B" & ligneclient) & " " & .Range("C" & ligneclient) & " " & .Range("A" & ligneclient)
End With
End Sub
Cdlmnt
Via
"L'imagination est plus importante que le savoir." A. Einstein
J'essaie de saisir ta macro, mais je suis vraiment une quiche et je n'y arrive pas. Je ne vois même pas ce qu'est le worksheet de la feuille.
Te serait il possible de l'insérer dans mon fichier et de me le renvoyer?
J'en demande beaucoup je sais.
Mais cela m'enlèverait une épine du pied.
D'avance merci mais ne te gène pas pour me dire si j'en demande trop.
Encore merci de prendre du temps pour m'aider.
Je suis une buse!!!! Désolé
J'aurais du mieux expliquer :
Pour attribuer une macro à un évènement sur une feuille (ici le double-clic dans une cellule) :
ALT+F11 pour ouvrir l'éditeur VBA
Double-clic dans l'arborescence à gauche sur le nom de la feuille concernée
Copier-coller la macro dans la page blanche de droite
Fermer l'éditeur
Voilà ton fichier dans lequel j'ai collé la macro
http://www.cjoint.com/c/FFspqx6snZe
Explications de ce que fait la macro :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'si la valeur dans cellule du double-clic n'est pas 1 : sortie de la macro If Target.Value <> 1 Then Exit Sub ' si la cellule précédant celle du double-clic =1 c'est que ce n'ets pas la 1er jour alors sortie If Cells(Target.Row, Target.Column - 1) = 1 Then Exit Sub ' sinon on récupère la date en ligne 6 et colonne de la cellule cible jour = Cells(6, Target.Column) ' et on récupère dans la col B de la ligne de la cellule cible le nom de la chambre chambre = Range("B" & Target.Row) Dim Ligne As Long ' Tout ce qui commence par . s'appliquera à la feuille Inscriptions With Sheets("Inscriptions") ' dernière ligne remplie de la colonne ( Ligne = .Columns(5).Find("*", , , , xlByColumns, xlPrevious).Row ' Boucle sur les lignes de la For n = 2 To Ligne à la dernière ' si sur une ligne on trouve en E la chambre et en F le jour on récupère le n° de cette ligne dans la variable ligneclient et on sort de la boucle If .Range("E" & n) = chambre And .Range("F" & n) = jour Then ligneclient = n: Exit For Next ' Affichage dans une fenêtre des données en B, C et A de la ligneclient MsgBox .Range("B" & ligneclient) & " " & .Range("C" & ligneclient) & " " & .Range("A" & ligneclient) End With End SubCdlmnt
Via
Je vais garder précieusement toutes tes explications et essayer de comprendre afin de pouvoir répéter cet exemple.
C'est pas gagné bien sur, mais je vais essayer.
Je te remercie vraiment beaucoup pour tout ce que tu as fait pour m'aider.
Quel plaisir de voir qu'il existe encore des personnes prêtent à en aider d'autres sans rien attendre en retour.
Enfin j'espère ne pas recevoir de facture ultérieurement!!!! Hihihihi
Encore merci
Et je reviendrai vers toi dans quelques jours pour un problème de d'extraction de statistiques et d'extraction de liste de client en saisissant des dates.
A+