XL 2013 DUPLIQUER LIGNE ET ONGLET VBA

bredeche

XLDnaute Occasionnel
BONJOUR
je me permet de solliciter plusieurs forum sur mon problème ci dessous "je tenais simplement vous informer car ci ma été reprocher dernierement " ce que je peux comprendre mais sur les 3 sites il y a Différente compétence encore merci a vous et a eux

J'ai une macro dans mon onglet "00-recap" qui autorise a dupliqué une ligne sélectionné x fois avec les donnée mais je voudrais aussi dupliquer l'onglet associer et l' indicé avec une lettre

VB:
Sub test()
'Updateby Extendoffice 20160616
    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Nombres de ligne à copier", "macro copie de lignes", , , , , , 1)
    If xCount < 1 Then
        MsgBox "Entre un nombre superieur a 0", vbInformation, "macro copie de lignes"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub
exemple LIGNE sélectionner COR_01_19 nom idem que l'onglet
la macro demande nombre de ligne exemple x2 la ligne prend le même non mais je voudrais quel indice avec une lettre
exemple
COR_01_19 A
COR_01_19 B
Et que mon onglet COR_01_19 soit aussi duplique avec les donne et soit renommé comme mes lignes
COR_01_19 A
COR_01_19 B

je vous joins mon fichier te mon code


merci de votre aide
 

Fichiers joints

Dernière édition:

Patrice33740

XLDnaute Occasionnel
Bonjour,

Poster sur plusieurs forums, sans en informer personne, est un manque de respect envers tous les bénévoles qui te consacrent de leur temps pour résoudre ton problème !
N'étant pas au courant, ils perdent leur temps sans connaître les réponses, souvent très intéressantes, des autres forums.
Pendant ce temps là, ils pourraient répondre à d'autres personnes qui eux aussi ont besoin d'aide.

Patrice
 

bredeche

XLDnaute Occasionnel
Bonjour,

Poster sur plusieurs forums, sans en informer personne, est un manque de respect envers tous les bénévoles qui te consacrent de leur temps pour résoudre ton problème !
N'étant pas au courant, ils perdent leur temps sans connaître les réponses, souvent très intéressantes, des autres forums.
Pendant ce temps là, ils pourraient répondre à d'autres personnes qui eux aussi ont besoin d'aide.

Patrice
Désolée mais je poste sur 3 différent forum pour avoir plusieurs avis tout simplement
je ne vois pas de mal a cela
dorénavant je préviendrais que le post est diffuser sur d'autre forum
je m'en excuse
encore merci de votre aide
 

Robert

XLDnaute Barbatruc
Bonjour le fil, bonjour le forum,

Si le nom des onglets est EXACTEMENT identique aux valeurs en colonne B de l'onglet 00-Recap, le code ci-dessous devrait fonctionner :

VB:
Sub test()
'Updateby Extendoffice 20160616
Dim xCount As Integer
Dim col As Integer
Dim O As Worksheet

On Error Resume Next
Set O = Worksheets(Cells(ActiveCell.Row, "B").Value)
If Err <> 0 Then
    Err.Clear
    MsgBox "La colonne B de la cellule sélectionnée ne contient pas un nom d'onglet existant !. Opération avortée."
    Exit Sub
End If
On Error GoTo 0
LableNumber:
xCount = Application.InputBox("Nombres de ligne à copier", "macro copie de lignes", , , , , , 1)
If xCount < 1 Then
    MsgBox "Entre un nombre superieur a 0", vbInformation, "macro copie de lignes"
    GoTo LableNumber
End If
col = 1
For x = 1 To xCount
    ActiveCell.EntireRow.Copy
    ActiveCell.Offset(x, 0).EntireRow.Insert Shift:=xlDown
    Cells(ActiveCell.Offset(x, 0).Row, "B").Value = ActiveCell.Value & " " & Split(Columns(col).Address(0, 0), ":")(0): col = col + 1
Next x
Application.CutCopyMode = False
col = xCount
For x = xCount To 1 Step -1
    O.Copy after:=O
    ActiveSheet.Name = O.Name & " " & Split(Columns(col).Address(0, 0), ":")(0): col = col - 1
Next x
End Sub
 

vgendron

XLDnaute Barbatruc
Bonjour tous..

Autre point @bredeche
Lorsque tu postes une question et qu'une réponse est apportée.. la moindre des choses serait de faire un retour ...
je viens de voir tes 5 ou 6 posts d'affilé ou systématiquement. il y a ta question, une réponse et ....rien.....
 

Robert

XLDnaute Barbatruc
Bonsoir le fil, bonsoir le forum,

J'avoue Vgendron que je ne m'étais pas rendu compte du fait. Sinon je n'aurais même pas répondu...
 

Temjeh

XLDnaute Accro
Bonsoir

Une habitude!

Elle n'a pas suivi ce poste.
J'attend TJRS !

A+
 

Robert

XLDnaute Barbatruc
Pas bien grave, avec la nouvelle version d'Excel je dispose de beaucoup plus de lignes pour y rentrer les TDC...
 

Discussions similaires


Haut Bas