bonsoir le forum un petit code ci-dessous me pose un soucis, il ne copie que la cellule DN2 et pas DO2 DP2 DQ2 ou est le problème ?
Merci de votre rèponse et bonne nuit a tous
A+ M
Sub reference_titi_Click()
res = MsgBox("voulez vous validez?", vbYesNo)
If res = vbYes Then
With Sheets("saisie quantite")
If .FilterMode = True Then .ShowAllData
End With
ligne = Range("DN6550").End(xlUp).Row
Range("DN" & ligne + 1).Value = Range("DN2Q2").Value
Range("DN2Q2").ClearContents
Je pense que MARION veux copier la plage et non toutes les cellules en 1.
Si tu veux copier la plage essai plutot comme cela.
Sub reference_titi_Click()
res = MsgBox("voulez vous validez?", vbYesNo)
If res = vbYes Then
With Sheets("saisie quantite")
If .FilterMode = True Then .ShowAllData
End With
ligne = Range("DN6550").End(xlUp).Row
'Deux cas si tu ne veux pas copier le format des cellules utilise ces 2 lignes de codes
Range("DN2Q2").Copy
Range("DN" & ligne + 1).PasteSpecial xlPasteValues
'si tu veux copier le format utilise cette ligne de code
Range("DN2Q2").Copy Destination:=Range("DN" & ligne + 1)