Microsoft 365 Conditionner l'accès à une page d'un multipage

TCHIS

XLDnaute Occasionnel
Bonjour à tous et à toutes.

Encore une fois je me redirige vers vous dans le cadre de mon projet. En gros je monte un outil sur Excel pour faire un suivi de Gammes Opératoires.
  • Sans entrer sur le langage et l'aspect technique de l'outil je viens vers vous pour parvenir à réaliser une action autrement dit une Fonction que doit présenter mon outil au vu du besoin émis.

Cette action porte sur l'accès à une des pages (Page 2) dédiée au renseignement de suivi existant c'est-à-dire les suivi qui ont été généré dans la Page destinée à la création d'un nouveau suivi.

Page 1 (Onglet de saisie de suivi de Gammes Opératoires)
Page 2 (Onglet de renseignement de suivi de Gammes Opératoires)

Ce qui est recherché est que l'accès à cette page 2 puisse se faire de deux manières.
  • La première possibilité :
Au double Clique sur une des lignes de ma ListView on ouvre directement la Page 2.
Cette page 2 présente des contrôles (TextBox et ComboBox) parmi lesquels il y en aura certains qui doivent être préchargés (C'est-à-dire présenteront les données pour la ligne double cliquée qui ont déjà été saisie en Page 1 mais qui peuvent être modifié) Et d'autres Vides car ce sont ces contrôles Vides qui vont être utilisés pour le renseignement de ces suivis au fur et à mesure.

Notons que tous ces contrôles destinés au renseignement ne seront pas forcement toutes renseignés le même jour. En bref à chaque fois qu'on double clique sur une Ligne de la ListView et qu'on ouvre la page 2 cette page 2 présentera les contrôles avec des données préchargés pour les contrôles qui ont été renseigné lors des derniers renseignements
  • La deuxième possibilité :
Serait qu'au simple clique sur l'onglet de renseignement de suivi de Gammes Opératoires, qu'on passe d'abord par une boite de dialogue qui demandera le N° De suivi à renseigner.
Et des lors que la boite de dialogue donne l'accès à la page 2 qu'on est comme à la première manière les contrôles préchargés pour ceux-là qui ont déjà été renseigner.

Alors je ne sais pas si un sujet similaire a déjà été posé dans ce Forum toutefois quoi qu'il en soit je pense que c'est un exercice qui peut être intéressant et qui pourra être utile à plus d'un.​
Mais j'ai un code qui me permet de réaliser l'action deux non pas avec une page d'un multipage mais avec un USF à part (J'aimerai bien vous transférer le fichier mais pas de bol celui-ci est trop lourd). Mais voici le code qui marche pour avoir une boite de dialogue qui demandera le N° de l'enregistrement (Ligne) à renseigner​
VB:
Private Sub UserForm_Initialize()
'Déclaration de Variables
     Dim MonNum
     Dim MaLigne As Integer
    
     'Gestion D'erreur
    
     On Error GoTo 1
     'Affectation du Num de suivi
     MonNum = InputBox("Veuillez saisir le numero de suvi sur lequel il faut aujouter ou modifier des données")
     Me.TextBox4_N° = MonNum
     MaLigne = MonNum + 2
     'On se positionne ur la cellule du N° à modifier
     Cells(MaLigne, 1).Select
    
     'On teste le contenu de ma cellule active
     'Cette partie du code est pour pouvoir charger le contenu des cellules
     If ActiveCell <> "" Then
    
        Me.TextBox_TAG = Cells(MaLigne, 6)
        Me.ComboBox1_Sites = Cells(MaLigne, 7)
        Me.ComboBox2_Métier = Cells(MaLigne, 8)
        Me.ComboBox3_Fréquence = Cells(MaLigne, 9)
        Me.TextBox2_Equipmnt_Asso = Cells(MaLigne, 10)
        Me.TextBox3_Poste_Tech = Cells(MaLigne, 11)
        Me.ComboBox4_Etat = Cells(MaLigne, 12)
        Me.ComboBox5_Validité = Cells(MaLigne, 13)
        Me.ComboBox6_Demande = Cells(MaLigne, 14)
        Me.TextBox5_Date_Trans_SUP = Cells(MaLigne, 15)
        Me.TextBox6_Date_Val_SUP = Cells(MaLigne, 16)
        Me.TextBox7_Date_Trans_Val_SIM = Cells(MaLigne, 17)
        Me.TextBox8_Date_Val_SIM = Cells(MaLigne, 18)
        Me.TextBox9_Date_Val_MM = Cells(MaLigne, 19)
        Me.TextBox10_Date_Val_GMAO = Cells(MaLigne, 20)
        Me.TextBox11_Commentaire = Cells(MaLigne, 21)
        
        
    
     End If
1
End Sub
Donc le souci que j'ai c'est d'adapter le code pour passer par une boite de dialogue afin de réaliser le renseignement des suivis mais aussi de pouvoir le faire directement par double clique sur la ligne du suivi correspondant dans la ListView​
Avec tout ça je me demande si d'abord c'est au moins possible à faire🤔🤔🤔🤔 ?​
En pièce jointe se trouve le fichier sur lequel se trouve la fameuse page 2 où se portera tout le sujet.​
Je vous remercie d'avance déjà pour lire tous ce que j'ai mentionné en espérant que j'ai su faire passer ma demande le plus compréhensible que possible.

Bien de chose à tous et toutes
A+.​
 

Pièces jointes

  • TCHIS.xlsm
    76 KB · Affichages: 10
Solution
Ce qu'il y a avec ton code est que lorsqu'on lance le fichier les données de remplissage décalent les colonnes du tableau source.
Je n'ai toujours pas compris ce que tu veux dire... :(



Pour la développée on pourrait faire à ce que:
  1. Lorsqu'on clique sur Onglet de renseignement de suivi existant(Page2) et que l'Inputbox s'affiche qu'on reste d'abord sur Page1(Onglet de saisie de nouveaux suivis)
  2. Et si le numéro du suivi (Ligne) à renseigner ne correspond à aucun de ceux existants une Msgbox s'affiche avec un message "Le numéro de Suivi à renseigner ne correspond à aucun des suivis existants "Et toujours dans ce cas figure on reste toujours sur la Page1
D'ailleurs dans l'Inputbox au cas où on souhaiterai...

TooFatBoy

XLDnaute Barbatruc
Au fait... j'ai regardé ton problème de mise à jour du tableau à partir des données de la Page2, mais hier je n'ai pas eu le temps d'allumer mon PC, donc je n'ai pas pu te fournir de proposition.

J'espère avoir un peu de temps aujourd'hui pour allumer le PC et poster le fichier. 😉
 
Dernière édition:

TCHIS

XLDnaute Occasionnel
Au fait... j'ai regardé ton problème de mise à jour du tableau à partir des données de la Page2, mais hier je n'ai pas eu le temps d'allumer mon PC, donc je n'ai pas pu te fournir de proposition.

J'espére avoir un peu de temps aujourd'hui pour allumer le PC et poster le fichier. 😉
Bonjour de mon coté j'ai pu trouver une solution à cela.

Ce qui fait que quand je valide les modifications apportées sur une ligne celles-ci partent s'enregistrer dans le tableau. En apportant quelques ajouts à ton code voilà ce que ça a donner

Pour le bouton valider J'ai garder le code de départ
VB:
Private Sub CommandButton10_Click()
' Procédure permettant de rendre actifs les controles de modif situé dans la Page2(Onglet de renseignement de suivi existant)

    ActiveCell = TextBox26.Value
    ActiveCell.Offset(0, 5) = Me.TextBox36
    ActiveCell.Offset(0, 6) = Me.ComboBox7
    ActiveCell.Offset(0, 7) = Me.ComboBox8
    ActiveCell.Offset(0, 8) = Me.ComboBox9
    ActiveCell.Offset(0, 9) = Me.TextBox38
    ActiveCell.Offset(0, 10) = Me.TextBox40
    ActiveCell.Offset(0, 11) = Me.ComboBox10
    ActiveCell.Offset(0, 12) = Me.ComboBox11
    ActiveCell.Offset(0, 13) = Me.ComboBox12
    ActiveCell.Offset(0, 14) = Me.TextBox50
    ActiveCell.Offset(0, 15) = Me.TextBox52
    ActiveCell.Offset(0, 16) = Me.TextBox55
    ActiveCell.Offset(0, 17) = Me.TextBox53
    ActiveCell.Offset(0, 18) = Me.TextBox57
    ActiveCell.Offset(0, 19) = Me.TextBox59
    ActiveCell.Offset(0, 20) = Me.TextBox48

End Sub
Pour le remplissage j'ai rajouté à ton code Cells(TextBox26.Value + 2, 1).Select
Code:
Sub RemplirPage2(NumLig)

    Me.TextBox26 = Range("Tbl_Datas[N°]")(NumLig)
    Me.TextBox28 = Range("Tbl_Datas[Année]")(NumLig)
    Me.TextBox30 = Range("Tbl_Datas[Mois d''enregistrement]")(NumLig)
    Me.TextBox32 = Range("Tbl_Datas[Semaine d''enregistrement]")(NumLig)
    Me.TextBox34 = Range("Tbl_Datas[Date d''enregistrement ]")(NumLig)
    Me.TextBox36 = Range("Tbl_Datas[TAG]")(NumLig)
    Me.TextBox38 = Range("Tbl_Datas[Equipement/Système Associé]")(NumLig)
    Me.TextBox40 = Range("Tbl_Datas[Poste Technique]")(NumLig)
    Me.ComboBox7 = Range("Tbl_Datas[Site]")(NumLig)
    Me.ComboBox8 = Range("Tbl_Datas[Métier]")(NumLig)
    Me.ComboBox9 = Range("Tbl_Datas[Fréquence]")(NumLig)
    Me.ComboBox10 = Range("Tbl_Datas[Statut]")(NumLig)
    Me.ComboBox11 = Range("Tbl_Datas[Niveau de Validation]")(NumLig)
    Me.ComboBox12 = Range("Tbl_Datas[Nature de la Demande]")(NumLig)
    Me.TextBox48 = Range("Tbl_Datas[Commentaires]")(NumLig)
    Me.TextBox50 = Range("Tbl_Datas[Date de validation Sup]")(NumLig)
    Me.TextBox52 = Range("Tbl_Datas[Date de transmission pour validation Sup]")(NumLig)
    Me.TextBox55 = Range("Tbl_Datas[Date de transmission pour validation SIM]")(NumLig)
    Me.TextBox53 = Range("Tbl_Datas[Date de transmission pour validation SIM]")(NumLig)
    Me.TextBox57 = Range("Tbl_Datas[Date de validation MM]")(NumLig)
    Me.TextBox59 = Range("Tbl_Datas[Date de validation GMAO]")(NumLig)
Cells(TextBox26.Value + 2, 1).Select
End Sub

Et enfin sur le code avec L'inputBox celui-ci Cells(NumSuivi + 2, 1).Select
Code:
Private Sub MultiPage1_Saisie_Renseignement_Suivie_Click(ByVal Index As Long)
Dim NumSuivi
Dim MonResultat, MaRep

    If MultiPage1_Saisie_Renseignement_Suivie.Value <> 1 Then Exit Sub

    If Not DblClic Then
        On Error GoTo Suite
Debut:

        NumSuivi = Application.InputBox("Veuillez entrer le n° de suivi", "n° suivi", Type:=1)
        Cells(NumSuivi + 2, 1).Select
        If NumSuivi = False Then
            MultiPage1_Saisie_Renseignement_Suivie.Value = 0
        Else
            MonResultat = WorksheetFunction.Match(NumSuivi, Range("Tbl_Datas[N°]"), 0)
            RemplirPage2 (MonResultat)
        End If
    End If

    Exit Sub

Suite:
    MaRep = MsgBox("Le n° de suivi " & NumSuivi & " n'existe pas !", vbOKOnly, "Erreur")
    GoTo Debut

End Sub

A présent il ne reste plus qu'à faire à ce que la ListView1 aussi enregistrement automatiquement les Modifications apportées où je me dis qu'il faut appeler ma macro Remplir_ListView1 dans le bouton valider mais quand je le fait il enregistrement directement certes mais cela me double les enregistrement dans la ListViewo_Oo_O
Et la cause est la variable C que j'avais déclaré dans la meme macro comme ceci C = Feuil1.Range("A1:U1").Value
Code:
Sub Remplir_ListView1() 'Macro permettant de charger le contenu des cellules se trouvant dans le tableau de feuille source dans la ListView1
C = Feuil1.Range("A1:U1").Value
With USF.ListView1
    For Lg = 3 To UBound(C)
        Set Lst = .ListItems.Add(, , Format(C(Lg, 1), "0"))
        With Lst
            .ListSubItems.Add , , C(Lg, 2)
            For i = 3 To 21
                .ListSubItems.Add , , C(Lg, i)
                C(Lg, 3) = Format(C(Lg, 3), "dd/mm/yyyy")
            Next i
        End With
    
    Next Lg
    
End With
End Sub
Donc je me bas à bien l'indexer.
Vous voyer un peu ce que je veux dire ?
Regarder un peu cela et si vous avez de meilleurs approches à me suggérer j'en tiendrai compte s'il vous plait
une image qui montre le dédoublement de mes lignes une fois qu'on enregistre
Capture d’écran (23).png
 

TCHIS

XLDnaute Occasionnel
Bonjour de mon coté j'ai pu trouver une solution à cela.

Ce qui fait que quand je valide les modifications apportées sur une ligne celles-ci partent s'enregistrer dans le tableau. En apportant quelques ajouts à ton code voilà ce que ça a donner

Pour le bouton valider J'ai garder le code de départ
VB:
Private Sub CommandButton10_Click()
' Procédure permettant de rendre actifs les controles de modif situé dans la Page2(Onglet de renseignement de suivi existant)

    ActiveCell = TextBox26.Value
    ActiveCell.Offset(0, 5) = Me.TextBox36
    ActiveCell.Offset(0, 6) = Me.ComboBox7
    ActiveCell.Offset(0, 7) = Me.ComboBox8
    ActiveCell.Offset(0, 8) = Me.ComboBox9
    ActiveCell.Offset(0, 9) = Me.TextBox38
    ActiveCell.Offset(0, 10) = Me.TextBox40
    ActiveCell.Offset(0, 11) = Me.ComboBox10
    ActiveCell.Offset(0, 12) = Me.ComboBox11
    ActiveCell.Offset(0, 13) = Me.ComboBox12
    ActiveCell.Offset(0, 14) = Me.TextBox50
    ActiveCell.Offset(0, 15) = Me.TextBox52
    ActiveCell.Offset(0, 16) = Me.TextBox55
    ActiveCell.Offset(0, 17) = Me.TextBox53
    ActiveCell.Offset(0, 18) = Me.TextBox57
    ActiveCell.Offset(0, 19) = Me.TextBox59
    ActiveCell.Offset(0, 20) = Me.TextBox48

End Sub
Pour le remplissage j'ai rajouté à ton code Cells(TextBox26.Value + 2, 1).Select
Code:
Sub RemplirPage2(NumLig)

    Me.TextBox26 = Range("Tbl_Datas[N°]")(NumLig)
    Me.TextBox28 = Range("Tbl_Datas[Année]")(NumLig)
    Me.TextBox30 = Range("Tbl_Datas[Mois d''enregistrement]")(NumLig)
    Me.TextBox32 = Range("Tbl_Datas[Semaine d''enregistrement]")(NumLig)
    Me.TextBox34 = Range("Tbl_Datas[Date d''enregistrement ]")(NumLig)
    Me.TextBox36 = Range("Tbl_Datas[TAG]")(NumLig)
    Me.TextBox38 = Range("Tbl_Datas[Equipement/Système Associé]")(NumLig)
    Me.TextBox40 = Range("Tbl_Datas[Poste Technique]")(NumLig)
    Me.ComboBox7 = Range("Tbl_Datas[Site]")(NumLig)
    Me.ComboBox8 = Range("Tbl_Datas[Métier]")(NumLig)
    Me.ComboBox9 = Range("Tbl_Datas[Fréquence]")(NumLig)
    Me.ComboBox10 = Range("Tbl_Datas[Statut]")(NumLig)
    Me.ComboBox11 = Range("Tbl_Datas[Niveau de Validation]")(NumLig)
    Me.ComboBox12 = Range("Tbl_Datas[Nature de la Demande]")(NumLig)
    Me.TextBox48 = Range("Tbl_Datas[Commentaires]")(NumLig)
    Me.TextBox50 = Range("Tbl_Datas[Date de validation Sup]")(NumLig)
    Me.TextBox52 = Range("Tbl_Datas[Date de transmission pour validation Sup]")(NumLig)
    Me.TextBox55 = Range("Tbl_Datas[Date de transmission pour validation SIM]")(NumLig)
    Me.TextBox53 = Range("Tbl_Datas[Date de transmission pour validation SIM]")(NumLig)
    Me.TextBox57 = Range("Tbl_Datas[Date de validation MM]")(NumLig)
    Me.TextBox59 = Range("Tbl_Datas[Date de validation GMAO]")(NumLig)
Cells(TextBox26.Value + 2, 1).Select
End Sub

Et enfin sur le code avec L'inputBox celui-ci Cells(NumSuivi + 2, 1).Select
Code:
Private Sub MultiPage1_Saisie_Renseignement_Suivie_Click(ByVal Index As Long)
Dim NumSuivi
Dim MonResultat, MaRep

    If MultiPage1_Saisie_Renseignement_Suivie.Value <> 1 Then Exit Sub

    If Not DblClic Then
        On Error GoTo Suite
Debut:

        NumSuivi = Application.InputBox("Veuillez entrer le n° de suivi", "n° suivi", Type:=1)
        Cells(NumSuivi + 2, 1).Select
        If NumSuivi = False Then
            MultiPage1_Saisie_Renseignement_Suivie.Value = 0
        Else
            MonResultat = WorksheetFunction.Match(NumSuivi, Range("Tbl_Datas[N°]"), 0)
            RemplirPage2 (MonResultat)
        End If
    End If

    Exit Sub

Suite:
    MaRep = MsgBox("Le n° de suivi " & NumSuivi & " n'existe pas !", vbOKOnly, "Erreur")
    GoTo Debut

End Sub

A présent il ne reste plus qu'à faire à ce que la ListView1 aussi enregistrement automatiquement les Modifications apportées où je me dis qu'il faut appeler ma macro Remplir_ListView1 dans le bouton valider mais quand je le fait il enregistrement directement certes mais cela me double les enregistrement dans la ListViewo_Oo_O
Et la cause est la variable C que j'avais déclaré dans la meme macro comme ceci C = Feuil1.Range("A1:U1").Value
Code:
Sub Remplir_ListView1() 'Macro permettant de charger le contenu des cellules se trouvant dans le tableau de feuille source dans la ListView1
C = Feuil1.Range("A1:U1").Value
With USF.ListView1
    For Lg = 3 To UBound(C)
        Set Lst = .ListItems.Add(, , Format(C(Lg, 1), "0"))
        With Lst
            .ListSubItems.Add , , C(Lg, 2)
            For i = 3 To 21
                .ListSubItems.Add , , C(Lg, i)
                C(Lg, 3) = Format(C(Lg, 3), "dd/mm/yyyy")
            Next i
        End With
  
    Next Lg
  
End With
End Sub
Donc je me bas à bien l'indexer.
Vous voyer un peu ce que je veux dire ?
Regarder un peu cela et si vous avez de meilleurs approches à me suggérer j'en tiendrai compte s'il vous plait
une image qui montre le dédoublement de mes lignes une fois qu'on enregistre Regarde la pièce jointe 1166626
Enfin avec de l'aide j'ai pu trouver la solution à cela.
A présent quand je réalise une modification sur une ligne celle ci se fait voir automatiquement la ListView1 quand je clique sur mon bouton valider
VB:
Private Sub CommandButton10_Click()
' Procédure permettant de rendre actifs les controles demodif situé dans la Page2(Onglet de renseignement de suivi existant)

    ActiveCell = TextBox26.Value
    ActiveCell.Offset(0, 5) = Me.TextBox36
    ActiveCell.Offset(0, 6) = Me.ComboBox7
    ActiveCell.Offset(0, 7) = Me.ComboBox8
    ActiveCell.Offset(0, 8) = Me.ComboBox9
    ActiveCell.Offset(0, 9) = Me.TextBox38
    ActiveCell.Offset(0, 10) = Me.TextBox40
    ActiveCell.Offset(0, 11) = Me.ComboBox10
    ActiveCell.Offset(0, 12) = Me.ComboBox11
    ActiveCell.Offset(0, 13) = Me.ComboBox12
    ActiveCell.Offset(0, 14) = Me.TextBox50
    ActiveCell.Offset(0, 15) = Me.TextBox52
    ActiveCell.Offset(0, 16) = Me.TextBox55
    ActiveCell.Offset(0, 17) = Me.TextBox53
    ActiveCell.Offset(0, 18) = Me.TextBox57
    ActiveCell.Offset(0, 19) = Me.TextBox59
    ActiveCell.Offset(0, 20) = Me.TextBox48
Me.ListView1.ListItems.Clear
Remplir_ListView1
Couleur_LV
End Sub

Donc en conclusion on a pu avoir la solution au conditionnement de l'accès à la page2 Grace à tous notamment🫵 TooFatBoy 🙏 🤩 🙏 🤩
Une proposition en pièce jointe.
La seule chose qui fait tache est juste avec l'accès à la page2 avec L'inputBox où l'on souhaiterai que la page2 ne se présente (s'affiche) qu'une fois que le N° taper est valide c'est-à-dire correspond à l'un des Numéro d'enregistrement existants.
Dans le cas contraire(C'est-à-dire quand le Numéro ne correspond pas ou quand on souhaite abandonné les modification on cliquant sur le boutons annuler de l'InputBox) on reste sur Page1 qui présenterai toujours les données précharger pour un nouvel enregistrement (N°, Année, Mois d'enregistrement, Semaine d'enregistrement & Date d'enregistrement )
Mais encore une fois je vais chercher une solution de mon coté et je peux passer à l'étape suivant:D;):D
Merci Enormément🙏🙏
 

TooFatBoy

XLDnaute Barbatruc
Pour le bouton valider J'ai garder le code de départ
Il faut revoir complètement cette macro. 😔

Pour le remplissage j'ai rajouté à ton code Cells(TextBox26.Value + 2, 1).Select
Tu peux l'enlever car ça ne sert à rien. 😉

Et enfin sur le code avec L'inputBox celui-ci Cells(NumSuivi + 2, 1).Select
Ça aussi tu peux l'enlever car ça ne sert à rien. 😉


Les Select ne sont pas utiles et sont généralement déconseillés.
Donc il faut revoir toutes les macros qui utilisent des Select.


Il y a d'autres problèmes, comme par exemple Range("Tbl_Datas[Date de transmission pour validation SIM]")(NumLig) qui est doublé.
 

TCHIS

XLDnaute Occasionnel
Il faut revoir complètement cette macro. 😔


Tu peux l'enlever car ça ne sert à rien. 😉


Ça aussi tu peux l'enlever car ça ne sert à rien. 😉


Les Select ne sont pas utiles et sont généralement déconseillés.
Donc il faut revoir toutes les macros qui utilisent des Select.


Il y a d'autres problèmes, comme par exemple Range("Tbl_Datas[Date de transmission pour validation SIM]")(NumLig) qui est doublé.
Oulala o_Oo_Oo_O
Pourtant de mon coté ça marche parfaitement
Cells(TextBox26.Value + 2, 1).Select permet à ce que lorsque je double clique ou passe par l'inputBox pour renseigner un suivi existant et que les modifications apportées aillent dans les bonnes colonnes de la bonne ligne du suivi sans elle je ne peux indexer et donc les modifications à apporter se retrouve dirigées sur la dernière cellule sur laquelle il y a eu le dernier clique en d'autre terme la cellule active
 

TooFatBoy

XLDnaute Barbatruc
Cells(TextBox26.Value + 2, 1).Select permet à ce que lorsque je double clique ou passe par l'inputBox pour renseigner un suivi existant et que les modifications apportées aillent dans les bonnes colonnes de la bonne ligne du suivi sans elle je ne peux indexer et donc les modifications à apporter se retrouve dirigées sur la dernière cellule sur laquelle il y a eu le dernier clique en d'autre terme la cellule active
Exact, utiliser TextBox26.Value + 2 fonctionne, mais uniquement si tes numéros de suivi commencent à 1 et ne comportent aucun trou, et si les données de ton tableau commencent à la ligne 3 de la feuille.
 
Dernière édition:

ChTi160

XLDnaute Barbatruc
Bonsoir le Fil
Juste pour montrer une autre présentation du Userform (d'après le très bon travail de TooFatBoy)
Rien n'est finalisé, c'est juste pour la présentation du Multipage !
Jean marie
 

Pièces jointes

  • TooFatboy_v2 (Chti160).xlsm
    58.9 KB · Affichages: 6

TooFatBoy

XLDnaute Barbatruc
Juste pour montrer une autre présentation du Userform (d'après le très bon travail de TooFatBoy)
Rien n'est finalisé, c'est juste pour la présentation du Multipage !
Je lui ai dit en MP, il y a quelques jours, que son système de MultiPage ne me semblait pas génial. ;)

J'avais continué de modifier les macros de son classeur, mais il n'a pas souhaité voir ma dernière version, donc je suis passé en mode "standby".


Si je peux me permettre une remarque sur ton classeur : très beau travail, en particulier la MàJ en temps réel de la ListView ! 👍
 
Dernière édition:

Discussions similaires

Réponses
15
Affichages
947
Compte Supprimé 979
C

Statistiques des forums

Discussions
313 201
Messages
2 096 179
Membres
106 517
dernier inscrit
oubourigue