XL pour MAC Création de RDV . . . Je pars de rien :(

[fanou06]

Bonjour,

Je souhaite créer des RDV et que ceux ci soient classés par chronologie dans la colonne B.
En somme :
Colonne A : NOM
Colonne B : DATE
Colonne C : HEURE
Colonne D : Type de RDV (j'ai la liste déroulante)

Mais je ne sais pas comment procéder.
Actuellement je saisis à la volée et je dois à chaque fois trier.
Existe t'il une fonction permettant de saisir à la suite et que ces données se classent par chronologie ?
Merci.

 

[Phil69970]

Bonjour @fanou06

Quand je lis ceci :

et quand je lis cela :

Colonne D : Type de RDV (j'ai la liste déroulante)

Je me dis que tu as quand même quelque chose sur ton ordinateur et donc je me dis pourquoi @fanou06 ne poste pas le quelque chose !!!

@Phil69970

 

[fanou06]

Je vais mettre un fichier.

 

[fanou06]

Voilà un exemple. Merci.

 

[Phil69970]

@fanou06

Je te propose ce fichier

Le tri se fait automatiquement sur clic droit de la souris suivant la colonne que tu cliques
Exemple :
Tu cliques sur le bouton droit de la souris sur A1 le tri est descendant
Tu recliques sur le bouton droit de la souris sur A1 le tri est ascendant
Tu cliques sur le bouton droit de la souris droit sur B1 le tri est descendant
Tu recliques sur le bouton droit de la souris sur B1 le tri est ascendant .....
Cela fonctionne sur les 4 colonnes colorées A,B,C,D

Merci de ton retour

@Phil69970

 

[fanou06]

Merci, je viens de tester mais la macro ne semble pas répondre.
Je vais regarder pourquoi je n'y arrive pas.

 

[Phil69970]

Re

@fanou06 :

Décris moi ce que tu fais et que veux dire ne semble pas répondre, as tu des messages d'erreur et lesquels ?
Rappel :
1) Il faut accepter les macros à l'ouverture du fichier
2) Ma macro fonctionne uniquement avec le clic droit de la souris dans les cellules A1, B1, C1 et D1

Merci de ta réponse

@Phil69970

 

[fanou06]

Bonjour, Oui les macros sont activées mais quand je clique rien ne se passe.
J'ai essayé aussi en testant le fichier sur mon PC (au lieu de MAC) : idem.
Pas de message d'erreur.

Bon c'est pas grave, je vais insérer les RDV selon les dates.
Merci en tout cas.

 

[Phil69970]

Re

@fanou06
Tu cliques bien avec le bouton droit de la souris dans la cellule A1 ou B1 ou C1 ou D1
Car j'ai fait l'essai sur 2 pc différents et bien sur cela fonctionne chez moi

Edit : Si quelqu'un peut me confirmer que cela fonctionne sur son PC

@Phil69970

 

[JM27]

bonjour
OK pour moi

 

[job75]

Bonjour fanou06, Phil69970,

Il faut peut-être préciser que la macro doit être dans le code de la feuille.

On peut se passer de variable Public, voyez le fichier joint et cette macro :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With ActiveCell
    If Intersect(.Cells, [A1:D1]) Is Nothing Then Exit Sub
    Cancel = True
    .CurrentRegion.Sort .Cells, IIf(Cells(Application.CountA(.EntireColumn), .Column) < .Cells(2), 1, 2), Header:=xlYes
End With
End Sub

A+

 

[VIARD]

Bonjour @Phil69970 , @fanou06 et à tous

Je confirme sur excel2007 le fichier de @Phil69970 fonctionne correctement
@ + Jean-Paul

 

[Phil69970]

Bonjour à tous

Merci @JM27, @job75 et @VIARD pour la réponse qui confirme mes dires

Car j'ai fait l'essai sur 2 pc différents et bien sur cela fonctionne chez moi

@fanou06 tu as du raté quelque chose car mon fichier fonctionne sur plusieurs micros

@Phil69970

 

[fanou06]

Je ne sais pas . . .
Je reteste plus tard. Merci