Recherche dans tableau

**sandrine6282** · 23/05/2015, 21h01

Bonjour à tous,

Cela fait une semaine que je galère avec Vba, en même temps je débute...tout ça pour me faciliter la vie au boulot. J'ai donc décidé de m'inscrire sur ce site...et obtenir de l'aide.
J'ai un fichier excel pour des véhicules de prêt (garage) avec nom client, immat véhicule prêté, date et heure de prêt départ et retour, kms et niveau carburant départ et retour.
J'ai fait une USF qui me permet de remplir mon fichier excel.
Mais j'aimerais que lorsque je prête un véhicule, dans ma combobox immat, je n'ai que les immatriculations disponibles c'est à dire celles qui n'ont pas de date de retour dans mon fichier... comme cela je sais ce que je peux prêter et que cela indique le dernier kilométrage et niveau de carburant enregistré pour ce véhicule.
De plus, j'aimerais que lorsqu'un véhicule revient (pas tout seul lol), je sélectionne l'immatriculation et cela m'indique le nom du client qui avait ce véhicule automatiquement.

Je mets le fichier en PJ, ce sera plus simple à comprendre.

Espérant avoir été précise dans mes explications, je vous remercie d'avance !

Sandrine

**rjamin** · 24/05/2015, 10h27

Bonjour,
Je ne comprends pas bien ce que vous écrivez

je n'ai que les immatriculations disponibles c'est à dire celles qui n'ont pas de date de retour dans mon fichier.

Est ce que ce ne serait pas plutôt ceux qui ont une date de retour qui sont redevenus disponible ? Moi je crois que ceux qui n'ont pas de date de retour sont en cours de prêt non !

**sandrine6282** · 24/05/2015, 13h37

Bonjour,

oui effectivement pardon, je me suis mal exprimée...

**vinc_bilb** · 25/05/2015, 10h52

Bonjour,

Tout d'abord, vous pouvez utiliser de manière plus intègre vos données, par exemple:

Code :

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

1
2
3
4
Dim tablo, derligne As Integer
    With Feuil2
derligne = .Range("B500").End(xlUp).Row
tablo = .Range("B2:B" & derligne)

En utilisant le .currentRegion

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub userform_initialize()
TextBox4.Value = Date
TextBox5 = Format(Now, "hh:nn")
 
Dim tablo As Range, derligne As Integer
 
With Feuil2
    Set tablo = .Range("B2").CurrentRegion.Columns(2)
    Debug.Print tablo.AddressLocal
    ComboBox3.List = tablo.Value
End With
 
End Sub

Ensuite, j'imagine que le même véhicule va avoir plusieurs enregistrements donc .....?

Je vous suggère de:
- bien réfléchir à votre modèle de données, par exemple:
o Une feuille contenant les descriptifs véhicules, la clé étant le Numéro d'immatriculation, caractéristiques, un flag 'valide pour la location' (I.e panne ou entretien, ....), dont les parties dynamiques évoluent en fonction des données de la feuille 'gestion des locations'
o Une feuille de gestion des locations, liées à la 1ere

Pour votre demande 'gestion des véhicules disponibles', il me semble que la solution la plus simple est:
Opt 1: rajouter un flag 'disponible' dans votre tableau, basé sur la date de retour non vide (+ autres?): en filtrant ce tableau sur ce champ, vous avez accès aux véhicules
Opt 2: tester sur le champ 'Date retour'

Par contre, je vous encourage vraiment à passer toutes vos données dans les feuilles en Tableaux, la gestion dynamique en sera vraiment facilitée

**rjamin** · 27/05/2015, 08h46

Bonjour,
Une proposition à tester.
Il y a deux boutons dans la feuil2 pour les Prêts et les Retours.
J'ai mis quelques explications dans la Feuil2, si ça ne suffit pas je peux répondre aux questions que vous poserez.

**sandrine6282** · 27/05/2015, 23h55

Bonsoir,

Merci beaucoup pour votre aide. Je vais regarder de plus près demain et je reviens vers vous ;-).

Bonne soirée.

**rjamin** · 04/06/2015, 10h28

Bonjour,
J'ai adapté le programme pour répondre à votre demande dans le message.

**sandrine6282** · 04/06/2015, 22h03

Bonsoir, et ce n'est pas merci que je dois vous dire mais un grand merci.

Concernant le plein de carburant, les véhicules de prêt à la base ont le plein de

carburant mais quand vous avez 10 clients qui ne font que 10 kilomètres chacun,

le niveau descend jusqu'à ce qu'un gentil client fasse le plein ou que je me dévoue pour aller en

remettre lol.

Donc dans la logique des choses, les véhicules devraient toujours avoir le plein mais dans la réalité, c'est

une autre histoire...

Pour le contrat de prêt qu'il faut imprimer en double, je l'avais fait sur la 3ème feuille. Voir PJ.

Bonne soirée.

Sandrine