rudy dehaudt
XLDnaute Occasionnel
bonjour a tous,
dans le code ci dessou il devrais placer le chiffre 660001-000001 quand je double clic mais arriver au N° 660001-0000011
il revient a 660001-000001 ??
quel paramêttre faut il modifier continuer la suite de chiffre ??
d avance merci
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) = "réclamation " & 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("reclamation 1").Copy After:=Sheets(Sheets.Count) 'copie l'onglet "Modèle" en dernier
With ActiveSheet
.Name = Sheets("nvl reclamation").Range("A" & Lg) ' renomme l'onglet copié avec la valeur éditée
.Range("E1").Value = Sheets("nvl reclamation").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
dans le code ci dessou il devrais placer le chiffre 660001-000001 quand je double clic mais arriver au N° 660001-0000011
il revient a 660001-000001 ??
quel paramêttre faut il modifier continuer la suite de chiffre ??
d avance merci
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) = "réclamation " & 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("reclamation 1").Copy After:=Sheets(Sheets.Count) 'copie l'onglet "Modèle" en dernier
With ActiveSheet
.Name = Sheets("nvl reclamation").Range("A" & Lg) ' renomme l'onglet copié avec la valeur éditée
.Range("E1").Value = Sheets("nvl reclamation").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
