Re : Insertion de cellules avec une mise en forme
J'ai trouver comment faire en inserer le code pr inserer le nombre de ligne et surtout il faut sélectionner toute la ligne et non pas que la cellule.
Ci dessus nouveau code, ce qui pourrait etre bien pr éviter tt probleme c'est de faire un message d'erreur si il n'y a qu'une cellule sélectionné, est ce que tu sais comment faire?
Merci
Sub Copie_Format()
Dim DebCel As String
'DebCel = InputBox("Déterminez la cellule supérieure gauche", "Cellule de Départ", "A27")
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
DebCel = ActiveCell.Address
Range("A10:H16").Copy
Range(DebCel).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
Range("A10").Select
End Sub