Autre Action après Next

Bonjour à tous,

Voilà que je débute dans la "programmation" et me frotte à quelques difficultés!

Je souhaite masquer des colonnes en fonction d'un choix qui se fait dans l'onglet Index. J'y arrive très bien sur 3 autres onglets qui sont identiques en construction avec une boucle For. Par contre, après cette boucle (et donc après le Next), je souhaiterai également caché des colonnes toujours suivant le choix de l'onget Index dans un onglet intitulé Paramètres mais là... Bug!

Pourriez-vous s'il vous plaît m'aider?

En vous remerciant par avance.

Je joins le fichier en pièce jointe.

Bonjour

Inclus la page dans ta première condition Case ws.Name

Pas testé car des pages inexistantes

Re-Bonjour,

Merci de votre réponse mais cela bloque au niveau de la commande de "masquage"...

Désolée pour les pages manquantes, j'ai joint le fichier entier sans les données uniquement et en laissant tous les onglets!

En espérant que vous pourrez me dépanner!

Merci!

Bonjour

Tu m'as posé une colle

En cherchant j'ai vu ça

http://office.microsoft.com/fr-fr/excel-help/pourquoi-le-message-impossible-de-deplacer-des-objets-en-dehors-de-la-feuille-s-affiche-t-il-lorsque-je-masque-des-colonnes-ou-des-lignes-HA010241241.aspx

J'ai fait une petite macro et après plus de problème

La macro

Option Explicit

Sub DebloqueCommentaire()
Dim Cel As Range
Dim Ws As Worksheet

  ' Commentaire avec cellulles fusionnées pas glop
  ' Feuille sans commentaire pas glop
  On Error Resume Next
  For Each Ws In Sheets
    For Each Cel In Ws.Cells.SpecialCells(xlCellTypeComments)
      Cel.Comment.Shape.Placement = xlMoveAndSize
    Next Cel
  Next Ws
  On Error GoTo 0
End Sub

Vous êtes EXTRAORDINAIRE !!!!

Je ne trouve pas de mot pour vous remercier : merci merci merci!

Tout fonctionne avec tous les onglets!