Copier une ligne avec mise en forme vba
theblaisyblaise
Messages postés
2
Statut
Membre
-
theblaisyblaise Messages postés 2 Statut Membre -
theblaisyblaise Messages postés 2 Statut Membre -
Bonjour,
Je suis en train de réaliser un tableau sur excel 2003 pour mon passage d'examen et j'aimerais optimiser un peu le truc. J'ai trouvé un code vba pour copier la ligne et l'insérer au dessus, mais les listes incluses dans certaines cellules ne se copient pas. Pourriez-vous m'indiquer la démarche s'il-vous plaît ? Je vous remercie d'avance et vous souhaite une bonne après-midi
Je suis en train de réaliser un tableau sur excel 2003 pour mon passage d'examen et j'aimerais optimiser un peu le truc. J'ai trouvé un code vba pour copier la ligne et l'insérer au dessus, mais les listes incluses dans certaines cellules ne se copient pas. Pourriez-vous m'indiquer la démarche s'il-vous plaît ? Je vous remercie d'avance et vous souhaite une bonne après-midi
Sub Bouton3_QuandClic()
Sheets("sdp").Range("A4").Select
ActiveCell.EntireRow.Insert Shift:=xlDown
Sheets("sdp").Range("A4:I4").Select
Selection.Borders.Weight = xlThin
End Sub
2 réponses
-
Bonjour
mais les listes incluses dans certaines cellules ne se copient pas ???
Peut-être :Sub Bouton3_QuandClic() Sheets("sdp").Rows(4).Insert Shift:=xlDown Sheets("sdp").Rows(5).Copy Sheets("sdp").Rows(4) Sheets("sdp").Range("A4:I4").Borders.Weight = xlThin On Error Resume Next Sheets("sdp").Range("A4:I4").SpecialCells(xlCellTypeConstants, _ xlNumbers + xlTextValues + xlLogical + xlErrors).ClearContents On Error GoTo 0 End Sub -
oui elles ne se copient pas. C'est à dire qu'en ligne 4 j'ai mes cellules pré formatés, dont certaines contiennent des listes de choix. Quand je clique sur mon bouton il ajoute bien une nouvelle ligne, mais je n'ai pas les listes dans les cellules appropriées, ni les formules d'ailleurs. J'ai besoin de copier tout ce contenu pour optimiser mon tableau. Votre solution fonctionne. Merci beaucoup !
