Bonjour le Forum,
Voici un petit fichier en annexe avec en feuil 1 un code "Printbutton"
Dans les colonnes C , H et L , je souhaiterai identifier dans les variables suivantes:
nbLignesT1
nbLignesDECL
nbLignesEX
la dernière ligne qui comprend une police "Code 128" (soit un barre Code") mais cela pourrait être
J'arrive toujours à la ligne 59. (en travaillant sur la dernière ligne non vide)
Une fois mes variables alimentées, je récupère la valeur de la plus grande (code sur le forum, mais je ne sais plus de qui): cette récupération fonctionne , mais au lieu de la ligne 59 , je souhaiterai récupérer la dernière ligne avec un barre code
Re : colonnes: repérer la dernière cellule avec une police Code 128
J'oubliais de dire
le but de cela est en identifiant la dernière ligne reprenant un code barre, de sélectionner uniquement la plage, pour n'imprimer que ma selection et non des feuilles avec des cases vides.
Bonjour le Forum,
peut être aurai-je du spécifier que dans la dernière cellule:
-- il pourrait s'agir de n'importe quelle police
-- ou encore de texte
-- ou encore qu'il s'agit tout simplement d'identifier la dernière ligne non vide (donc utilisée) afin d'éviter d'imprimer au-delà (sachant que j'ai des formules jusque en ligne 59.
Bien à vous
et merci si vous pouviez m'apporter un début d'aide par rapport à mes essais de code
Re : colonnes: repérer la dernière cellule avec une police Code 128
Bonjour à tous
- ou encore qu'il s'agit tout simplement d'identifier la dernière ligne non vide (donc utilisée) afin d'éviter d'imprimer au-delà (sachant que j'ai des formules jusque en ligne 59.
'DernLigneT1 = Range("C" & Rows.Count).End(xlUp).Row '---- me donne 58
'DernLigneT1 = Range("c65536").End(xlUp).Row ''---- me donne 58
'DernLigneT1 = WorksheetFunction.CountA(Worksheets("Feuil1").Columns(3)) '''---- me donne 29
'DernLigneT1 = WorksheetFunction.CountA(Worksheets("Feuil1").Columns(8)) ''---- me donne 21
'DernLigneT1 = WorksheetFunction.CountA(Worksheets("Feuil1").Columns(12)) ''---- me donne 20
'DernLigneT1 = WorksheetFunction.CountA(Feuil1.Range("C" & Rows.Count).End(xlUp).Row) ''---- me donne 1
'DernLigneT1 = Range("C1").End(xlUp).Row ''---- me donne 58
'DernLigneT1 = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1 ''---- me donne 2329
'DernLigneT1 = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row ''---- me donne 2329
Re : colonnes: repérer la dernière cellule avec une police Code 128
Bonjour
Essaies de voir ce que tu peux piocher dans ce qui suit dessous
Code:
Sub a()
Dim dercol&, derlig&
derlig = Cells(65536, "C").End(xlUp).Row
dercol = Cells(derlig, "IV").End(xlToLeft).Column
MsgBox Cells(derlig, dercol).Address
End Sub
Re : colonnes: repérer la dernière cellule avec une police Code 128
Re
C'est normal puisque que tu as des cellules en colonne C certes vides qui ont un format et des bordures.
(Donc le L58 est tout à fait logique en l'état)
Il va falloir ruser, mais ce sera pour plus tard, je retourne bosser pour le moment.