Re : Problème code VBA
Bonjour SLIJACK.
J’ai regardé votre code, en faite la variable ligne n’est pas définit ce qui génère un bug dans le code.
Ligne est en faite la ligne A15 :F15 est il faut définir cette plage en plage nommé.
J’ai remplacé ligne par :
Range(“A15 :F15“).copy ont aurait aussi pu écrire Range(cells(15,1) ,cells(15,6)).copy
A présent votre macro fonctionne
Le code :
Sub EnregDevis()
'Range("ligne").Copy ' Cellule A15:F15
Range("A15:F15").Copy ' Il faut défifinir ligne en plage nomée et définir la variable
With Sheets("BibPerso")
.Range("A65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
Range("A15") = Range("A15") + 1 'incrémente le N° d'ordre
Range("b15") = Range("b15") + 1 'incrémente le N° ouvrage
Range("b19:d19").ClearContents
Range("B22:F49").ClearContents
Range("H22:H49").ClearContents
End Sub
Au plaisir de vous lire et vous répondre.
Laurent