XL 2013 gestion d'onglets et afficher dans nouveau classeur ou onglet

D

danielco

XLDnaute Barbatruc

• 10 Août 2020

• #2

Bonjour,

Où se trouve le composant choisi et où met-on les résultats ?

Cordialement.

Daniel

 

Vote positif 0 Vote négatif

K

kev2246

XLDnaute Nouveau

• 10 Août 2020

• #3

danielco à dit:

Bonjour,

Où se trouve le composant choisi et où met-on les résultats ?

Cordialement.

Daniel

Cliquez pour agrandir...

Bonjour,

Les composants se trouvent sur la première colonne du premier onglet. Les résultats doivent apparaitre sous forme de tableau de la manière souvante : colonnne 1: composant; colonne 2: fonctions; colonne 3: prescriptions associées

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Barbatruc

• 10 Août 2020

• #4

Tu écris :

En gros, en fonction du composant choisit par l'utilisateur

Cliquez pour agrandir...

Aussi, ce composant est dans quelle cellule ?

 

Vote positif 0 Vote négatif

K

kev2246

XLDnaute Nouveau

• 10 Août 2020

• #5

danielco à dit:

Tu écris :



Aussi, ce composant est dans quelle cellule ?

Cliquez pour agrandir...

je ne comprends pas trop votre question.

Ce que j’aimerais c’est tu choisis un composant dans la 1ere colonne de la 1ere feuille, ensuite tu affiches toutes les fonctions(se trouvant dans la colonne 2 de la 1ere feuille) qui sont liées à ce composant. Une fois que t’as la fonction ou les fonctions, tu vas chercher dans la feuille 2, toutes les prescriptions qui sont liés à cette ou ces fonctions.

Au final, toutes ces infos doivent être résumées dans un tableau

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Barbatruc

• 10 Août 2020

• #6

Oui, mais comment choisis-tu ce composant ? Tu peux écrire, par exemple, "A2267BA" en utilisant une liste déroulante en D1, ou tu peux cliquer ou double-cliquer sur la cellule A3, il faut que je le sache.

Daniel

 

Vote positif 0 Vote négatif

K

kev2246

XLDnaute Nouveau

• 10 Août 2020

• #7

danielco à dit:

Oui, mais comment choisis-tu ce composant ? Tu peux écrire, par exemple, "A2267BA" en utilisant une liste déroulante en D1, ou tu peux cliquer ou double-cliquer sur la cellule A3, il faut que je le sache.

Daniel

Cliquez pour agrandir...

D'accord, effectivement t'as raison, autant pour moi. L'idéal serait d'avoir une liste déroulante avec tous les composants qui sont dans la 1ere colonne de la première feuille et une fois que tu choisis un composant, il te sort toutes les fonctions qui sont associées ainsi que les prescriptions relatives à ces fonctions là sous forme de tableau.

Si c'est pas assez claire, n'hésitez pas à reposer la question car je tente plusieurs trucs mais rien ne marche.

J'en ai besoin pour croiser certaines informations et faire la vérification. J'ai au moins 10000 composants donc je ne peux pas m'amuser à faire des copier/coller sinon je risque d'en oublier.

Je vous remercie

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Barbatruc

• 10 Août 2020

• #8

Essaie :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Tabl1 As Variant, Tabl2 As Variant, I As Long, J As Long
  Dim L1 As Long, L2 As Long
  If Target.Address = "$D$2" Then
    Application.EnableEvents = False
    Range("E2", Cells(Rows.Count, 6).End(xlUp)).Offset(1) = ""
    Tabl1 = Range("A2", Cells(Rows.Count, 2).End(xlUp))
    With Sheets("fonctions_prescription")
      Tabl2 = .Range("A2", .Cells(.Rows.Count, 2).End(xlUp))
    End With
    L1 = 1
    For I = 1 To UBound(Tabl1, 1)
      If Tabl1(I, 1) = Target Then
        L1 = L1 + 1
        Cells(L1, 5) = Tabl1(I, 2)
        L2 = L1 - 1
        For J = 1 To UBound(Tabl2, 1)
          If Tabl2(J, 2) = Tabl1(I, 2) Then
            L2 = L2 + 1
            Cells(L2, 6) = Tabl2(J, 1)
          End If
        Next J
      End If
    Next I
    Application.EnableEvents = True
  End If
End Sub

Daniel

 

Pièces jointes

• Classeur2.xlsm

  21.9 KB · Affichages: 6

Vote positif 0 Vote négatif

K

kev2246

XLDnaute Nouveau

• 10 Août 2020

• #9

Merci beaucoup pour la réactivité Daniel, tu me sauves la vie. S'il y avait quelques commentaires pour m'aider à comprendre, ç'aurait été parfait car je suis vraiment débutant.

Merci pour ton aide précieuse encore une fois !

 

Vote positif 0 Vote négatif

K

kev2246

XLDnaute Nouveau

• 10 Août 2020

• #10

Bonsoir Daniel,

Comme échangé par message, il y a un 3e onglet qui comprend les prescriptions avec tous les créneaux où on peut faire la maintenance ("prescription_creneaux"). Là où on affiche les résultats, j'aimerais voir ces créneaux juste à côté de chaque prescription si possible.

Pour résumer,
choix du composant (avec la liste déroulante)--> fonctions associées--> toutes les prescriptions qui couvrent ces fonctions--> créneaux ou on peut réaliser la maintenance

 

Pièces jointes

• Copie de Classeur2 (1).xlsm

  17.1 KB · Affichages: 3

Vote positif 0 Vote négatif

D

danielco

XLDnaute Barbatruc

• 11 Août 2020

• #11

Voici le fichier commenté. N'hésite pas si tu as des questions.

Daniel

 

Pièces jointes

• Classeur2.xlsm

  22.6 KB · Affichages: 4

Vote positif 0 Vote négatif

D

danielco

XLDnaute Barbatruc

• 11 Août 2020

• #12

Bonjour,

Voici le code modifié. J'ai commenté les lignes ajoutées.

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Tabl1 As Variant, Tabl2 As Variant, I As Long, J As Long
  Dim L1 As Long, L2 As Long, Ligne As Variant
  If Target.Address = "$D$2" Then
    Application.EnableEvents = False
    Range("E2", Cells(Rows.Count, 6).End(xlUp)).Offset(1) = ""
    Tabl1 = Range("A2", Cells(Rows.Count, 2).End(xlUp))
    With Sheets("fonctions_prescription")
      Tabl2 = .Range("A2", .Cells(.Rows.Count, 2).End(xlUp))
    End With
    With Sheets("prescriptions_creneaux")
      L1 = 1
      For I = 1 To UBound(Tabl1, 1)
        If Tabl1(I, 1) = Target Then
          L1 = L1 + 1
          Cells(L1, 5) = Tabl1(I, 2)
          L2 = L1 - 1
          For J = 1 To UBound(Tabl2, 1)
            If Tabl2(J, 2) = Tabl1(I, 2) Then
              L2 = L2 + 1
              Cells(L2, 6) = Tabl2(J, 1)
              '"Ligne" récupère la ligne de la prescription sur la feuille prescriptions_creneaux
              Ligne = Application.Match(Tabl2(J, 1), .[A:A], 0)
              'Si la prescription est trouvée, on copie les informations
              If IsNumeric(Ligne) Then
                .Range(.Cells(Ligne, 2), .Cells(Ligne, .Columns.Count).End(xlToLeft)).Copy
                Cells(L2, 7).PasteSpecial xlPasteValues
                Application.CutCopyMode = False
              End If
            End If
          Next J
        End If
      Next I
    End With
    Application.EnableEvents = True
  End If
End Sub

 

Vote positif 0 Vote négatif

Solution

K

kev2246

XLDnaute Nouveau

• 11 Août 2020

• #13

Bonjour Daniel,

Vous êtes au top, c'est exactement ce que je cherchais. Un grand merci pour tous les commentaires.

Kev

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Barbatruc

• 11 Août 2020

• #14

En gros plutôt que d'avoir l'approche composants-->fonctions-->prescriptions-->créneaux, j'ai essayé de modifier le code pour qu'il fasse uniquement prescriptions-->composants-->créneaux et là ça marche pas.

Cliquez pour agrandir...

Pas sûr de bien comprendre... C'est ce résultat que tu veux obtenir ?

Daniel

 

Pièces jointes

• Annotation 2020-08-11 143558.png

  11.9 KB · Affichages: 20

Vote positif 0 Vote négatif

K

kev2246

XLDnaute Nouveau

• 11 Août 2020

• #15

C'est bien ça, je veux pas voir les fonctions dans le résultat final. Plutôt que de choisir le composant dans le menu déroulant, on choisit la prescription et après tu retournes tous les composants et les créneaux. Peux-tu m'envoyer le code stp?

 

Vote positif 0 Vote négatif