XL 2013 Insertion ligne d'un onglet vers un autre

[freeze82]

Bonjour à tous,

J'ai une macro qui fonctionne à peu près comme je le souhaite.

Sur l'onglet "Base" je double clique sur des articles de la colonne D, cela ouvre une fenêtre qui permet de saisir une quantité.
Une fois cliqué sur OK, l'article est envoyé dans l'onglet "doc"

Les articles sont envoyés dans l'onglet "doc" après la dernière ligne remplie.

Serait-il possible de modifier le code pour pouvoir envoyer un article depuis l'onglet "Base" vers l'onglet "doc" en dessous de la cellule active de la colonne C sélectionnée ?

Par exemple, j'aimerais que l'article HIJ de l'onglet "BASE" soit envoyé sous l'article DEF dans l'onglet "doc".
Si dans l'onglet "doc" je sélectionne une autre cellule dans la colonne C, j'aimerais qu'un article puisse être ajouté sous la ligne sélectionnée. Pas systématiquement après la dernière ligne remplie.


Une grand merci à ceux qui pourront m'aider.

Freeze

 

[thebenoit59]

Re : Insertion ligne d'un onglet vers un autre

Bonjour Freeze82.

Je te propose une autre solution.
Après avoir entré ta quantité, un InputBox te demande de choisir la ligne où tu souhaites insérer tes données.
Une fois effectuée, on insère une nouvelle ligne et on exporte les valeurs.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Flag Then Exit Sub
    If Not Application.Intersect(Target, Range("Designation")) Is Nothing Then
        Dim Lg%, Rep$
        Dim r As Range
        With Sheets("doc")
            Lg = .Range("Nota").End(xlUp)(2).Row    '48 maxi
            If .Range("Nota").Row - Lg <= 5 Then
                 Application.CutCopyMode = False
                 .Rows(Lg).Copy
                 .Range(.Rows(Lg), .Rows(Lg + 5)).Insert
                 Application.CutCopyMode = False
                 MsgBox ("Insertion de 5 lignes")
            End If
            
            Rep = InputBox(ActiveCell & Chr(10) & Chr(10) & "Quantité ?")
            If Rep = "" Then Exit Sub
            .Activate
            Set r = Application.InputBox("Sélectionner la ligne d'insertion.", Type:=8)
            Lg = r.Row
            .Rows(Lg).EntireRow.Insert shift:=xlDown
            Target.Offset(0, 5) = Rep
            .Range("c" & Lg) = Target
            .Range("d" & Lg) = Target.Offset(0, 1)
            .Range("e" & Lg) = Target.Offset(0, 10)
            .Range("h" & Lg) = Target.Offset(0, 2)
            .Range("o" & Lg) = Target.Offset(0, 3)
            .Range("j" & Lg) = Target.Offset(0, 4)
            .Range("r" & Lg) = Target.Offset(0, 6)
            .Range("f" & Lg) = Rep
            .Activate
        End With
    End If
End Sub

 

[freeze82]

Re : Insertion ligne d'un onglet vers un autre

Un grand merci, c'est même mieux car l'utilisateur pourra prendre le temps de savoir où il veut insérer.
MERCI BEAUCOUP !!!!!

 

[freeze82]

Re : Insertion ligne d'un onglet vers un autre

Serait-il possible d'insérer uniquement les valeurs

            Target.Offset(0, 5) = Rep
            .Range("c" & Lg) = Target
            .Range("d" & Lg) = Target.Offset(0, 1)
            .Range("e" & Lg) = Target.Offset(0, 10)
            .Range("h" & Lg) = Target.Offset(0, 2)
            .Range("o" & Lg) = Target.Offset(0, 3)
            .Range("j" & Lg) = Target.Offset(0, 4)
            .Range("r" & Lg) = Target.Offset(0, 6)
            .Range("f" & Lg) = Rep
            .Activate

Dans certaines colonnes de l'onglet "doc" je souhaite garder les formules.
Avec cette macro, l'insertion de la ligne se fait très bien mais elle efface l'ensemble des cellules.

Merci

Freeze

 

[thebenoit59]

Re : Insertion ligne d'un onglet vers un autre

Alors tu peux remplacer la partie :

.Rows(Lg).EntireRow.Insert shift:=xlDown

Par

            .Rows(Lg).Copy
            .Rows(Lg).Insert Shift:=xlDown

 

[freeze82]

Re : Insertion ligne d'un onglet vers un autre

Super, merci beaucoup, ça fonctionne comme il faut.

Serait-il possible d'intégrer un exit sub dans le cas où on ne saisi pas de ligne ?

            Set r = Application.InputBox("Sélectionner la ligne d'insertion.", Type:=8)
            Lg = r.Row

Grand merci

Freeze

 

[thebenoit59]

Re : Insertion ligne d'un onglet vers un autre

Alors fais comme ceci :

            On Error Resume Next
            Set r = Application.InputBox("Sélectionner la ligne d'insertion.", Type:=8)
            If r Is Nothing Then Exit Sub

 

[freeze82]

Re : Insertion ligne d'un onglet vers un autre

Merci beaucoup !