Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Insertion ligne d'un onglet vers un autre

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion freeze82
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

freeze82

XLDnaute Nouveau
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
 

Pièces jointes

Trier par date Trier par votes
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.

Code: 
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
 
Vote positif 0 Vote négatif
Re : Insertion ligne d'un onglet vers un autre

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

Code: 
            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
 
Vote positif 0 Vote négatif
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 ?

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

Grand merci

Freeze
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Insertion ligne d'un onglet vers un autre

Alors fais comme ceci :
Code: 
            On Error Resume Next
            Set r = Application.InputBox("Sélectionner la ligne d'insertion.", Type:=8)
            If r Is Nothing Then Exit Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

L
  • Question Question
XL 2021 saisie automatique d'un onglet à un autre
Réponses
2
Affichages
127
LuckyLuciano
L
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
294
AtTheOne
O
  • Question Question
XL 2013 Recopier automatique des valeurs d'un onglet vers un autre onglet selon critère
Réponses
2
Affichages
645
olivieroma
O
Y
  • Question Question
Microsoft 365 VBA - Basculer des lignes d'onglet en onglet selon un critère
2
Réponses
18
Affichages
937
yanus
Y
A
  • Question Question
Microsoft 365 créer un lien vers une cellule dont la ligne est fluctuante
Réponses
3
Affichages
144
AtTheOne
  • Résolu(e)
Microsoft 365 Extraction d'informations sur différents onglets en partant d'une base de données
Réponses
7
Affichages
636
MBax
P
  • Question Question
Microsoft 365 Joindre un fichier PDF dans un mail + inclure date envoi du mail dans un autre onglet
Réponses
1
Affichages
586
kiki29
T
  • Résolu(e)
Microsoft 365 Créer un onglet pour chaque thème contenant les titres en doublons associés à ce thème
2
Réponses
25
Affichages
927
Toucan72
T
N
  • Question Question
XL 2016 Formule entre onglet et calendrier
2 3
Réponses
32
Affichages
2 K
Nicolas37
N
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
175
flc13090
J
  • Résolu(e)
XL 2021 Créer un lien hypertexte vers un onglet avec nom d'onglet variable
Réponses
5
Affichages
657
Julieneymery
J
J
  • Question Question
XL 2013 Boucle : copie valeur d'une table dans un autre onglet jusqu'à cellule non vide
Réponses
4
Affichages
452
jerome91
J
M
  • Question Question
Microsoft 365 Afficher les données d'un userform sur un autre userform
Réponses
3
Affichages
527
Manon71.
M
L
  • Résolu(e)
Microsoft 365 Retourner l'en-tête colonne correspondante à une quantité donnée dans une ligne
Réponses
4
Affichages
232
LegVal
L
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
484
sylvanu
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
686
Nel'
N
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
484
desto
D
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
263
AlCapone
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
2 K
NONO14
N
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
262
sebastien176
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…