programmeurs en vba

[mc3199]

slt a vous tous

j’ai déjà 'posté' qlq messages pour faire des devis....j'ai donc eu des réponses et des liens de fichiers déjà fait (certaines programmations étaient géniales,et puis plus rien plus de nouvelles), et puis il y avaient ceux qui ne me convenaient pas ou étaient trop 'fouillis' ou bien ont m'envoyait des liens de tutos mais je n'avais pas le temps de m'y plonger et étant un amateur en excel et pire en programmation vba et ayant peu de temps vu mon entreprise, ;

je recherche donc des programmeurs en vba(en excel 2003) qui ont du temps et qui veulent s'investirent pour faire ces devis tres particuliers pour une petite entreprise de ménage, des devis 'propres et tres claire' avec pas trop d'options pour que cela ne soit pas trop 'usine a gaz' et donc assez simple mais pas copier sur les autres, et que ceux-ci soit modulables pour la base de données,(rentrer automatique des données par boite 'userforme' ou autres par exemple....) avec une base de données que je remplis au fur et a mesure.....

donc voila pour tous ceux qui se sente capable de relevé ce défie...contacter moi....pour en parler....

merci a tous

 

[13GIBE59]

Re : programmeurs en vba

Bonjour mc3199,

J'ai transféré ta demande à un expert du site, programmeur en vba, si cela le tente.

C'est lui qui décide...

Cordialement.

 

[Regueiro]

Re : programmeurs en vba

Bonsoir Le Forum, mc3199
Aurais-tu une ébauche de fichier, pour voir ce que tu veux exactement.
Merci
A+

 

[Regueiro]

Re : programmeurs en vba

Bonsoir le Forum, mc3199
Voici une première ébauche pour ton fichier.
Tu peux compléter les données dans l'onglet "DATA" dans le Tableau1
Ensuite dans l'onglet "DEVIS"
Double-click dans la Cellule B5:B40 à adapter ouvre un USF

Par contre j'ai un problème avec la vérification du TextBox1
Contrôler si il y une valeur numérique et selection d'une ligne dans le ListBox1
Alors on remplis la Cellule active

Private Sub B_ok_Click()
Dim i As Integer
Dim X As Integer
ligne = ActiveCell.Row
    For i = 1 To 5
        For X = 0 To Me.ListBox1.ListCount - 1
            'If Me.ListBox1.Selected(X) = True And IsNumeric(Me.TextBox1.Value) Then
            If Me.ListBox1.Selected(X) = True And Me.TextBox1.Value = True Then
            
            'Then 'And Len(Me.TextBox1) > 1 Then
            
                    Cells(ligne, 2) = Me.ListBox1.List(X, 0)
                    Cells(ligne, 3) = Me.ComboBox1 & " - " & Me.ComboBox2
                    Cells(ligne + 1, 3) = Me.ListBox1.List(X, 1) & " - " & Me.ListBox1.List(X, 2) & " - " & Me.ComboBox3
                    Cells(ligne + 1, 4) = Me.ListBox1.List(X, 3)
                    Cells(ligne + 1, 6) = Me.ListBox1.List(X, 4)
                    Cells(ligne + 1, 5) = Me.TextBox1.Text
                Else
                    If MsgBox("Veuillez Saisir une Quantité", vbYesNo) = vbYes Then
                        Me.TextBox1.SetFocus
                        Exit Sub
                            Else
                                MsgBox "Au Revoir"
                            Exit Sub
                    End If
                End If
        Next X
    Next i
    Cells(ligne + 2, 2).Select
  Unload Me
End Sub

A+
le fichier en PJ

 

[Regueiro]

Re : programmeurs en vba

Bonjour Le Forum.
Juste une petite relance concernant

Par contre j'ai un problème avec la vérification du TextBox1
Contrôler si il y une valeur numérique et selection d'une ligne dans le ListBox1
Alors on remplis la Cellule active

Merci pour votre Aide

 

[Bebere]

Re : programmeurs en vba

bonjour Regueiro
comme suit

Private Sub B_ok_Click()
    Dim i As Long
    Dim X As Long

    If Me.ListBox1.ListIndex >= 0 Then
    X = Me.ListBox1.ListIndex

        If Me.TextBox1.Value <> "" Then
            ligne = ActiveCell.Row

            For i = 1 To 5
                Cells(ligne, 2) = Me.ListBox1.List(X, 0)
                Cells(ligne, 3) = Me.ComboBox1 & " - " & Me.ComboBox2
                Cells(ligne + 1, 3) = Me.ListBox1.List(X, 1) & " - " & Me.ListBox1.List(X, 2) & " - " & Me.ComboBox3
                Cells(ligne + 1, 4) = Me.ListBox1.List(X, 3)
                Cells(ligne + 1, 6) = Me.ListBox1.List(X, 4)
                Cells(ligne + 1, 5) = Me.TextBox1.Text
            Next i
            Cells(ligne + 2, 2).Select
            Unload Me
    
        Else
            MsgBox "Veuillez Saisir une Quantité"
            Me.TextBox1.SetFocus
        End If
    Else
        MsgBox "Veuillez sélectionner une ligne"
        Me.ListBox1.SetFocus
    End If

rmq
déclare les variables en long,integer est changé par le système
dans outils,références cocher microsoft scripting runtime
déclarer
dim mondico As new Dictionary

ou déclarer
dim mondico As Dictionary

et dans le code
set mondico=new Dictionary

tu auras les propriétés dans la liste qui s'ouvre quand tu tapes

 

[Regueiro]

Re : programmeurs en vba

Bonjour Le Forum, Bebere
Merci pour l'aide je vais voir ça ce soir.
A+

 

[Regueiro]

Re : programmeurs en vba

Bonsoir Le FORUM - Bebere - mc3199 si il réapparait 😉
Merci encore Bebere pour ta contribution
Voir en PJ un fichier pour débuter

Voici une première ébauche pour ton fichier.
Tu peux compléter les données dans l'onglet "DATA" dans le Tableau1
Ensuite dans l'onglet "DEVIS"
Double-click dans la Cellule B5:B40 à adapter ouvre un USF

A+

 

[grisan29]

Re : programmeurs en vba

bonsoir regueiro et le forum

je ne sais pas où est parti mc1399 mais il a été butiné un peu partout avant d'arriver ici et la dernière ruche est ici a consulter avant réponse

Pascal

 

[Regueiro]

Re : programmeurs en vba

Bonsoir.
Merci pour ton Message.
En effet il est un peu partout.
Bonne Soirée

 

[Regueiro]

Re : programmeurs en vba

Bonsoir Le Forum

mc3199
J'ai retrouver ton fichier sur un autre Forum grâce à Grisan29



En PJ ton fichier
Avec des USF en cascade VBA

Sur l'onglet "DEVIS"
Tu Double-Click sur une des Cellules dans le Range ([B22:B52])
Userform apparaît et tu chosis dans les 2 combobox + Listbox

A+

 

[grisan29]

Re : programmeurs en vba

bonjour regueiro😎

magnifique ton usf cascade 😎, un bon début pour l'amateur borné qu'est mc1399

au fait le forum a le bonjour de Phoenixordi et de fhoest
Pascal

 

[Regueiro]

Re : programmeurs en vba

Bonsoir à Tous,
Salut mc1399
Je préfère communiquer via ce Post, c'est plus simple pour moi et ainsi tout le monde
en profite.

slt a toi
merci pour ta réponse
sachant que j'ai d'autres personnes qui font aussi les devis cela serait-il possible de remplir la base de donnée directement sur la feuille de devis, et ne pas allez sur la feuille de données, et si possible plus tard de me faire la feuilles de donnés sur un fichier a part...
le nombres sur la boite de recherche cherche a quoi ? pour moi elle me sert a rien pour l'instant ?
par contre sur la colonne B20 si je met le titre, sur les colonne B22 à B..... il faut que cela correspond et pas qui s'affiche de nouveau le titre et le forfait....

Le nombre d'enregistrement sur le USF c'est juste pour le fun.
Sur la Cellule B20 de la Feuille "DEVIS PAGE 2" j'ai simplement enlever les Données-Validations.

Peux-tu mettre sur le fichier ce que tu désires exactement.

Je vais voir ce que je peux faire pour alimenter la Base de Données directement depuis
le USF.

2ème étape avec un lien avec un autre fichier fermé contenant la base de données.
Pour ceci, il me faut un plus d'information.
Quelle version Excel ?
Version Windows

Merci
A+

 

[mc3199]

Re : programmeurs en vba

slt a toi regueiro
comme tu veux pour voir les mails
ok pour la cellule b20, mais serait-il possible que si je sélectionne un titre le reste 'découle' du titre choisi car il faut que cela soit assez simple je ne suis seul a faire les devis et j'ai peur que cela soit déroutant pour certains de mes employées
noubli pas que suis novice, et cela sera un peu long de décrire ce que j'aimerais.....
je suis sur office 2003 avec xp sp3
voila si tu as questions n'hesite pas
a+

 

[mc3199]

Re : programmeurs en vba

slt a toi regueiro
je viens aux nouvelles
tu pense pouvoir faire ce que je t'ai demandé ?
merci
a+