XL 2013 UserForm multipages

Dranreb à dit:

Bonjour.
Pourquoi un MultiPage ?
Je réalise toujours comme ça Ies UserForm de consultation et mise à jour: On tape d'abord dans les ComboBox les nom et prénom, et ensuite seulement on regade et décide s'il faut l'ajouter, modifier ou supprimer.

Cliquez pour agrandir...

murainesouspatate à dit:

Bonjour à tous et à toutes,
Je suis en train de créer un classeur de suivi client à ma fille qui est esthéticienne.
Afin d'enregistrer, modifier ou supprimer des clients ainsi que la fiche client, j'ai créé un UserForm multipages.
Pour la page Enregistrement et consultation, j'ai réussi à les faire fonctionner grâce aux foires au questions et l'aide de certains sur ce forum.
Pour la page Modification, je ne sais pas comment renvoyer les données modifiées vers la feuille "Clients" sur la ligne du client sélectionné avec la ComboBox 1.

J'ai commencé la macro mais ne sais pas comment faire pour la suite. Je joint mon classeur test en pièce-jointe en espérant que quelqu'un puisse bien m'aider à résoudre mon problème, et surtout à m'expliquer le déroulement.
Je vous remercie par avance et vous souhaite une agréable journée.
Cordialement.
Roger

Cliquez pour agrandir...

Dranreb à dit:

Demandez à votre fille s'il ne lui serait pas plus pratique comme ça, ce qui éviterait des manœuvres inutiles et le risque de créer un client qui existe déjà ou de vouloir en consulter un qui n'existe pas.
Éventuellement on pourrait coller un TabStrip dessus plutôt que de mettre 3 fois la même chose dans un MultiPage.

Cliquez pour agrandir...

JP.B à dit:

Bonjour

Je viens de regarder ton fichier car j'ai été confronté à ce genres de problématique.
Premier point : pourquoi faire 3 pages identiques ?
Pour ma part j'ai opté pour un bouton "Nouvel adhérent" avec une page vierge
et un bouton "Modifier", qui ramène toutes les info. de la ligne où est le curseur dans l'interface. On change les données et on réenregistre.

Deuxième point : aucun outil n'est nommé, et donc savoir ce qu'est le Combobox2 est une vraie galère.
En cliquant sur F4 tu peux nommer les éléments (ex Nom_Prénom)

Avance dans ce sens sur ta page 1 et je pourrais t'aider 'j'espère pour la suite.
Amicalement
JPB

Cliquez pour agrandir...

JP.B à dit:

Premier point : pourquoi faire 3 pages identiques ?
Pour ma part j'ai opté pour un bouton "Nouvel adhérent" avec une page vierge
et un bouton "Modifier", qui ramène toutes les info. de la ligne où est le curseur dans l'interface. On change les données et on réenregistre.

Deuxième point : aucun outil n'est nommé, et donc savoir ce qu'est le Combobox2 est une vraie galère.
En cliquant sur F4 tu peux nommer les éléments (ex Nom_Prénom)

Avance dans ce sens sur ta page 1 et je pourrais t'aider 'j'espère pour la suite.
Amicalement
JPB

Cliquez pour agrandir...

Dranreb à dit:

Il y a des explication dans une page d'aide du classeur disponible ici, précurseur d'un .xlam aussi utilisable pour ça.

ComboBox liées et contrôles associés

Définit deux types d'objets à évènements: ComboBoxLiées prenant en charge les ComboBox pour la saisie des données d'identification de la ligne à créer, puis, ultérieurement, à consulter voire modifier, et ControlsAssociés prenant en charge les...

www.excel-downloads.com

Mais le classeur joint au poste #2 est équipé des modules de service nécessaires.

Cliquez pour agrandir...

JP.B à dit:

@Dramreb
Pas de pb, mais nous avons l'un et l'autre 2 techniques différentes.
Je maitrise la mienne après des heures d'apprentissage et d'ajustements donc je ne vais pas me lancer dans une nouvelle technique, même si elle peut être plus performante.
Donc pour @Muraine... il faut en quelque sorte choisir son camp
@ suivre
JPB

Cliquez pour agrandir...

cp4 à dit:

Bonjour murainesouspatate , Dranreb , JP.B ,

@murainesouspatate : une proposition d'après ce que j'ai compris. Je n'ai pas testé. Débloque l'accès des textboxs à modifier.

VB:

Private Sub CommandButton3_Click() 'bouton modifier'

    If ComboBox1.Value = "" Then
        MsgBox "Sélectionner un client !!"
        Exit Sub
    Else
    MsgBox ComboBox1.ListIndex 'pour verification, à mettre en commentaire'
With Sheets("Clients")
    lig = ComboBox1.ListIndex + 7 'ComboBox1.ListIndex renvoie 0 pour la ligne se trouvant en ligne 7, on ajoute donc 7
    .Range("A" & lig + 2).Value = TextBox1.Value
    .Range("B" & lig + 2).Value = TextBox2.Value
    .Range("C" & lig + 2).Value = TextBox3.Value
    .Range("D" & lig + 2).Value = TextBox4.Value
    .Range("E" & lig + 2).Value = TextBox5.Value
    .Range("F" & lig + 2).Value = TextBox6.Value
    .Range("G" & lig + 2).Value = TextBox7.Value
    .Range("H" & lig + 2).Value = TextBox53.Value
    .Range("I" & lig + 2).Value = TextBox54.Value
    .Range("J" & lig + 2).Value = TextBox55.Value
    .Range("K" & lig + 2).Value = TextBox56.Value
    .Range("L" & lig + 2).Value = TextBox57.Value
    .Range("M" & lig + 2).Value = TextBox58.Value
    .Range("N" & lig + 2).Value = TextBox59.Value
    .Range("O" & lig + 2).Value = TextBox60.Value
    .Range("P" & lig + 2).Value = TextBox61.Value
    .Range("Q" & lig + 2).Value = TextBox62.Value
    .Range("R" & lig + 2).Value = TextBox63.Value
    .Range("S" & lig + 2).Value = TextBox64.Value
    .Range("T" & lig + 2).Value = TextBox65.Value
    .Range("U" & lig + 2).Value = TextBox66.Value
    .Range("V" & lig + 2).Value = TextBox67.Value
    .Range("W" & lig + 2).Value = TextBox68.Value
  End With
    End If
End Sub

Bonne journée.

Cliquez pour agrandir...