Microsoft 365 Programmes VBA pour trier

[Vidal Salvador]

Bonsoir à tous.
J'ai des difficultés à trouver un programme VBA fiable pour mon exercice. Dans le fichier Excel ci-joint nous avons deux tableaux principaux l'un qui comporte tous les équipements et installations et l'autre qui comporte les équipements et installations par liste. J'aimerais avoir un programme VBA qui me permettra l'activation d'un bouton en considérant les deux tableaux. Pour être plus clair, je veux que, quand je sélectionne un équipements sur la liste déroulant, en fonction de l'équipement que le bouton qui étant grisé devient normal en respectant les tableaux des listes.
Merci cordialement.

 

[vgendron]

Bonjour

la demande n'est vraiment pas claire..
tu parles de deux tableaux.... lesquels?? ils sont ou? ils s'appellent comment

et pas compris ce que tu veux lorsque tu selectionnes un élement du combobox

 

[vgendron]

bon.. parce que je suis bien luné

Function LookInTable(Equipement As String) As String

    With Sheets("Formulaire")
        For Each TS In .ListObjects
            If TS.Name <> "TEquipements" Then
                Set trouve = TS.Range.Find(Equipement)
                If Not trouve Is Nothing Then
                    LookInTable = TS.Name
                    Exit Function
                End If
            End If
        Next TS
    End With
End Function

'**************************************************************
'Proccédure permettant d'activer le bouton d'ajout des sections
'**************************************************************
Private Sub txtCaractéristiques_Change()
    NomBouton = "Btn" & WorksheetFunction.Substitute(LookInTable(Me.cboEquipements), "Liste", "")
    Me.Controls(NomBouton).Enabled = True
'    If txtCaractéristiques <> "" Then
'        btnBoulangerie.Enabled = True
'        btnTraiteur.Enabled = True
'        btnCharcuterie.Enabled = True
'        btnPoissonnerie.Enabled = True       'Activer le bouton
'        btnBoucherie.Enabled = True
'        btnMeubles.Enabled = True
'        btnClimatisation.Enabled = True
'        btnElectricité.Enabled = True
'        btnRéception.Enabled = True
'
'    Else
'        btnBoulangerie.Enabled = False
'        btnTraiteur.Enabled = False
'        btnCharcuterie.Enabled = False
'        btnPoissonnerie.Enabled = False
'        btnBoucherie.Enabled = False          'Désactiver le bouton
'        btnMeubles.Enabled = False
'        btnClimatisation.Enabled = False
'        btnElectricité.Enabled = False
'        btnRéception.Enabled = False
'
'    End If
           
End Sub

 

[Vidal Salvador]

Par exemple si je choisis un équipement sur un ComboBox, cet équipement et trier par secteur qui va activer le Bouton de commande de la section choisie dans le tableau.
Merci cordialement.

 

[vgendron]

je ne comprend rien à ce que tu dis.. tu parles d'un tri..? trier quoi?? ou ca?

ton fichier en poste #4: c'est quoi la différence avec le tout premier??

voir en PJ
quand tu selectionnes un item dans le combobox equipement,
la fonction "lookInTable" va chercher dans quelle table l'équipement se trouve
ensuite, le bouton associé est selectionné

pour le reste.. il va falloir que tu fasses un effort de décrire ton besoin dans un français correct et intelligible

PS, j'ai modifié des noms de tables pour qu'ils correspondent au nom des boutons de ton formulaire

 

[vgendron]

Dans la mesure où ton fichier utilise des tables structurées, autant les exploiter

1) inutile de garder 50 lignes vides
2) quand tu cliques sur un des boutons pour ajouter, c'est toujours le meme code, à la feuille près
==> UN seul code "AddInTable"

idem, j'ai renommé des feuilles pour que les noms correspondent

 

[Vidal Salvador]

Merci beaucoup Mr. VGENDRON votre programme fonctionne parfaitement.
J'aurais juste une petite faveur à vous demandez, j'aimerais que vous ajoutez les commentaires sur les codes que vous m'avez envoyé.
Merci cordialement.

 

[vgendron]

Hello

Vu la question, j'en déduis que tu n'est pas vraiment à l'origine du code..?

 

[Vidal Salvador]

Hello

Vu la question, j'en déduis que tu n'est pas vraiment à l'origine du code..?

Merci pour les commentaires, au fait c'est un travail que doit présenter vu que les codes que vous écris je les connais pas tous raison pour laquelle je vous les commentaires à côté.