kNouveau venukartiInscrit le :07/08/2015Dernière activité :07/08/2015 à 19:09Version d'Excel :2010Messages1Votes0Fichiers0Téléchargements0SujetsMessagesStatistiquesVotes reçus Messages postés par kartiDateAuteur du sujetSujetExtrait du message07/08/2015 à 18:54GuscMacro pour modifier les hauteurs de certaines lignesEssai ce code rectifié Sub HauteurLigne() 'dans plage sélectionnée Dim Rep, Cel As Range Rep = InputBox("Hauteur ligne(s) ?") If Rep = "" Or Rep = 10 Or Rep = 8 Then Exit Sub For Each Cel In Selection.Rows If Cel.RowHeight <> 10 And Cel.RowHeight <> 8 Then Cel.RowHeight = Rep End If Next...Forums