erreur de copie

Re : erreur de copie

Rudy

dim NomFeuil as string'déclare la variable nomfeuil
'lui attribue le contenu de Sheets("nvl commande").Range("A" & Lg).Text
NomFeuil=Sheets("nvl commande").Range("A" & Lg).Text
'nomfeuil est le nom de la feuille
.Name = NomFeuil

Re : erreur de copie

bonjour a tous,
voici ce qui se passe
aprés avoir resolu le souci ci dessu le N° de commande et non plus le noms de l onglet ( il fait bien "bon de commande 11, bon de commande 12 ETC... ) c est au tours de la recupération du N° de commande de m embeter en revenent a 660001-000001 au lieu de continuer a inscrire comme il le faisait 660001-000008, 660001-000009 ETC...

j ai pas trouver encore la chose a modifier pour continuer le projet...

A+


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sh As Worksheet 'déclare la variable sh (SHeet)
Dim Lg As Long, cl As Byte ' Récupèrent les numéros de ligne et de colonne du double-clic

'si l'édition a lieu dans la 1ère cellule vide
Lg = Target.Row: cl = Target.Column
If cl = 1 And Target.Row = Range("A65536").End(xlUp).Row + 1 Then ' colonne A et 1ère cellule vide en colonne A



Cells(Lg, 1) = "bon de commande " & Val(Mid(Target.Offset(-1, 0), 17, 2)) + 1


Cells(Lg, 2) = Cells(Lg - 1, 2)
Cells(Lg, 2) = Replace(Cells(Lg - 1, 2), Right(Cells(Lg - 1, 2), 6), Format(Right(Cells(Lg - 1, 2), 1) + 1, "000000"))
Sheets("bon de commande 1").Copy before:=Sheets(Sheets.Count) 'copie l'onglet "Modèle" en premier
With ActiveSheet
.Name = Sheets("nvl commande").Range("A" & Lg) ' renomme l'onglet copié avec la valeur éditée
.Range("E1").Value = Sheets("nvl commande").Range("B" & Lg).Value ' recopie le n° de réclamation
.Range("G1") = Date ' Copie la date systeme
End With
Else ' sinon sort de la procédure
Cancel = True
End If
End Sub