Suppression de plusieurs lignes d'un tableau
Bonjour à tous,
Je suis débutant en vba et pour le moment j'ai toujours réussi à faire ce que je voulais en utilisant des tutos internet et les forums
Aujourd'hui je bloque sur quelque chose qui me parait pourtant simple mais mon code ne marche pas
Je voudrais simplement supprimer les lignes 5 à la dernière ligne utilisée (ligPleine) de mon tableau. j'ai donc écrit:
Dim ligPleine As Long
ligPleine = Sheets("Facturation").Range("B" & Rows.Count).End(xlUp).Row
Sheets("Facturation").Range("5:ligPleine").Delete Shift:=xlUp
mais ca ne marche pas
Si quelqu'un peut me dépanner !
merci beaucoup
Bonjour,
La référence est une chaine de caractères. Il faut faire comme ceci :
Sheets("Facturation").Range("5:" & ligPleine).Delete Shift:=xlUpCdlt,
Parfait merci beaucoup :)
Bonjour à tous, j'aurai une autre question
comment simplifier ces lignes en une seule
dim ligPlein2 as long
ligPlein2 = Sheets("Sorties").Range("B" & Rows.Count).End(xlUp).Row + 2
Cells(ligPlein2, "G").Interior.Color = RGB(160, 192, 128)
Cells(ligPlein2, "H").Interior.Color = RGB(160, 192, 128)
Cells(ligPlein2, "I").Interior.Color = RGB(160, 192, 128)
Cells(ligPlein2, "J").Interior.Color = RGB(160, 192, 128)
Cells(ligPlein2, "K").Interior.Color = RGB(160, 192, 128)
Cells(ligPlein2, "L").Interior.Color = RGB(160, 192, 128)
Cells(ligPlein2, "M").Interior.Color = RGB(160, 192, 128)
merci beaucoup
Bonjour,
Pour poser d'autres questions, il faut créer d'autres sujets, dans l'intérêt de tous.
Voici sinon une possibilité :
sub test()
dim ligPlein2 as long
with Sheets("Sorties")
ligPlein2 = .Range("B" & .Rows.Count).End(xlUp).Row + 2 'dern lig + 2 ?
.range("G:M").rows(ligPlein2).interior.color = RGB(160, 192, 128) 'mise en couleur des cellules
end with
end subCdlt,