XL 2013 DUPLIQUER LIGNE ET ONGLET VBA

[bredeche]

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

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

 

[Patrice33740]

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]

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

 

[bredeche]

desole ne plus suivre ce post car je l'ai paster sur un autre forum tout mes excuses

 

[Robert]

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 :

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]

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]

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]

Bonsoir

Une habitude!

XL 2013 - insertion d'une image dans un texboxde mon formulaire

bonjour j'ai ecris le codesuivant pour que l'image que je vais cherche dans mon repertoire s'affiche dans la fennetre de mon textboximage mais cela me mais que le text Private Sub CommandButton1_Click() With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = False...

www.excel-downloads.com

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

A+

 

[Robert]

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

 

[vgendron]

@Robert
j'ose pas demander ce qu'est un TDC.. mais j'ai bien une petite idée :-D