Discussion :

[mygaspider]

Bonjour,

Je suis novice dans le vba excel. Je m'aide beaucoup des profs dans le domaine.

Je vous explique mon projet. J'essaye d'améliorer les conditions de travail de mes collègues de boulot.

Ma collègue remplit une fiche usager sheet (DEMARRAGE)> CommandButton.1>userform 1
Ces éléments sont enregistrés dans un tableau de suivi sheet (ASSAI)
Premier problème : userform 1 ne se ferme pas et n'ouvre pas le tableur de la feuille ASSAI.

Deuxième problème : je n'arrive pas à créer un textbox dans l'userform 1 créant un n° de devis automatique fonction du dernier numéro de devis dans le tableur ASSAI.

La page sheet (DEMARRAGE) contient les CommandButton afin de créer un devis puis un bon de commande.

Je souhaiterais réaliser une listview comprenant les données de la feuille BPU. Ce tableau sera mis à jour par ma collègue tous les 6 mois par un copier/coller. Elle sélectionnerait une 10aine de ligne qui serait renvoyée vers la feuille DEVIS. La feuille devis comprendrait un combobox permettant de choisir et de copier sur le devis le NOM Prénom adresse et numéro de devis.

Je n'y arrive pas ...

[mygaspider]

Je bloque particulièrement sur la listview et les variables (je ne capte rien nada)

Problème 1 : Le CommandButton1 renvoit bien vers Userform 1. Toutefois je souhaiterais que le bouton annulé ne ferme pas l'userform 1 mais efface seulement les données = résolu
Problème 2 : Le bouton validé de l'Userform 1 envoie les données saisies vers le tableau ASSAI. Toutefois, je souhaiterais qu'il ferme l'userfom 1 et ouvre la page Assai = résolu
Problème 3 : je n'arrive pas à créer un textbox dans l'userform 1 créant un n° de devis automatique fonction du dernier numéro de devis dans le tableur ASSAI. Puis créer une ligne vide avec toutes ces infos
Problème 4 : Lorsque j’appuie sur créer un devis, cela me renvoie vers un Userform comprenant une listview comprenant l'ensemble des données du BPU et une liste déroulante me permettant soit de retrouver le n° de devis et les info qui y st liées soit par le nom de l'usager. Toutes ces info st validés par un bouton vers un devis type.
Problème 5 : Lorsque le devis est validé. Je souhaiterais pouvoir l'imprimer et en copier une copie dans une colonne du tableau Assai sous format excel ou pdf avec lien hypertexte

Cordialement

Laurent

[Daniel.C]

Bonjour,

Problème 3 : je n'arrive pas à créer un textbox dans l'userform 1 créant un n° de devis automatique fonction du dernier numéro de devis dans le tableur ASSAI. Puis créer une ligne vide avec toutes ces infos

Le numéro de devis est généré dans TextBox9 de l'userform2, non ?

Lorsque j’appuie sur créer un devis

C'est où ?

[mygaspider]

Bonjour,

Le numéro de devis est généré dans TextBox9 de l'userform2, non ?

Oui par contre je n'arrive pas à renvoyer les informations tapées dans l'userform Nom Prénom, n° de devis etc. vers le tableur ASSAI.

J'ai crée un bouton sur la page "Démarrage"...mais il n'y a pas de code derrière. Indépendamment de l'userform 1, je souhaiterais lorsque j'appuie sur le bouton créer un devis qu'il y ait une listview qui apparaisse reprenant les données de la page BPU. Que je puisse choisir les lignes de prix (max 15) > puis cela me renvoie les info sur un modèle de devis. Celui ci comprendra une liste déroulante avec l'ensemble des noms et adresses des usagers du tableur ASSAI.

Cordialement
Merci d'avance
Laurent

[Daniel.C]

Oui par contre je n'arrive pas à renvoyer les informations tapées dans l'userform Nom Prénom, n° de devis etc. vers le tableur ASSAI.

Mets ce code à la place de l'ancien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
    Dim Ligne As Long
    Sheets("ASSAI").Activate
    Ligne = Cells(Rows.Count, 1).End(xlUp).Row + 1
    Cells(Ligne, 3).Value = Me.ComboBox9.Value
    Cells(Ligne, 4).Value = Me.TextBox1.Value
    Cells(Ligne, 5).Value = Me.TextBox2.Value
    Cells(Ligne, 6).Value = Me.numero & " " & Me.ComboBox7 & "" & Me.ComboBox8.Value
    Cells(Ligne, 7).Value = Me.TextBox4 & " " & Me.TextBox5.Value
    Cells(Ligne, 8).Value = Me.TextBox6 & " " & Me.TextBox8.Value
    Cells(Ligne, 2).Value = Me.TextBox11.Value
    Cells(Ligne, 1).Value = Me.TextBox9.Value
    Me.Hide
End Sub

J'ai crée un bouton sur la page "Démarrage"...mais il n'y a pas de code derrière. Indépendamment de l'userform 1, je souhaiterais lorsque j'appuie sur le bouton créer un devis qu'il y ait une listview qui apparaisse reprenant les données de la page BPU. Que je puisse choisir les lignes de prix (max 15) > puis cela me renvoie les info sur un modèle de devis. Celui ci comprendra une liste déroulante avec l'ensemble des noms et adresses des usagers du tableur ASSAI.

Tu demandes vraiment du boulot. Est-ce que tu es vraiment bloqué ? Sinon, je vais devoir te faire patienter...