Michel68000
XLDnaute Junior
Bonjour à tous,
Je sèche sur un problème qui je le sais sera facile pour certains. Je copie quatre cellules d'une feuille par le biais d'un bouton sur une autre feuille, tout marche bien sauf qu'en copiant cela copie aussi la mise en forme (couleur et cellule déroulantes, j'aimerais juste faire migrer les valeurs contenues en feuil1. A3:E3.
Voilà le code en question:
Private Sub CommandButton1_Click()
With Sheets("Données")
LigneDest = .Range("A" & .Rows.Count).End(xlUp).Row + 1
Range("B3:E3").Copy Destination:=.Range("A" & LigneDest)
End With
Range("B3:E3").ClearContents
End Sub
Si quelqu'un à une idée je suis preneur.
Salutations
Je sèche sur un problème qui je le sais sera facile pour certains. Je copie quatre cellules d'une feuille par le biais d'un bouton sur une autre feuille, tout marche bien sauf qu'en copiant cela copie aussi la mise en forme (couleur et cellule déroulantes, j'aimerais juste faire migrer les valeurs contenues en feuil1. A3:E3.
Voilà le code en question:
Private Sub CommandButton1_Click()
With Sheets("Données")
LigneDest = .Range("A" & .Rows.Count).End(xlUp).Row + 1
Range("B3:E3").Copy Destination:=.Range("A" & LigneDest)
End With
Range("B3:E3").ClearContents
End Sub
Si quelqu'un à une idée je suis preneur.
Salutations