probleme de compilation

[Lbn]

Bonjour,

J'ai un message d'erreur type '9' lorsque je lance cette macro. Voyez vous d'ou cela peut il venir ?

Dim maFeuil As String    'declaration de la variable maFeuil

t = 3 'indicateur de la colonne souhaitée

For i = 1 To 40  '40 ligne à compter à partir de la premiere

    maFeuil = Cells(i + 35, t)   'nom de la variable est dans la cellule i+35,t

    If Cells(i + 35, t + 1) <> "" Then     'Si la cellule a droite de la cellule contient quelque chose
      Sheets(maFeuil).Select    'selectionner l'onglet portant le nom de la cellule
      ActiveSheet.PrintOut  ' l'imprime
    End If
  
Next i

Merci de vos conseils

lbn

 

[Guest]

Re : probleme de compilation

Bonjour Lbn,

Sur quelle ligne bloque la macro?
Si c'est sur une ligne comme

Sheets(maFeuil).Select

c'est certainement que la feuille désignée par maFeuil n'existe pas.

A+

 

[Lbn]

Re : probleme de compilation

C'est exactement cette ligne qui bloque, mais l'onglet existe bien.
C'est la que je bloque ...
Si je la met en commentaire, et que je met une alerte à laplace, il affiche bien toutes les lignes concernées. C'est juste cette ligne me permetant de passer sur les onglets qui me pose probleme.

Comment y remedier ?

 

[Guest]

Re : probleme de compilation

Re,

vérifie les noms des feuilles qui sont dans les cellules, présence d'espace en fin de nom ou autre caratères invisibles.

Remplace la ligne:

maFeuil = Cells(i + 35, t)

Par

maFeuil = Trim(Cells(i + 35, t).text)

A+

 

[Lbn]

Re : probleme de compilation

Même en ajoutant les éléments ci dessus j'obtiens le meme message.

Plus concretement le premier onglet se select, imprime la page, puis le message d'erreur arrive :

erreur d'execution '9'
l'indice n'appartient pas a la selection

C'est comme s'il n'arrivait pas continuer la boucle ?

 

[Guest]

Re : probleme de compilation

re,

Que contient la variable 'mafeuil' lorsqu'il plante?

Essaie de joindre le fichier dégraisser et anonymisé ainsi que la macro qui coince.

A+

 

[Lbn]

Re : probleme de compilation

Bon, probleme résolu

Vous aviez raison, je tournais bourrique pour rien. Les nom d'onglet générés comportaient un espace en bout de ligne.

Tout est rentré dans l'ordre.

Merci