Discussion :

[HawkTurner]

Bonjour à tous, voici mon premier post sur ce forum, je suis très heureux de pouvoir me manifester et (je l'espère) pouvoir avancer grâce à votre aide

Alors voilà, je suis actuellement en train de développer un outil de gestion de prêts de matériels sur excel en VBA et j'aurai besoin d'un petit coup de pouce (si c'est possible).

Je ne peux pas vous joindre le fichier en pièce jointe malheureusement ... Car je dispose d'informations qui doivent rester confidentielles , donc je vais essayer d'être le plus clair possible

Je dispose de trois feuilles nommées "Enregistrement", "Bondecommande" et "Liste des emprunts". Dans la feuille "Enregistrement" se trouve plusieurs cellules où les utilisateurs doivent entrer des données et là où je bloque c'est pour voir la disponibilité d'un ordinateur. En fait je cherche à faire un bouton, où lorsque je clique dessus, me permet de connaître le statut de l'ordinateur qui est soit "Disponible" soit "Emprunté".
Avant toute chose , voici quelques informations qui vous seront sûrement utiles :

- le nom de l'ordinateur est entré dans la cellule H5 de la feuille "Enregistrement"
- la date d'emprunt est entrée dans la cellule D10 de la feuille "Enregistrement"
- la date de retour est entrée dans la cellule D11 de la feuille "Enregistrement"

Lors d'un enregistrement, le nom de l'ordinateur est copié dans la colonne C de la feuille "Liste des emprunts" , la date d'emprunt dans la colonne K , et la date de retour dans la colonne L. Comme vous l'aurez sûrement compris, je dispose d'un boucle qui me permet de remplir au fur et à mesure ma feuille "Liste des emprunts".

Pour connaître le statut d'un ordinateur au moment de l'enregistrement, il faudrait un code en VBA qui ferait une recherche du nom de l'ordinateur dans la colonne C de la feuille "Liste des emprunts", et une recherche de la date dans la colonne L.

Pour que l'ordinateur soit "Disponible":
- il faut que le nom de l'ordinateur se trouve dans la colonne C et que la date d'emprunt lors de l'enregistrement soit supérieure ou égale à la date de retour qui se trouve sur la même ligne que le nom de l'ordinateur dans la feuille "Liste des emprunts". Vous me suivez jusque là?
- ou alors que le nom de l'ordinateur n'existe pas encore dans la feuille "Liste des emprunts"

Ensuite, dans tous les autres cas , l'ordinateur est "Emprunté".

J'ai déjà essayer plusieurs façons de trouver le statut d'un ordinateur, mais je n'arrive pas à faire ce que je veux... C'est pourquoi je voulais savoir si quelqu'un parmi vous aurait l’amabilité de me venir en aide

Si vous avez besoin de plus d'informations , n'hésitez surtout pas à me demander. Cordialement, HawkTurner

[Menhir]

J'ai déjà essayer plusieurs façons de trouver le statut d'un ordinateur, mais je n'arrive pas à faire ce que je veux...

Pourrais-tu mettre le code de la "façon" que tu as "essayé" et qui te semble la plus proche de ce que tu souhaites, pour pouvoir t'indiquer où sont tes erreurs.

[HawkTurner]

Alors déjà bonjour...
Oui , voici le code que j'ai mais qui ne répond pas à mes besoins

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
Sub Disponibilite()
Dim stC As String 'Valeur cherchée colonne C
Dim stL As String 'Valeur cherchée colonne L
Dim r As Range 'Ligne du tableau
 
stC = Feuil1.Range("H5").Value
stL = Feuil1.Range("D10").Value
With Range("C2:C" & [C1000].End(xlUp).Row)
    Set x = Sheets(3).Find(stC, LookIn:=xlWhole)
    If Sheets(3).cells(x.Row, 12) >= stL Then
        MsgBox "L'ordinateur est indisponible, veuillez en choisir un autre!"
    Else
        MsgBox "L'ordinateur est disponible"
    End If
End With
End Sub

Je tiens juste à dire que j'ai récupéré ce code et que je l'ai modelé à ma façon, et je ne suis pas du tout un expert en VBA, cordialement.

[HawkTurner]

Finalement, je viens de trouver un code qui se trouvait sur ce forum que j'ai réadapté et qui fonctionne PARFAITEMENT! Je vous le partage pour les personnes qui ont le même soucis que moi, merci encore bonne soirée!

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
Sub Rechercher()
 
    Dim plage As Range
    Dim Cel As Range
    Dim Adr As String
    Dim Nom As String
    Dim DateE As String
    Nom = Feuil1.Range("H5").Value
    DateE = Feuil1.Range("D10").Value
 
    With Sheets(3)
 
        Set plage = .Range(.cells(2, 3), .cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    Set Cel = plage.Find(Nom, , xlValues, xlWhole)
 
    If Not Cel Is Nothing Then
 
        Adr = Cel.Address
 
        Do
 
            If Cel.Offset(, 9).Value <= DateE Then
 
                MsgBox " L'ordinateur est disponible", vbOKOnly, "Avertissement"
 
                Exit Do
            Else
                MsgBox "L'ordinateur est déjà emprunté, veuillez en choisir un autre!", vbOKOnly, "Avertissement"
 
            End If
 
            Set Cel = plage.FindNext(Cel)
 
        Loop While Adr <> Cel.Address
 
    Else
        MsgBox " L'ordinateur est disponible!", vbOKOnly, "Avertissement"
 
    End If
 
 
End Sub

[Menhir]

Au lieu de pomper des codes "au petit bonheur", tu devrais apprendre un minimum les bases.
Parce que ce que tu présentes là est du code de base.

[HawkTurner]

T'as rien d'autre à faire que critiquer? C'est bon j'ai trouvé la solution à mon problème, je partage le code pour les personnes qui sont dans le même état que moi, alors arrête de tout critiquer à chaque fois, c'est pénible! Bref salut

[Menhir]

T'as rien d'autre à faire que critiquer?

Ce n'était pas une critique mais un conseil.