Mettre toutes les bordures à une plage de cellules Le 27/05/2016 à 14:01JJawstMembre habituéMessages69Excel2013Inscrit25/04/2016 bonjour à tous,j'ai un tableau de taille variable et j'aimerais pouvoir mettre des bordures normal autour de toutes les cellules sélectionnées.pouvez vous m'aider ?JawstLe 27/05/2016 à 14:04AAtroMembre fidèleMessages299Excel2010 FRInscrit15/10/2013Bonjour :Une fois que tu as sélectionné tes cellules :Range(TA VARIABLE).Borders(xlDiagonalDown).LineStyle = xlNone Range(ta variable).Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End WithLe 27/05/2016 à 14:08JJawstMembre habituéMessages69Excel2013Inscrit25/04/2016merci beaucoup Le 27/05/2016 à 14:10AAtroMembre fidèleMessages299Excel2010 FRInscrit15/10/2013Si tout fonctionne comme tu le souhaite :Le 27/05/2016 à 22:50grisan29Membre impliquéMessages1'191Excel2013 pro FRInscrit26/01/2010EmploiARTISAN POSEURbonsoir atro, jawst et le forumtu eux simplifier le code en mettant juste cette ligne Range(ta variable).Borders.LineStyle = 1qui remplace toutes les autresLe 30/05/2016 à 08:49JJawstMembre habituéMessages69Excel2013Inscrit25/04/2016 merci grisan29en effet c'est beaucoup plus propre ^^Rechercher des sujets similaires à "mettre toutes bordures plage"ForumsExcel - VBAMettre toutes les bordures à une plage de cellules