copié onglet avec changement de nom

[zumye]

bonjour
quel programme vba permet de copier un onglet et de le renomer avec le même nom avec préfix inv

ex: onglet A,B,C,D
J'appui sur un bouton et il me demande "quel onglet copier" ex: j'ecris B et celui sera copié et renommé Binv et se important se placera directement derriere onglet B

merci

 

[porcinet82]

Re : copié onglet avec changement de nom

Salut,

Essais avec le code suivant :

Option Compare Text
Sub test()
Dim rep$, k%, bool As Boolean
bool = False
rep = InputBox("Quel onglet voulez-vous copier ?")
For k = 1 To Sheets.Count
    If Sheets(k).Name = rep Then
        bool = True
        Exit For
    End If
Next k
If bool = True Then
    Sheets(rep).Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = rep & "inv"
Else
    MsgBox "L'onglet tapé n'existe pas !!!", vbCritical + vbOKOnly, ""
End If
End Sub

@+

 

[zumye]

Re : copié onglet avec changement de nom

MERCI CA MARCHE MAIS LE PB EST QU IL NE SE PLACE PAS DIRECTEMENT DERRIERE ONGLET DEMANDE EX A,B,Binv,C
LA IL SE MET COMME CECI A,B,C,Binv

 

[Pierrot93]

Re : copié onglet avec changement de nom

Bonjour Zumiye, Romain🙂

modifies peut être la partie de code ci dessous :

If bool = True Then
Sheets(rep).Copy After:=Sheets(rep)
    ActiveSheet.Name = rep & "inv"
Else

bon après midi
@+

 

[zumye]

Re : copié onglet avec changement de nom

Grand Merci Ca Marche Tres Bien