Range.offset.Value<> problem
Résolu
gambleway
Messages postés
9
Date d'inscription
Statut
Membre
Dernière intervention
-
gambleway Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
gambleway Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai recupéré un fichier excel avec des macros. Cependant, je bloque sur une partie du code (ci-dessous). Mon Worksheet prévoit une liste de noms dans un tableau composé d'une colonne. Sur la première ligne de ce tableau est écrit HR LIST. Un peu plus bas dans mon fichier, j'ai un second tableau d'une colonne avec écrit sur la première ligne NOT HR.
Je comprends aue la fonction Range.Offset.Value permet de parcourir le fichier et de récupérer les données dans les cellules.
Cependant, je ne saisi pas à quoi correspondent les parties <> "HR LIST" et <>"NOT HR".
DOis-je comorendre que la boucle s'arrête lorsque j'atteint respectivement les lignes HR LIST et NOT HR ?
Dim nbhr, nbnothr, nb As Integer
nbhr = 0
While Range("A1").Offset(nbhr, 0).Value <> "HR LIST"
nbhr = nbhr + 1
Wend
nbnothr = 0
While Range("A1").Offset(nbnothr, 0).Value <> "NOT HR"
nbnothr = nbnothr + 1
Wend
nb = nbnothr - nbhr - 1
Je vous remercie pour l'aide que vous pouvez éventuellement m'apporter.
J'ai recupéré un fichier excel avec des macros. Cependant, je bloque sur une partie du code (ci-dessous). Mon Worksheet prévoit une liste de noms dans un tableau composé d'une colonne. Sur la première ligne de ce tableau est écrit HR LIST. Un peu plus bas dans mon fichier, j'ai un second tableau d'une colonne avec écrit sur la première ligne NOT HR.
Je comprends aue la fonction Range.Offset.Value permet de parcourir le fichier et de récupérer les données dans les cellules.
Cependant, je ne saisi pas à quoi correspondent les parties <> "HR LIST" et <>"NOT HR".
DOis-je comorendre que la boucle s'arrête lorsque j'atteint respectivement les lignes HR LIST et NOT HR ?
Dim nbhr, nbnothr, nb As Integer
nbhr = 0
While Range("A1").Offset(nbhr, 0).Value <> "HR LIST"
nbhr = nbhr + 1
Wend
nbnothr = 0
While Range("A1").Offset(nbnothr, 0).Value <> "NOT HR"
nbnothr = nbnothr + 1
Wend
nb = nbnothr - nbhr - 1
Je vous remercie pour l'aide que vous pouvez éventuellement m'apporter.
1 réponse
Bonjour
Toujours se méfier de la récup de macro: une macro est unique pour un seul contexte et pas un autre
Dans ce code, tel qu'il est écrit tu as HR LIST et NOT HR inscrits dans toute la colonne et non une fois en t^te de liste et on fait la différence (nb) de HR LIST et NOT HR
Comme on ne sait pas ce que tu veux faire et sans boule de cristal...
Toujours se méfier de la récup de macro: une macro est unique pour un seul contexte et pas un autre
Dans ce code, tel qu'il est écrit tu as HR LIST et NOT HR inscrits dans toute la colonne et non une fois en t^te de liste et on fait la différence (nb) de HR LIST et NOT HR
Comme on ne sait pas ce que tu veux faire et sans boule de cristal...
Bonne journée