Discussion :

[silver74]

Bonjour,

je travail actuellement avec un logiciel qui gère la réservation des salle. Malheureusement le logiciel est un "peu" mal fichu.
Car quand je veux regarder/trouver des salles, niveau occupation et je doit chaque fois revenir dans la liste des salles, choisir mon agenda, puis ensuite vérifier l'info.

Pour le moment je me suis fait un tableau des salles (plus de 100 salles) avec un lien vers l'agenda directement. C'est déjà beaucoup plus simple.

Nom de la salle	Fonction	Capacité	Superficie	ID Imuse	Agenda interactive
Accord Instrument	0	0	35	357	https://imuse-choletais.fr//plannings/planning_interactif.php?planning=salle&id_salle=357&check_journee=1
Albeniz 3747 RDC	Salle cours individuel	19	38,5	82	https://imuse-choletais.fr//plannings/planning_interactif.php?planning=salle&id_salle=82&check_journee=1
Amati 3779 RDJ	Réserve	0	24,04	130	https://imuse-choletais.fr//plannings/planning_interactif.php?planning=salle&id_salle=82&check_journee=1

Comme j'ai constaté, il est possible d'afficher plusieurs salles dans un seul agenda. Il faut simplement ajouter un virgule, puis ensuite l'ID de la salle.
Par exemple:

Code :

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

https://imuse-choletais.fr//plannings/planning_interactif.php?planning=salle&id_salle=82,130,357&check_journee=1

Le lien m'affiche directement les trois salles dans un agenda.
Maintenant j'aimerais créer des cases à cocher âpres chaque ligne, puis un bouton qui me génère/ouvre un lien avec les salles choisi. Malheureusement je ne sais pas comment me prendre. Pouvez vous m’éclairer svp

Merci d'avance

[Mobydick_62]

Bonjour,
Tout d'abord il est toujours important de joindre ton fichier. Et s'il contient des données sensibles il suffit de l'anonymiser en y mettant des exemples "bidons". Cela nous permet d'avoir la structure du tableau et d'y insérer les macros.

Tu trouveras donc en pièce jointe un exemple. Il n'y a pas de case à cocher car l'insertion de ces cases sur autant de lignes et fastidieux et plus complexe à gérer.
En fait dans la colonne A il suffit de faire un double-clic et la cellule sera cochée d'un "X". Un autre double-clic dans cette cellule effacera le "X".
Donc tu doubles-clic dans les cellules que tu veux cocher.
Tu cliques sur le bouton et les liens cochés s'ouvriront dans ton navigateur par défaut.
Voir code ci-dessous :

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
39
40
41
42
43
44
45
46
 Sub OuvertureDesLiens()
  Dim oDoc As Object, oFeuille As Object, oCell As Object
  Dim oService As Object, sUrl As String 
  Dim i As Integer, p As Integer 
  Dim tabLien() As String 
  oDoc = ThisComponent
  oFeuille = oDoc.getSheets.getByName("Feuille1")
 
  'Bouclage sur les lignes cochées et création d'un tableau
  For i = 2 To 100
   oCell = oFeuille.getCellRangeByName("A" & i)
   If oCell.String = "X" Then
    Redim preserve tabLien(p)
    tabLien(p) = Trim(oFeuille.getCellRangeByName("G" & i).String)
    p=p+1
   End If
  Next i
 
  oService = createUnoService("com.sun.star.system.SystemShellExecute")
  'Bouclage sur le tableau pour ouvrir les liens un par un dans le navigateur
  For i = LBound(tabLien()) to Ubound(tabLien())
   sUrl = tabLien(i)
   oService.execute(sUrl, "", 0)
  Next i
 End Sub
 
 '____________________________________________________________________________________
 'Macro relié à l'événement de la feuille sur double clic
 Sub CocheCellule_DoubleClik()
  Dim oDoc As Object, oFeuille As Object, oCell As Object
  Dim col As Integer 
  oDoc = ThisComponent
  oFeuille = oDoc.getSheets.getByName("Feuille1")
  oCell = ThisComponent.CurrentSelection
  col = oCell.CellAddress.Column
 
  'La macro ne s'effectue pas sur la ligne 1 qui contient les étiquettes (Nom de la salle, Fonction.....)
  If oCell.GetCellAddress.Row = 0 Then Exit Sub 
  If col = 0 Then 'Exécution de la macro
   If oCell.String = "X" Then 
    oCell.String = ""
   ElseIf oCell.String = "" Then 
    oCell.String = "X"
   End If  
  End If 
 End Sub

Cordialement

OuvertureLien.ods

[silver74]

Super on s'approche de mon souhait.
Comme je le peut etre deja dit, le but et de faire fusionner des liens en cochant des cases.

Voila mon fichier.


Salles.ods

[Mobydick_62]

Bonsoir,

En pièce jointe ton fichier avec les modifications demandées.
A un moment une boite d'information avec l'URL avec les N° de salles fusionnées apparait. C'est juste pour info (pour que tu vois). En effet cela va vers une session avec utilisateur/mot de passe et je n'ai pas pu vérifier si tout est OK
Dans le code tu pourras supprimer cette ligne :

Code :

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

  MsgBox ("Lien avec les N° de salle sélectionnés : " & chr(13) & sUrl, 64,"INFO")

Cordialement
Salles.ods

[silver74]

MERCI !!!

C'est impeccable. Tout marche sans problème. Enfin on peut comparer les salles sans faire du click-porn.

Un grand merci à toi