Bonjour à la communauté Excel Pratique
Je viens vous demander de l'aide après 2 jours à parcourir la toile pour trouver solution mais sans succès
Je n'ai aucune notion de VBA et j'ai besoin juste d'un code pour une petite action toute simple!
je souhaite simplement créer une macro pour dupliquer mon bon de commande et que celui ci s'incrémente automatiquement en M3 (001,002 etc) et que le nom de l'onglet s'incrémente aussi BC 001, BC 002 etc.
j'ai essayé 2solutions mais sans succès.. elles sont en module 1et 2 dans le fichier
module 1: cela me crée 5 feuille, mais je souhaite juste créer des feuilles une à une..
Sub Dupliquer()
Dim i As Integer
For i = 1 To 5
Sheets(i).Copy after:=Sheets(i)
If i < 9 Then
Sheets(i + 1).Range("M3") = Sheets(i + 1).Name
Else
Sheets(i + 1).Name = "0" & (i + 1)
Sheets(i + 1).Range("M3") = Sheets(i + 1).Name
End If
Next i
End Sub
Module 2 : elle eut marché , mais en ressayant j'ai un code erreur 13 j'avais bien une nouvelle feuille, mais quand je créait une seconde j'avais le code erreur 1004 .
Sub DupliquerFeuille()
Dim Num As Integer
['BC 0'!M3] = ['BC 0'!M3] + 1
ActiveSheet.Copy after:=ActiveSheet
With ActiveSheet
.Name = "BC 0" & Num + 1
.[M3] = Num + 1
End With
End Sub
Voilà j'espère ne pas trop vous outrer avec mes codes bricolés
Je vous mets en PJ mon fichier. Merci d'avance pour l'aide précieuse !
Lowick