XL 2016 Erreur dans code VBA

piga25 · 16 Septembre 2024

Bonjour,
Dans le fichier joint, en cliquant dans une cellule du tableau cela ouvre un Userform. C'est là que j'ai un problème, après avoir renseigné les 3 combobox de l'EPI concerné, le code suivant devrait normalement me renseigner les 2 label (dernière vérification) - Je n'arrive pas a afficher la ligne qui correspond au critères des 3 combobox.

VB:

Private Sub RenseignerLabels()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim rowNum As Long

    ' Boucle à partir de la ligne 6 jusqu'à la dernière ligne non vide de la colonne A
    For rowNum = 6 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        ' Vérifie si les valeurs des cellules correspondent aux ComboBox 1, 3 et 4
        If ws.Cells(rowNum, 1).Value = Me.ComboBox1.Value And _
           ws.Cells(rowNum, 3).Value = Me.ComboBox3.Value And _
           ws.Cells(rowNum, 4).Value = Me.ComboBox4.Value Then
          
            ' Remplir Label10 avec la valeur de la colonne 11 (date de vérification)
            Me.Label10.Caption = ws.Cells(rowNum, 11).Value ' Date de vérification

            ' Remplir Label11 avec la valeur de la colonne 5 (statut)
            Me.Label11.Caption = ws.Cells(rowNum, 5).Value ' Statut

            ' Afficher le numéro de la ligne dans un label (par exemple Label12)
            'Me.Label12.Caption = "Ligne correspondante : " & rowNum

            ' Quitter la boucle une fois la ligne correspondante trouvée
            Exit For
        End If
    Next rowNum
End Sub

piga25 · 21 Septembre 2024

Bonjour,
Comme promis le fichier final.

ChTi160 · 17 Septembre 2024

Re
Je supprime mes conneries lol
Merci de ce complément d'info.
Mais je ne mettrai jamais et n'est jamais mis :

Range("tableau2").value

Pour référencer un ts .
Je retourne discuter avec chatgpt lol
Bonne fin de soirée
Jean marie

patricktoulon · 17 Septembre 2024

bonsoir @Jeannette
le forum est ouvert à tous

je ne vois pas ce qui est blessant
mais si tu lis les posts en entier ou je monte un peu la tension tu t’apercevra que j'en subit tout autant a peine masqué par un pseudo humour
tu t'en apercevra quand tu aura un peu de bouteille

oui on peut se tromper ; faut il encore en retenir les leçons

oui on peut très bien avoir une approche différente
a condition de la comprendre et savoir l'expliquer

ici depuis une dizaine de posts on débat sur l'utilisation de range ou listobject alors que ce que j'ai démontré ,n'en est pas le sujet

avant de s'exprimer en commençant par
"ceci ou cela ne se fait pas comme ça "
faut il en maitriser tout les aspects dans leur contexte
sinon tu enfonce le demandeur dans le brouillard

pour conclure si on regarde le dernier fichier du demandeur
c'est ma méthode qu'il a choisi je ne pense pas que c'est pour mes beaux yeux

j’espère avoir répondu a ta question

piga25 · 18 Septembre 2024

patricktoulon à dit:
pour conclure si on regarde le dernier fichier du demandeur
c'est ma méthode qu'il a choisi je ne pense pas que c'est pour mes beaux yeux

Bonjour le forum,
Oui en effet cette solution me conviens parfaitement car je suis toujours à la recherche des simplifications.

En effet mes premiers codes sont plus du domaine de l'apprentissage du VBA ou l'on déclare tout et nomme tout. C'est pour cela qu'il faut être ouvert dans nos démarches ce qui permets de s'améliorer et d'apprendre de nouvelles façons de coder. Je rassure tout le monde j'en suis encore très loin.
Patrick t'a méthode pour expliquer ta démarche avec l'aide de vidéo en vraiment très génial et pédagogique.

Je regarde les dernières versions apportées et vous tiens informé.
Merci à tous.

TooFatBoy · 18 Septembre 2024

piga25 à dit:
En effet mes premiers codes sont plus du domaine de l'apprentissage du VBA ou l'on déclare tout et nomme tout.

C'est exactement ce qu'il faut faire pour être sûr, par exemple, de travailler sur la bonne feuille du bon classeur.

piga25 à dit:
C'est pour cela qu'il faut être ouvert dans nos démarches ce qui permets de s'améliorer et d'apprendre de nouvelles façons de coder.

Tout à fait !
Si seulement tout le monde pouvait être aussi raisonné.

ChTi160 · 18 Septembre 2024

Bonsoir,
je me rends compte que rien ne vaut la vidéo Lol
Pour imager ce que je disais :

il faut aussi penser a effacer le "ComboBox4" !

j'ai enlevé le Lol pour plus de sérieux !
voir ce que j'ai maladroitement tenté de dire .(j'en apprends tout les Jours)
j'espère que ce sera plus compréhensible !
Cordialement
Jean marie

ChTi160 · 18 Septembre 2024

Re
j'ai beaucoup cherché et j'ai trouvé
j'ai mis ça !

VB:

Sub filterlist(combo, comboprime, c, cx, Optional ligne As Boolean)
    Set collect = New Collection
                    ComboBox4.Clear 'Ici
    For i = 1 To UBound(tbl)
        If tbl(i, cx) = comboprime Then
            On Error Resume Next
            collect.Add tbl(i, c), CStr(tbl(i, c))
            If Err.Number = 0 Then
                combo.AddItem tbl(i, c)
                If ligne Then combo.List(combo.ListCount - 1, 1) = i
            End If
            Err.Clear
        End If
    Next
End Sub

et chance ça marche !
j'avais aussi vu :

VB:

Private Sub CommandButton1_Click() 'Bouton de remise à blanc
    ComboBox1 = ""
    ComboBox3.Clear
    ComboBox4.Clear
    ComboBox5 = ""
    ComboBox6 = ""
End Sub

mais ça ne vidait pas le ComboBox4.Clear quand je le voulais !
en passant .
Bonne fin de Soirée
Jean marie

piga25 · 18 Septembre 2024

ChTi160 à dit:

j'ai mis ça !

VB:

Sub filterlist(combo, comboprime, c, cx, Optional ligne As Boolean)
Set collect = New Collection
ComboBox4.Clear 'Ici
For i = 1 To UBound(tbl)
If tbl(i, cx) = comboprime Then
On Error Resume Next
collect.Add tbl(i, c), CStr(tbl(i, c))
If Err.Number = 0 Then
combo.AddItem tbl(i, c)
If ligne Then combo.List(combo.ListCount - 1, 1) = i
End If
Err.Clear
End If
Next
End Sub

et chance ça marche !

Oui bien vu, car en cas d'ajout, on voit toujours les n° de série qui sont déjà pris.

piga25 · 18 Septembre 2024

Bonjour le forum,
J'ai complété l'userform pour l'ajout de matériel, (marque, date de fabrication et date mise en service).
Par contre je ne saisie pas bien pourquoi les dates de fabrication et mise en service ne se renseignent pas bien.

Edit: c'est sur je vais me faire gronder par Patricktoulon car j'ai codé le module 1 à ma façon et non comme il le fait lui. Pas encore assez doué.

TooFatBoy · 18 Septembre 2024

piga25 à dit:
Par contre je ne saisie pas bien pourquoi les dates de fabrication et mise en service ne se renseignent pas

Enrichi (BBcode):

        .Cells(lig, 6) = CDate(TextBox6) 'Date de fabrication
        .Cells(lig, 9) = CDate(TextBox7) 'Date de mise en service

Où sont ces deux TextBox dans le UserForm ?

piga25 · 18 Septembre 2024

Elles sont cachées sous l'image

TooFatBoy · 18 Septembre 2024

piga25 à dit:
Elles sont cachées sous l'image

Trop bien cachées pour moi...

Bonne soirée

ChTi160 · 18 Septembre 2024

Bonsoir piga25, TooFatBoy, Patrick ,le Fil
j'ai aussi remarqué que tu remplis ton Combobox1 via la propriété "Rowsource"( avec la liste description que j'ai nommée "t_Materiel") plutôt que Tableau3.
et qu'ensuite tu veux le remplir lors de l'activate du Userform.
c'est pas bon , tu n'as pas d'erreur , car tu as mis une gestion d'erreur .

VB:

'les deux fonction de remplissage
Sub RemplirComboBox1()
    Set collect = New Collection
    For i = 1 To UBound(TabTemp)
        If TabTemp(i, 1) <> "" Then
            On Error Resume Next   'ici
                       collect.Add tbl(i, 1), CStr(tbl(i, 1))
            If Err.Number = 0 Then ComboBox1.AddItem tbl(i, 1)
                        Err.Clear  'ici
        End If
    Next
End Sub

Si tu supprimes ces deux Lignes marquées Ici ,tu verras le résultat et le Message d'erreur !
j'espère ne pas avoir dis de bêtise ?
Bonne fin de Soirée
Jean marie

patricktoulon · 18 Septembre 2024

re
bonsoir
elle est ou cette nouvelle version de l'userform?

ChTi160 · 18 Septembre 2024

Re
De quoi as tu besoin dans ton Combobox1 : la Liste complète de tous tes Matériels , ou la Liste des seuls Matèriels présents dans ta Base de Données ?
Jean marie

piga25 · 18 Septembre 2024

ChTi160 à dit:
De quoi as tu besoin dans ton Combobox1 : la Liste complète de tous tes Matériels , ou la Liste des seuls Matèriels présents dans ta Base de Données

Au début j'avais pensé que seul les matériels présents étaient suffisant, car je pensais faire un multipage. Une page pour les vérifications des matériels présents et une seconde pour les matériels ajoutés. Pour ces derniers j'ai besoin de toutes la liste des matériels (liste dynamique).
Comme la proposition de Patrick me convenait en utilisant uniquement la même façon de saisir (simplement choix du bouton masqué en fonction d'un ajout ou pas) , j'ai également ajouter un combobox et 2 textbox pour les données qui me manquaient pour les ajouts
Donc pour plus de simplicité j'ai mis en rowsource pour la combobox1 la liste dynamique des matériels.

patricktoulon à dit:
elle est ou cette nouvelle version de l'userform?

Elle dans le post #39 le fichier joint.

XL 2016 Erreur dans code VBA

piga25

XLDnaute Barbatruc

Pièces jointes

piga25

ChTi160

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

piga25

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

piga25

XLDnaute Barbatruc

piga25

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

piga25

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

piga25

XLDnaute Barbatruc

Discussions similaires