Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA - Placer des RDV d'un listing dans un Planning

  • Initiateur de la discussion Initiateur de la discussion Bens7
  • Date de début Date de début

Bens7

XLDnaute Impliqué
Bonjour a tous !!
Voila j'ai un listing avec des rdv je voudrais en cliquant sur un bouton les placer dans la feuille CALENDRIER afin de pouvoir avoir un visu de mon planning.
Je vous est mis les parametres dans le fichiers pieces jointes (PLANNING FORUM.xlsm) .

PS: Desole mais je ne m'y connais pas en VBA je vous met parcontre une ebauche qui ma etait faite mais qui corespond pas du tout (MAUVAIS PLANNING/CONFIRMATION.xlsm)

Merci !
 

Pièces jointes

  • PLANNING FORUM .xlsm
    89.9 KB · Affichages: 48
  • MAUVAIS PLANNING.zip
    40.8 KB · Affichages: 29

gbinforme

XLDnaute Impliqué
Re : VBA - Placer des RDV d'un listing dans un Planning

Bonjour a tous

Desole mais je ne m'y connais pas en VBA

Dans ce cas tu n'as peut-être pas besoin de t'arracher les cheveux avec car tu peux le faire avec une formule après avoir rajouté une colonne dans ton listing.
 

Pièces jointes

  • PLANNING FORUM .xlsx
    95.7 KB · Affichages: 41
Dernière édition:

Yaloo

XLDnaute Barbatruc
Re : VBA - Placer des RDV d'un listing dans un Planning

Bonjour Bens,

Voici ton fichier, attention il faut impérativement rentrer l'heure de façon rigoureusement identique à la feuille "CALENDRIER".

Le mieux serait de mettre une validation des données. Je te laisse faire.

A te relire

Martial
 

Pièces jointes

  • PLANNING FORUM.xlsm
    102.1 KB · Affichages: 42
  • PLANNING FORUM.xlsm
    102.1 KB · Affichages: 40
  • PLANNING FORUM.xlsm
    102.1 KB · Affichages: 40

Bens7

XLDnaute Impliqué
Re : VBA - Placer des RDV d'un listing dans un Planning

Bon tout d'abord et encore une fois merci ! Vraiment heuesment que t'es la
cependant:
1) Au lieu que les nom de la collones B qui se place j'ai besoin que ce soit ceux de la collone I ( NOM PRENOM )
2) Vu que les RDV dure 2 heures j'aimerais que la cellule d'en dessous porte le meme nom
3) Peut on centrer le texte dans le CALENDRIER et mettre de couleur verte

J'abuse desole .... lolll
 

Yaloo

XLDnaute Barbatruc
Re : VBA - Placer des RDV d'un listing dans un Planning

Re,

Voici ton fichier, j'ai changé Clear par ClearContents pour ne supprimer que le contenu (le texte) et non le format, puis j'ai mis une Mise en Forme Conditionnelle pour la couleur verte.
Pour coller le nom 2 fois l'un au dessus de l'autre, et le bon Nom (colonne I) , j'ai modifié la ligne
.Cells(c, j) = Cells(i, 1)
par
.Cells(c, j) = Cells(i, 9): .Cells(c + 1, j) = Cells(i, 9)

A+
 

Pièces jointes

  • PLANNING FORUM.xlsm
    102.6 KB · Affichages: 38
  • PLANNING FORUM.xlsm
    102.6 KB · Affichages: 34
  • PLANNING FORUM.xlsm
    102.6 KB · Affichages: 33

Bens7

XLDnaute Impliqué
Re : VBA - Placer des RDV d'un listing dans un Planning

Merci j'avais effectuer le changemet et Clear Content t la mise en forme conditionel .
Je viens de me rendre compte que en fin de compte je m'en fou du nom du client dans le calendrier en fai serait il possible de remplire le calendrier avec le nombre de rdv genre si ya 3 a la meme heure alors metre 3 dans le calendrier.
Je sais j'aurais du y pensser lors de mon post .... mais je me suis apercu de ca apres coup
 

Yaloo

XLDnaute Barbatruc
Re : VBA - Placer des RDV d'un listing dans un Planning

Re,

Voici ton fichier avec tous les noms dans la cellule et le même fichier mais avec le nombre de RV.

A+
 

Pièces jointes

  • PLANNING FORUM.xlsm
    102.5 KB · Affichages: 33
  • PLANNING FORUM nb.xlsm
    102.2 KB · Affichages: 34
  • PLANNING FORUM.xlsm
    102.5 KB · Affichages: 36
  • PLANNING FORUM.xlsm
    102.5 KB · Affichages: 39

Discussions similaires

Réponses
3
Affichages
1 K
  • Question Question
Microsoft 365 appel des sous-routine
Réponses
3
Affichages
209
Réponses
0
Affichages
767
Réponses
12
Affichages
943
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…