Copier une ligne avec mise en forme vba
theblaisyblaise
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
theblaisyblaise Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
theblaisyblaise Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Copier une ligne avec mise en forme vba
- Mise en forme conditionnelle excel - Guide
- Mise en forme tableau word - Guide
- Partager photos en ligne - Guide
- Mètre en ligne - Guide
- Comment copier une vidéo youtube - Guide
2 réponses
Bonjour
mais les listes incluses dans certaines cellules ne se copient pas ???
Peut-être :
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 !