Re : l’objet invoqué s'est déconnecté de ses clients
Bonjour tototiti2008, Bonjour fhoest, Bonjour néné,
je doit coller ce code dans un module et supprimer la page ?
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, 7)) + 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, ""))
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