colonnes: repérer la dernière cellule avec une police Code 128

[CAPRI_456]

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


Merci pour votre aide.

CAPRI_456

 

[CAPRI_456]

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.

Merci

CAPRI_456

 

[CAPRI_456]

Re : colonnes: repérer la dernière cellule avec une police Code 128

la dernière ligne qui comprend une police "Code 128" (soit un barre Code")

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


CAPRI_456

 

[Staple1600]

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.

Et t'as pas trouvé d'exemples dans les archives du forum ????
Parce que les "Dim derlig As Long" et tout ce qui s'ensuit s'y ramassent à la pelle

 

[CAPRI_456]

Re : colonnes: repérer la dernière cellule avec une police Code 128

Bonjour le Forum, Staple 1600

Et t'as pas trouvé d'exemples dans les archives du forum ????

Si, si, j'ai fouiné,et enfin dans mon code j'ai testé ceci

Dim DernLigneT1 As Long

'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

Alors que je devrai avoir "40" pour la col C

est ce du au fait qu'il y existe des cellules vides dans la colonne ou des formules ?.?

Je ne vois pas.


Merci

 

[Staple1600]

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

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

 

[CAPRI_456]

Re : colonnes: repérer la dernière cellule avec une police Code 128

Bonjour le Forum, Staple 1600

Le résultat $L $ 58
DOnc toujours pas le resultat escompté

Je continue donc à piocher


Merci
CAPRI_456

 

[Staple1600]

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.

D'autres ici sauront bien t'aiguiller

 

[Pierrot93]

Re : colonnes: repérer la dernière cellule avec une police Code 128

Bonjour,

un exemple de recherche sur la colonne A :

Dim y As Long
y = Columns(1).Find("*", Cells(Rows.Count, 1), xlValues, , 1, 2, 0).Row

bon après midi
@+