XL 2019 saisie de date dans une listbox

Dranreb

XLDnaute Barbatruc

• 23 Août 2022

• #106

Revérifiez tout, c'est sûrement une erreur dans les noms exacts des sous-dossiers.

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 23 Août 2022

• #107

Comment faut-il faire pour changer de PC ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Août 2022

• #108

Je ne comprends pas la question. Vous aviez parlé de clé USB, à un certain moment je crois ?
Si vous la trimballez partout avec vous, vous avez peut être quand même intérêt à ne plus stocker dans la base des chemins qui peuvent changer de lettre de lecteur !
Dans ce cas il pourrait être intéressant que le chemin momentané soit porté dans une cellule commune en dehors de la base.

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 23 Août 2022

• #109

Etant novice en la matière je ne comprend ce qu'il faut faire

 

Pièces jointes

• Gestion_Cimetiere05.xlsm

  318.3 KB · Affichages: 3

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Août 2022

• #110

Ça dépend de ce que vous voulez faire.
Pour suivre ma proposition vous auriez intérêt à commencer par donner un nom à la cellule contenant le chemin des photos. Vous me direz quel nom vous aurez adopté.

 

Dernière édition: 23 Août 2022

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Août 2022

• #111

Vous pourriez mettre ça dans le module WshBase (BDD) :

VB:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim CelDosPh As Range
   On Error Resume Next
   Set CelDosPh = Me.[DossierPhotos]
   If Err Then
      Err.Clear: Set CelDosPh = Application.InputBox("Cellule du chemin des photos", Type:=8)
      If Err Then Exit Sub
      Me.Names.Add "DossierPhotos", CelDosPh
      End If
   If Target.Address <> CelDosPh.Address Then Exit Sub
   With Application.FileDialog(msoFileDialogFolderPicker)
      .InitialFileName = CelDosPh.Value
      .Show
      If .SelectedItems.Count = 0 Then Exit Sub
      Target.Value = .SelectedItems(1)
      End With
   End Sub

Et dans l'UFmMàJ :

VB:

   CAs.Add Me.ImgPhoto, "Nom photo", WshBase.[DossierPhotos].Value

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 23 Août 2022

• #112

J'ai appelé la cellule chemin

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 23 Août 2022

• #113

J'ai suivi vos conseils en ajoutant le code dans le module WshBase (BDD) et dans le formulaire UFmMàJ
En lançant le formulaire j'ai une erreur 424 objet requis

 

Pièces jointes

• Gestion_Cimetiere06.xlsm

  339.9 KB · Affichages: 4

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Août 2022

• #114

Dans mon dernier message j'ai opté pour DossierPhotos et s'il n'existe pas le nom est mis automatiquement à la cellule saisie par un InputBox.
De toute façon il n'y a pas de nom "chemin", ni "photos" dans votre classeur joint.
Et c'est un peu vague, "Chemin" comme "Photos", mais ça serait allé, encore aurait il fallu la désigner à l'InputBox puis la sélectionner pour le fixer, ce nom de dossier.
Prenez DossierPhotos, c'est vraiment plus clair, d'ailleurs vous aviez oublié de le changer à l'instruction Set CelDosPh = Me.[DossierPhotos]

Tiens, vous avez enlevé la CBxFamille et la recherche intuitive dessus ?
Par contre il faudrait confier la CBxCim à CLs, car sinon il pourrait y avoir des doublons du reste si vous décidez de remettre des NoConcession numériques, ce qui serait une bonne chose pour le classement de la base !
Même avec format "000" à mon avis.

 

Dernière édition: 23 Août 2022

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 24 Août 2022

• #115

Bonjour,
Je suis un perdu pouvez-vous me faire les rectifications et rajouter la cbxfamille SVP

 

Pièces jointes

• Gestion_Cimetiere07.xlsm

  320.9 KB · Affichages: 2

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 24 Août 2022

• #116

Bonjour.
Il suffit de remplacer la TBxFamille par une CBxFamille, le CAs.Add TBxFamille par un CLs.Add CBxFamille et décommentariser la Sub CLs_SujFltChg
Je joins quand même mon fichier actuel

 

Pièces jointes

• CLsCAsMicpid62.xlsm

  270 KB · Affichages: 6

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 25 Août 2022

• #117

Merci beaucoup
Je vais devoir changer l'extension des mes photos car il n'affiche par les photos avec l'extension "jpeg"

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 25 Août 2022

• #118

Bonjour
Encore une question,
Dans une concession, il peut y avoir plusieurs personnes comment faut il faire pour ajouter une personne dans la même concession ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 25 Août 2022

• #119

Bonjour.
Normalement c'est "jpg" l'extension des Joint Photographic Experts Group, et ce type d'image est supporté.
Alors là, s'il diffèrent par la famille, il devient indispensable qu'elle soit saisie dans une ComboBox prise en charge par CLs. Si c'est aussi la même famille il faudra encore une colonne supplémentaire qui les distinguera, elle aussi prise en charge par ce ComboBoxLiées.

 

Vote positif 0 Vote négatif

micpid62

XLDnaute Occasionnel

• 25 Août 2022

• #120

Bonjour
Est ce trop demandé d'avoir un exemple, j'ai peur de faire des bêtises
merci

 

Vote positif 0 Vote négatif