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

 

[Phil69970]

Bonjour @Claudinedu13

Et ceci ne serait pas plus simple ?

 

[Claudinedu13]

Bonjour @Claudinedu13

Et ceci ne serait pas plus simple ?

Regarde la pièce jointe 1189424

Hello @Phil69970
Oui beaucoup plus simple je vais essayer cette solution
Pourquoi je pars toujours dans du compliqué ?

 

[Claudinedu13]

Bonjour @Phil69970
Encore 2 petit soucis pour moi,
1/ Pour la colonne 6(F) si c'est une donnée multiligne , il n'y a que la 2 ème ligne qui s'affiche dans ma feuil2.
2/ Dans ma feuil2 la hauteur de ligne reste étendu même si elle reçoit juste une ligne.
Merci

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
   Sheets("Feuil2").Range("A9").Value = Cells(CC.Row, 3).Value
   Sheets("Feuil2").Range("E9").Value = Cells(CC.Row, 4).Value
   Sheets("Feuil2").Range("F9").Value = Cells(CC.Row, 5).Value
   Sheets("Feuil2").Range("A11").Value = Cells(CC.Row, 6).Value
   Sheets("Feuil2").Range("E11").Value = Cells(CC.Row, 7).Value
   Sheets("Feuil2").Range("F11").Value = Cells(CC.Row, 8).Value
   Sheets("Feuil2").Range("A13").Value = Cells(CC.Row, 9).Value
   Sheets("Feuil2").Range("E13").Value = Cells(CC.Row, 10).Value
   Sheets("Feuil2").Range("F13").Value = Cells(CC.Row, 11).Value
      
   Sheets("Feuil2").Activate

   End With
  
End If

End Sub

 

[Phil69970]

Bonjour @Claudinedu13

Je te propose ce fichier

J'ai commenté le code et rajouté un bouton pour le fun

 

[Claudinedu13]

Bonjour @Claudinedu13

Je te propose ce fichier

J'ai commenté le code et rajouté un bouton pour le fun

Génial merci beaucoup @Phil69970

 

[Claudinedu13]

bonjour @Phil69970
J'ai avancé dans la mise en place de ton code , j'ai juste un problème, quand on a plusieurs descriptions longues, ça décale le bas de page sur une deuxième feuille. J'ai laissé la feuil test qui déborde (devis n°5)
Je ne sais pas comment rectifier ça, tu as une idée ?

 

[Phil69970]

Bonjour @Claudinedu13

Quelques remarques
1) Pourquoi tu décales de 8 lignes le devis par rapport à mon fichier ?

Ton fichier

Mon fichier

2) Pourquoi vouloir à tout prix mettre des lignes pour délimiter ce que les bordures excel fait très bien

3) Pourquoi vouloir sauter une ligne entre chaque description cela limite ton devis de moitié

4) Quand on fournit un fichier il doit être représentatif

C'est quoi représentatif ?
- représentatif, même organisation des lignes et des colonnes, mêmes libellés, même nom des TS et même nom d'en-tête , mêmes noms de feuilles...
- anonymisé, pas de données personnelles réelles tels nom, n° sécu, adresse ... remplacé par Nom1, Nom2 etc ....
- simplifié, une quinzaine de lignes reproduisant l'ensemble des différents cas envisageables (Avec le résultat souhaité éventuellement)

Si cela fonctionne sur le fichier fourni et pas sur le vrai fichier c'est qu'il n'est en rien représentatif ou que tu n'as pas su transposer ce qui devrait être un simple copier coller du code.

TS = Tableaux Structuré

Et visiblement tu as 1 TS dans la feuille Liste_Devis

Quand il y a un ou des TS on écrit le code pour un ou des TS et c'est pour cela qu'il faut un fichier représentatif c'est pas pour le fun mais bien pour écrire le bon code !!!

Donc fournis un fichier représentatif ...... cela évite de recommencer à chaque fois le fichier et de perdre son temps !!!

j'ai l'impression que tu aimes bien te compliquer la vie
Pourquoi faire simple quand on peut faire compliquer

 

[Claudinedu13]

Bonjour @Claudinedu13

Quelques remarques
1) Pourquoi tu décales de 8 lignes le devis par rapport à mon fichier ?

Ton fichier
Regarde la pièce jointe 1189530

Mon fichier
Regarde la pièce jointe 1189531

2) Pourquoi vouloir à tout prix mettre des lignes pour délimiter ce que les bordures excel fait très bien

3) Pourquoi vouloir sauter une ligne entre chaque description cela limite ton devis de moitié

4) Quand on fournit un fichier il doit être représentatif

C'est quoi représentatif ?
- représentatif, même organisation des lignes et des colonnes, mêmes libellés, même nom des TS et même nom d'en-tête , mêmes noms de feuilles...
- anonymisé, pas de données personnelles réelles tels nom, n° sécu, adresse ... remplacé par Nom1, Nom2 etc ....
- simplifié, une quinzaine de lignes reproduisant l'ensemble des différents cas envisageables (Avec le résultat souhaité éventuellement)

Si cela fonctionne sur le fichier fourni et pas sur le vrai fichier c'est qu'il n'est en rien représentatif ou que tu n'as pas su transposer ce qui devrait être un simple copier coller du code.

TS = Tableaux Structuré

Et visiblement tu as 1 TS dans la feuille Liste_Devis

Quand il y a un ou des TS on écrit le code pour un ou des TS et c'est pour cela qu'il faut un fichier représentatif c'est pas pour le fun mais bien pour écrire le bon code !!!

Donc fournis un fichier représentatif ...... cela évite de recommencer à chaque fois le fichier et de perdre son temps !!!

j'ai l'impression que tu aimes bien te compliquer la vie
Pourquoi faire simple quand on peut faire compliquer

Re,

Tout d'abord merci pour le temps que tu me consacres.

1/ Par rapport au classeur précédent, celui ci est bien un fichier représentatif mais j'ai enlevé simplement les données "sensibles" , de la ligne 1 à 9 normalement il y a les renseignements société de mon fils (logo etc).

2/ Pour les bordures je n'ai pas bien compris?

3/ Avec les sauts de lignes je trouve que le devis est plus clair.

Le fichier est compromis ou ça fonctionne ?

Oui apparement j'aime les complications

 

[Phil69970]

@Claudinedu13

2/ Pour les bordures je n'ai pas bien compris?

je parle de ses lignes que j’enlève à chaque fois et que tu remets à chaque fois !!!

Le fichier est compromis ou ça fonctionne ?

4) Quand on fournit un fichier il doit être représentatif

TS = Tableaux Structuré

Et visiblement tu as 1 TS dans la feuille Liste_Devis

Si comme tu as un ou des TS comme je vois sur l'image le fichier fonctionnera pas ou mal

Donc fournis un fichier représentatif ...... cela évite de recommencer à chaque fois le fichier et de perdre son temps !!!

Oui apparement j'aime les complications

Je confirme

 

[Claudinedu13]

@Claudinedu13


je parle de ses lignes que j’enlève à chaque fois et que tu remets à chaque fois !!!

Regarde la pièce jointe 1189532



Si comme tu as un ou des TS comme je vois sur l'image le fichier fonctionnera pas ou mal




Je confirme

Les lignes c'est mon fils (plus compliqué que moi) qui a crée son devis comme ça à la base, il y tient à ses lignes
Pour le TS, j'avais mis mon fichier liste devis sous forme de tableau, puis je l'avais converti en plage normal, d'où l'apparence de "tableau".
J'apprends sur le tas c'est pour ça que je fais beaucoup de bêtises

 

[Phil69970]

@Claudinedu13

1)

il y tient à ses lignes

Tu devrais lui apprendre à s'en passer car complètement inutile et identique aux bordures excel sans les tracas car il fut tout réaligner si déplacement de colonnes

2)

je l'avais converti en plage normal, d'où l'apparence de "tableau".

Donc tu n'as pas de tableau

3)

3/ Avec les sauts de lignes je trouve que le devis est plus clair.

Cela ne sert à rien sauf à diminuer le nombre de lignes du devis par 2 et se prendre éventuellement la tête.

4) Si j'ai bien compris les 9 ères lignes servent aux logos et coordonnées diverses de la Sté etc....

Merci de me confirmer ces points .....

 

[Claudinedu13]

@Claudinedu13

1)

Tu devrais lui apprendre à s'en passer car complètement inutile et identique aux bordures excel sans les tracas car il fut tout réaligner si déplacement de colonnes

2)

Donc tu n'as pas de tableau

3)

Cela ne sert à rien sauf à diminuer le nombre de lignes du devis par 2 et se prendre éventuellement la tête.

4) Si j'ai bien compris les 9 ères lignes servent aux logos et coordonnées diverses de la Sté etc....

Merci de me confirmer ces points .....

1/ je vais lui expliquer , mais tête dur le petit de 31 ans

2/ ça ressemble à un tableau mais ce n'est pas un TS

3/ indécise sur ce point

4/ Oui c'est bien ça, et vu la grandeur du logo que veut le fiston je ne peux pas réduire.

Merci

 

[Phil69970]

1) je peux par macro supprimer ces cochonneries inutiles !!!
2) c'est donc comme le canada dry
3) Je décide à ta place
4) le logo peux toujours être rapetissé mais je lui laisse les 9 ères lignes

Remarque ==> 9 lignes de logo + 1 ligne sur 2 vide cela ne laisse pas beaucoup de place au boulot !!!
C'est plutôt une page de pub plutôt qu'un devis ......

Es tu d'accord ?

 

[Claudinedu13]

1) je peux par macro supprimer ces cochonneries inutiles !!!
2) c'est donc comme le canada dry
3) Je décide à ta place
4) le logo peux toujours être rapetissé mais je lui laisse les 9 ères lignes

Remarque ==> 9 lignes de logo + 1 ligne sur 2 vide cela ne laisse pas beaucoup de place au boulot !!!
C'est plutôt une page de pub plutôt qu'un devis ......

Es tu d'accord ?

oui d'accord avec toi