XL 2016 adapter la formule au nombre de données de la page sur vba

[clary]

Bonsoir,

J'ai un problème sur VBA.
Je souhaite adapter une formule au nombre de données de chaque feuille de mon workbook. En effet une des feuilles contient moins de données que les autres.
ma formule : dernier = Range("B2").End(xlDown).Row
-> celle-ci va jusqu'en bas de la feuille alors que je veux qu'elle s'arrête au nombre de données de cette feuille soit à la cellule 1526 de la colonne B2.
Merci de votre aide.

 

[Staple1600]

Bonsoir le fil, le forum

@clary
Essaies de voir ce que cet exemple t'inspire

Sub a()
Dim s As Worksheet
For Each s In Worksheets
ligne = s.Cells(Rows.Count, "B").End(xlUp).Row
MsgBox ligne
Next
End Sub

 

[eriiic]

Bonjour,

-> celle-ci va jusqu'en bas de la feuille alors que je veux qu'elle s'arrête au nombre de données de cette feuille soit à la cellule 1526 de la colonne B2.

Tu n'aurais pas une formule sur toute la colonne B des fois ?
eric

 

[Staple1600]

Bonsoir eriiiic 😉

Il y a plusieurs feuilles, non ?
(voir message#1 et message#2)

 

[eriiic]

Salut staple,

Oui, mais que ça aille jusqu'en bas avec End(xlDown).Row alors que c'est sensé s'arrêter en 1526 m'interroge un peu.
Grossière erreur mais ça s'est déjà vu ;-)
Maintenant c'est vrai qu'il ne stipulait pas la feuille et que l'active est peut-être vide (il manque le reste du code pour y voir plus clair...). Dans ce cas ta proposition lui ira bien 🙂
eric

 

[clary]

merci !!