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

[Claudinedu13]

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 ...

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

 

[Claudinedu13]

J'ai repris la feuille Test et enlevé les lignes , j'ai mis un pied de page parce qu'il y en a un dans le fichier original, plus de saut de ligne entre les descriptions, ça ne change pas grand chose ...

 

[Phil69970]

@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 !!!

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

Mon fichier du post #5

Ton fichier du post #16

Tu les trouves ressemblant !!

2) Je confirmes tu adores ça !!!

Oui apparement j'aime les complications

Pourquoi ceci sinon pour le fun et aimer s’embêter

Ceci n'est t'il pas plus simple ?

 

[Claudinedu13]

@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]

@Claudinedu13

hier justement je me demandais comment ne pas imprimer la feuille avec les boutons, je crois que tu m'as donné la réponse

==>Tu délimites la zone imprimable ....

Bon espérons que mon fils ne me donne pas des devis sur plusieurs pages

==> Heureusement que j'ai supprimé une ligne sur deux ......