Prise de rdv

L

Legolas

XLDnaute Occasionnel

• 11 Avril 2013

• #16

Re : Prise de rdv

Bonjour,

Je suis un peu le sujet car il m'intéresse énormément.

Pour que le bouton aujourd'hui fonctionne, il faut remplacer :

VB:

.Range("E2").Value = Format(.Range("M10").Value, "mmmm")

par

VB:

.Range("E2").Value = Format(.Range("M19").Value, "mmmm")

A+

EDIT :
Pour compléter le fichier, est-il possible de :
- ajouter un commentaire dans le planning (commentaire classique excel, qui apparait lorsque l'on passe sur la cellule) avec le texte saisi dans la zone "Texte" du userform ?
- supprimer le commentaire ajouté lorsque l'on supprime le RDV ?

Merci d'avance

 

Dernière édition: 11 Avril 2013

Vote positif 0 Vote négatif

T

tf1

XLDnaute Occasionnel

• 11 Avril 2013

• #17

Re : Prise de rdv

salut bonne idée t'es demandes .....
mais j'ai effectué le changement mais sa marche pas.

Chez toi sa marche?

merci

 

Vote positif 0 Vote négatif

T

tf1

XLDnaute Occasionnel

• 11 Avril 2013

• #18

Re : Prise de rdv

M10 ou M19 renvoie a cellule vide

?

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Avril 2013

• #19

Re : Prise de rdv

Bonjour tf1,

Désolé pour l'oubli de la modif.

Code:

Sub Button8_Click()
Range("D2") = Year(Date)
Range("F2") = Month(Date)
Range("H2") = Day(Date)
On Error Resume Next
Range("E2").FormulaLocal = "= MAJUSCULE(TEXTE(N18;""mmmm""))"
End Sub

A+ 😎

 

Dernière édition: 11 Avril 2013

Vote positif 0 Vote négatif

T

tf1

XLDnaute Occasionnel

• 11 Avril 2013

• #20

Re : Prise de rdv

Pour compléter le fichier, est-il possible de :
- ajouter un commentaire dans le planning (commentaire classique excel, qui apparait lorsque l'on passe sur la cellule) avec le texte saisi dans la zone "Texte" du userform ?
- supprimer le commentaire ajouté lorsque l'on supprime le RDV ?

merci

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Avril 2013

• #21

Re : Prise de rdv

Re tf1,

j'ai du mal à faire apparaître le texte de la feuille "Data" pour chaque commentaire.
Si quelqu'un pourrais me donner un coup de mains.

J'ai fait comme ceci pour l'instant, code que j'ai inserer dans le boutoun SaveButton_Click du formulaire.

Code:

On Error Resume Next
For Each c In Sheets(1).Range("c14:i36")
If c.Value <> "" Then
c.AddComment
For i = 2 To 2
With Sheets("Data")
c.Comment.Text "" & vbLf & .Range("e" & i).Text
c.Comment.Shape.Width = 100
c.Comment.Shape.Height = 60
End With
Next i
End If
Next c

A+ 😎

 

Vote positif 0 Vote négatif

T

tf1

XLDnaute Occasionnel

• 11 Avril 2013

• #22

Re : Prise de rdv

peut tu STP mettre en ligne nouvelle version du fichier sa peut aider

Merci

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 11 Avril 2013

• #23

Re : Prise de rdv

bonjour à tous
TF je suis en train de regarder pour te proposer une version un peu différente où tu rentrerais tes données dans un
formulaire qui se copiraient sous forme de commentaire pour les détails du RDV et dans la cellule pour le nom de nom RDV et la ville par exemple
mais pour ça j'ai besoin de savoir combien de données tu compte inscrire dans une cellule
ex: le nom de la personne à visiter, son adresse, sa socièté, tel etc....
sans ses renseignements je ne pourrai pas avancer

 

Vote positif 0 Vote négatif

T

tf1

XLDnaute Occasionnel

• 11 Avril 2013

• #24

Re : Prise de rdv

tout dabord merci
Nom Prénom tel et commentaires heure du rdv

a plus

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 11 Avril 2013

• #25

Re : Prise de rdv

voir si la disposition te convient
ce n'est qu'une ébauche

 

Pièces jointes

• Planning TF1.xlsm

  53.7 KB · Affichages: 35

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Avril 2013

• #26

Re : Prise de rdv

Bonsoir Thomas, tf1

Voici le fichier avec les commentaires.


A+ 😎

 

Pièces jointes

• Rendez-vous.xls

  91 KB · Affichages: 43
• Rendez-vous.xls

  91 KB · Affichages: 51
• Rendez-vous.xls

  91 KB · Affichages: 50

Dernière édition: 11 Avril 2013

Vote positif 0 Vote négatif