XL 2021 Remplir données devis en vba avec descriptions/quantités/PUs alignés

Claudinedu13

XLDnaute Nouveau
Bonsoir,
Grâce à plusieurs d'entre vous , je progresse sur la construction de formulaires/codes mais je bloque sur un de ces codes.
Dans mon classeur de test sur ma feuil1 je clique sur une ligne/cellule de la liste des devis puis sur le bouton "Sélectionner une ligne/cellule puis cliquer ici pour remplir le devis" , ça va remplir dans le devis le numéro, le nom et les descriptions (qui peuvent comporter 1 à plusieurs lignes) , je bloque pour aligner la quantité et le prix unitaire en face de la dernière ligne de la description, je souhaite un affichage comme ci dessous.
Je vous remercie et j'espère que vous comprendrez ma demande ...

Remplissage devis.jpg




VB:
Sub Selection_ligne()

Dim CC As Range
Set CC = Selection

If Not CC Is Nothing Then

   With ActiveWorkbook.Sheets("Feuil2")
  
   Range("Zone_devis").ClearContents
   Range("Zone_client").ClearContents
  
   Sheets("Feuil2").Range("NumDevis").Value = Cells(CC.Row, 1).Value
   Sheets("Feuil2").Range("NomClient").Value = Cells(CC.Row, 2).Value
  
    Dim ws2 As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim i As Long
    Dim lines() As String
    Dim line As Variant
    
   'Cellule des quantités et P.U (4,5/7,8/10,11)
    Set ws2 = ThisWorkbook.Sheets("Feuil2")
    Set rng = Union(Cells(CC.Row, 3), _
                   Cells(CC.Row, 6), _
                    Cells(CC.Row, 9))
    
    i = 9
    For Each cell In rng
        If cell.Value <> "" Then
            lines = Split(cell.Value, Chr(10))
            For Each line In lines
                ws2.Cells(i, "A").Value = line
                i = i + 1
            Next line
            i = i + 1
        End If
    Next cell
      
   Sheets("Feuil2").Activate

   End With
  
End If
 

Pièces jointes

  • TestRemplissageDevis.xlsm
    34.1 KB · Affichages: 3

Phil69970

XLDnaute Barbatruc
@Claudinedu13

Désolé mais j'étais absent cet après midi et j'ai pas vu ta réponse tout de suite.

J'ai tout refait !! et simplifié pour que cela fonctionne

Et...... tout fonctionne mais jusqu'à quand ??? 🤔
==> Que quelqu'un tripote tout
🤣🤣

Remarques :
1) Quand tu modifies tout c'est normal que rien ne fonctionne après !!! o_O

==> Tu as rajouté 1 colonne donc le calcul est faut bien sur !!

Mon fichier du post #5
1706567354914.png


Ton fichier du post #16
1706567619880.png


Tu les trouves ressemblant !! :rolleyes:

2) Je confirmes tu adores ça !!! 🤔
Oui apparement j'aime les complications 🤣
Pourquoi ceci sinon pour le fun et aimer s’embêter
1706566556610.png

Ceci n'est t'il pas plus simple ?

1706566705662.png
 

Pièces jointes

  • Copie Fact-Devis V2.xlsm
    404.4 KB · Affichages: 5

Claudinedu13

XLDnaute Nouveau
@Phil69970

"Et...... tout fonctionne mais jusqu'à quand ??? 🤔
==> Que quelqu'un tripote tout
🤣🤣"

Ah de bon matin, j'ai ri

🤣

Merci à toi, cet aprem je teste l'impression avec un vrai devis... (hier justement je me demandais comment ne pas imprimer la feuille avec les boutons, je crois que tu m'as donné la réponse).

Bon espérons que mon fils ne me donne pas des devis sur plusieurs pages, sinon va falloir tout remodifier🙃

ça a l'air pas mal tout ça
😍
 

Phil69970

XLDnaute Barbatruc

Discussions similaires

Réponses
1
Affichages
222
Réponses
0
Affichages
196

Statistiques des forums

Discussions
312 803
Messages
2 092 250
Membres
105 316
dernier inscrit
cyrille225