EXCEL - Copier et coller une ligne en fonction d'une cellule. Fermé

Question

Bonjour, 

Je suis actuellement sur un travail de création d'un système de devis à l'aide du logiciel Microsoft Excel 2013. Pour celui-ci, j'ai organisé les différents éléments à la vente sur différentes feuilles. Par exemple, tous les objets d'un tel type (admettons des agrafeuses) se retrouverons sur une feuille dédiée nommée "AGRAFEUSES", les clés USB sur une autre feuille nommée "CLEUSB" et ainsi de suite.
Sur chacune de ces feuilles se trouvent plusieurs éléments, comme les agrafeuses bleues, roses, ou les clés USB de 16, 32 ou 64 Go. Devant chacune des feuilles se trouve une colonne Quantité dans laquelle on entrera un nombre correspondant au nombre d'items voulus.
En admettant que la ligne 1 de la feuille "AGRAFEUSES" représente les agrafeuses de couleur bleue :
- A1 est la cellule dans laquelle rentrer la quantité voulue,
- B1 la description de l'objet,
- C1 le prix à l'unité de l'objet,
- D1 le prix en fonction de la quantité voulue.
Et ceux de la sorte pour la ligne 2, 3, 4 etc..

Sur ce classeur se trouve une feuille prénommée "DEVIS", dans laquelle je souhaiterais que se situe une copie de tous les éléments sélectionnés.
Mon idée était la suivante : 
- Trouver le moyen de détecter dans les colonnes A la présence une cellule contenant un nombre supérieur ou égal à 1. 
- Faire en sorte que les lignes détectées soit copiées, puis collées à la suite sur la feuille nommée "DEVIS".
Par exemple : 
Admettons qu'une agrafeuse soit à 3€ pièce. Si l'on sélectionne 2 dans la colonne A1, nous aurons dans B1 la description (donc cellule inchangée), dans C1 3€ et donc dans D1 6€ (A1*C1, soit 2*3). Aucun problème jusque là.
Maintenant, il faudrait que la cellule A1 soit détectée comme > ou = à 1 et que la ligne 1 soit entièrement copiée et collée sur la feuille du classeur nommée "DEVIS" dans mon cas à partir de la ligne 41. L'idéal serait que dans l'éventualité où plusieurs éléments seraient choisis, ceux -ci apparaîtraient à la suite les uns des autres. Si cette option semble impossible, est-il possible que chaque ligne possède une ligne associée dans la feuille "DEVIS" ? (Ex : La ligne 1 de la feuille "AGRAFEUSES" est associée à la ligne 41 de la feuille "DEVIS", de telle façon, si la cellule A1 de "AGRAFEUSES"  contient un nombre > ou = à 1, elle se copiera à la ligne 41 de "DEVIS".  

J'avais pour cela pensé à la fonction SI, mais ne la maîtrisant pas, je ne sais comment procéder. De plus, celle-ci ne me semble pas la solution la plus adaptée et je pense alors au VBA. Mais encore une fois, je ne sais alors comment procéder.
Je tiens absolument à ce système avec la feuille "DEVIS", car il me suffirait alors de faire un PDF de cette feuille pour obtenir un devis propre. Même si quelques retouches seraient nécessaires, le système avec lignes dédiées me conviendrait parfaitement.

En espérant avoir été le plus clair possible, je reste tout de même à l'écoute de la moindre de vos questions (et/ou réponses) ! 
Je m'en remets donc à vous Ô Maîtres d'Excel et du VBA, puissiez-vous m'aider dans ma quête ! :D

Merci d'avance et bien à vous, 
Polito. 

Configuration: Windows / Chrome 51.0.2704.106

pijaku · Answer

Bonjour,

Ton idée est bonne mais fortement incomplète.
Il faut également penser aux cas suivants :
> suppression d'une ligne de la feuille devis par remise à 0 d'une des lignes des autres feuilles
> modification d'une quantité.

Le code ci-dessous tient compte de cela.
Pour insérer le code dans ton classeur :
> Alt+F11 (>affichage fenêtre VBE)
> Double clic dans la fenêtre VBA-Project sur ThisWorkbook
> Copier/Coller le code ci-dessous dans la fenêtre centrale.
> Adapter le nom de la feuille. Ici : Const ShDEVIS As String = "Devis"
> fermer VBE et tester.

Option Explicit

Dim Ligne As Integer
    Dim Trouve As Range
    Const ShDEVIS As String = "Devis" ' ADAPTER : le nom EXACT de la feuille devis

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
        If Sh.Name = ShDEVIS Or Target.Column <> 1 Or Target.Cells.Count > 1 Then Exit Sub
        Select Case Target.Value
            Case Is >= 1
                Call AddToDevis(Target.Resize(1, 4))
            Case ""
                Call DeleteToDevis(Target.Resize(1, 4))
            Case Else
                MsgBox "Ne devrait jamais se produire"
        End Select
    End Sub
    
    Private Sub AddToDevis(Rng As Range)
        With Sheets(ShDEVIS)
            Set Trouve = .Columns(2).Cells.Find(Rng.Cells(1, 2))
            If Not Trouve Is Nothing Then
                Ligne = Trouve.Row
            Else
                Ligne = IIf(.Range("A41") = "", 41, .Range("A40").End(xlDown).Row + 1)
            End If
            .Range("A" & Ligne & ":D" & Ligne).Value = Rng.Value
        End With
    End Sub
    
    Private Sub DeleteToDevis(Rng As Range)
        With Sheets(ShDEVIS)
            Set Trouve = .Columns(2).Cells.Find(Rng.Cells(1, 2))
            If Not Trouve Is Nothing Then
                Ligne = Trouve.Row
            Else
                Exit Sub
            End If
            .Rows(Ligne).Delete
            Ligne = IIf(.Range("A41") = "", 41, .Range("A" & Ligne).End(xlDown).Row + 1)
            .Rows(Ligne).Insert Shift:=xlDown
        End With
    End Sub

Ci-joint un fichier exemple 

Les suppressions de quantité devront être faites une par une pour supprimer dans la feuille devis la(es) ligne(s) correspondante(s).

Avant, j'arrivais jamais à finir mes phrases... mais maintenant je

EXCEL - Copier et coller une ligne en fonction d'une cellule.

1 réponse

Discussions similaires