Microsoft 365 Programme VBA

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Juillet 2023

• #2

Bonjour Simon, et bienvenu sur XLD,
Sans un petit fichier test représentatif, difficile de répondre.
Cela va dépendre de l'organisation de vos données, si vous acceptez ou non une macro VBA ....

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 13 Juillet 2023

• #3

Bonjour et bienvenu sur le forum
Oui c'est faisable mais avec un fichier example... (3 lignes suffisent)
A+ François

 

Vote positif 0 Vote négatif

S

Simon L.

XLDnaute Nouveau

• 13 Juillet 2023

• #4

Merci pour vos messages de bienvenues,
Je vous fournie un fichier test

 

Pièces jointes

• caracteristique papier pour XLD.xlsx

  13.7 KB · Affichages: 3

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Juillet 2023

• #5

Re,

sylvanu à dit:

petit fichier test représentatif

Cliquez pour agrandir...

Votre PJ n'aide guère. Il n'est pas représentatif.

Simon L. à dit:

J'aimerais à l'aide d'un menu déroulant, sélectionner un choix

Cliquez pour agrandir...

Ou est ce menu ? Quels critères donne t-il ?

Simon L. à dit:

Donc afficher ou masquer des lignes à ma guise selon le choix du menu déroulant.

Cliquez pour agrandir...

Donc le choix contiendrait tous les titres des lignes ?

 

Vote positif 0 Vote négatif

S

Simon L.

XLDnaute Nouveau

• 13 Juillet 2023

• #6

Le menu est en A1, c'est une liste déroulant contenant "Mon entreprise" ; "Mes fournisseurs" ; "Mon entreprise & Mes fournisseurs".
L'idée serait de pouvoir choisir "Mon entreprise" et d'afficher uniquement les lignes A2 ; A4 ; A6 ; A8. De sélectionner "Mes fournisseurs" et d'afficher uniquement les lignes A3 ; A5 ; A7 ; A9 et de sélectionner "Mon entreprise & Mes fournisseurs" et d'afficher toutes les lignes ensemble.

Si cela paraît trop compliqué ce n'est pas grave je me débrouiller avec la fonction des filtres qui me plait moins mais je m'en accommoderai

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 13 Juillet 2023

• #7

Bonjour
Ci joint ma solution

A+ François

 

Pièces jointes

• caracteristique papier pour XLD.xlsm

  19.7 KB · Affichages: 3

Vote positif 0 Vote négatif

Solution

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Juillet 2023

• #8

Re,
En PJ une solution avec la liste déroulante en A1, et :

VB:

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A1]) Is Nothing Then
        Application.ScreenUpdating = False
        Rows("2:9").EntireRow.Hidden = False
        If Target = "Mon entreprise" Then
            Range("3:3,5:5,7:7,9:9").EntireRow.Hidden = True
        ElseIf Target = "Mes fournisseurs" Then
            Range("2:2,4:4,6:6,8:8").EntireRow.Hidden = True
        End If
    End If
Fin:
End Sub

 

Pièces jointes

• caracteristique papier pour XLD (1).xlsm

  19.6 KB · Affichages: 5

Vote positif 0 Vote négatif

S

Simon L.

XLDnaute Nouveau

• 13 Juillet 2023

• #9

Wow incroyable !
C'est magnifique c'est exactement ce que je voulais, merciiiiii beaucoup

 

Vote positif 0 Vote négatif