Petit

Bonjour,

Voila j'ai ajouter un champ dans le Userform que j'ai appelé (Complément information) et je voudrai qu'elle s'ajoute en même temps sur le devis en dessous de la ligne (service)

Qu'elle qu'un pourrais m’aidè

Bonjour toutes et tous

@Zeweb

Tu peux concaténer comme ceci :

& " " & cboComplement.Value

bouton ajouter de ton userform

Private Sub btnAjouter_Click()
    'Ajoute une ligne dans la liste Devis
    With lstDevis
        .AddItem cboFamille.Text
        .List(.ListCount - 1, 1) = cboServices.Text & "    " & cboComplement.Value
        .List(.ListCount - 1, 2) = cboServices.List(cboServices.ListIndex, 1)
        .List(.ListCount - 1, 3) = cboServices.List(cboServices.ListIndex, 2)
        .List(.ListCount - 1, 4) = txtQuantite.Text
    End With
    AutoriseValider
End Sub

crdlt,

André

Super merci

Serai t'il possible que cela s'ajoute mes sur la ligne en dessous?

Re,

bouton Valider de l'userform (usfDevis)

Private Sub btnValider_Click()
Dim L As Byte, C As Byte

   Dim M As Integer
  On Error GoTo plouf

    With Sheets("Devis")

    M = Sheets("Devis").Range("B32").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la 17ème du tableau non vide
        '
        Range("B" & M).Value = usfDevis.cboServices & "    " & usfDevis.cboComplement
        Range("G" & M).Value = txtQuantite.Text

        'Numéro du Devis
        .Range("C14").Value = Mid(lblDevis.Caption, 11)
        'Effacer les anciennes données
        '.Range("A51:b353553").ClearContents
        'Mettre à jour le Devis
        For L = 0 To lstDevis.ListCount - 1
           ' .Cells(17 + L, 2).Value = lstDevis.List(L, 1)
            .Cells(17 + L, 6).Value = lstDevis.List(L, 2)
            .Cells(17 + L, 7).Value = Val(lstDevis.List(L, 4))
            .Cells(17 + L, 8).Value = CCur(lstDevis.List(L, 3))
        Next L
    End With
    Unload Me
plouf:
    Exit Sub
End Sub

Sa fonction pas

Ce que je voudrais en faite , c'est que le complément d'information ce mette sur la ligne en dessous et non pas sur la meme ligne que le service

Re,

@Zeweb à tester

en rajoutant une variable N

Private Sub btnValider_Click()
Dim L As Byte, C As Byte

   Dim M, N As Integer
  On Error GoTo plouf

    With Sheets("Devis")

    M = Sheets("Devis").Range("B32").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
        '
        Range("B" & M).Value = usfDevis.cboServices
        Range("G" & M).Value = txtQuantite.Text
      N = Sheets("Devis").Range("B32").End(xlUp).Row + 1 '...................ici
        Range("B" & N).Value = usfDevis.cboComplement
        'Numéro du Devis
        .Range("C14").Value = Mid(lblDevis.Caption, 11)
        'Effacer les anciennes données
        '.Range("A51:b353553").ClearContents
        'Mettre à jour le Devis
        For L = 0 To lstDevis.ListCount - 1
           ' .Cells(17 + L, 2).Value = lstDevis.List(L, 1)
            .Cells(17 + L, 6).Value = lstDevis.List(L, 2)
            .Cells(17 + L, 7).Value = Val(lstDevis.List(L, 4))
            .Cells(17 + L, 8).Value = CCur(lstDevis.List(L, 3))
        Next L
    End With
    Unload Me
plouf:
    Exit Sub
End Sub

alors maintenant quand je veux ajouter plusieurs ligne cela fonction pas , ce ne prend en compte que la dernière donne entré

et quand je fait AJOUTER cela ne s'efface pas dans les TEXTBOX

Et aussi quand je fait NOUVEAU DEVIS cela ne remet pas a zero et les ancienne donné reste

Bonjour toutes et tous

ci- joint ce que j'ai fait

Attention: grrr l'incrémentation du devis c15 ne s'effectue plus

Note: il faudra attendre un Expert Excel en la matière pour pouvoir trouver une meilleure solution à cette petite demande d'Aide

(incrémenter dans la feuille+réinitialiser les textbox/combo de l'userform)

désol"é mon niveau reste encore trop faible

crdlt,

André

c'est deja super

le seul truc si je met plusieur ligne dans USERFORM quand je valide uniquement la 1er ligne du ce rajouter a la feuille excel

Bonjour,

Pourquoi avoir mis un Combo pour ce complément d'info ?

Tu l'initialises comment ton combo ?

Je suppose que tu ne sais pas alors je l'ai supprimé et remplacé par un TextBox.

Voir en pièce jointe... Si j'ai bien compris l'intention.

A+

SUPER

C'est exactement sa que je voulais

Merci encore a tous

Re,

Je tenais à remercier Galopin, comme d'hab, un travail de pro

merci à toi

crdlt,

André

Serai t'il possible d'ajouter dans le USERFORM la possibilité de mettre le nom , prénom , adresse , ville, téléphone , email ?

Et aussi d'avoir une liste déroulante avec des différent tot de TVA