Reprise du message précédent :
En tous cas, merci de votre aide
La fonction marche vraiment très bien

En effet Minimoack, le lien que tu m'as donné est vraiment bien

Merci à tous !

J'ai besoin de vos lumières...
Encore une fois
Je suis vraiment navrée d'abuser mais j'ai un gros soucis sur ma formule
Je n'arrive pas à intégrer un IF  
 
Ce que je cherche à faire c'est :
IF mon InputBox = une valeur
     Worksheet("ECARTS" ).Columns("C:M" ).Hidden = True
        END IF

 
je pense que ça devrait marcher

Minimoack toujours là quand j'en ai besoin
Merci beaucoup !

De rien et t'inquiètes, tu n'abuses pas!
je pense que si les gens sont là, c'est pour aider du mieux qu'ils peuvent
(je parle en mon nom, mais je pense/espère que je ne suis pas la seule à penser ainsi )

ça marche au fait?

Non je ne pense pas que tu sois la seule à penser ainsi !
Oui la formule marche super bien.
J'essaie de l'améliorer car le résultat de ma InputBox est un mois et en fonction du mois, je redécalle mes cellules masquées

Je crois que je suis en train de "massacrer" le code que tu m'as donné ^^

mais non, mais non

Euh... Si !
J'ai une erreur "9" et un souci avec un "Sub ou Function manquante"
Je vais plutot essayé de copier la formule 12 fois (pour chaque mois) et changer les critères à chaque fois ^^

Fais pas ça !
Colle ici, on va t'aider

là pour le coup je suis d'accord avec oovaveoo!!! fais pas ça, ça va être touuuuut moche!!!!!! XD

C'est gentil, mais vous savez, c'est pas grave si c'est tout moche, c'est une macro, donc cacher ^^

J'ai tous les mois de l'année  
'AFFICHAGE colonne
    Dim mois As String
    mois = InputBox("A quel mois correspond la saisie des Ecarts ?", "Mois de saisie" )
    If mois = "JANVIER" Then
         Worksheet("ECARTS" ).Columns("C:M" ).Hidden = True

... si c'est grave! c'est pas optimisé ^^
nan mais on devrait pouvoir faire une boucle

Pour janvier je masque de C à M
Février de D à M
Et ainsi de suite ^^
Mais ça marche à peu près si je copie mois par mois =P

tu peux faire un select case peut etre

J'ai cherché à faire une boucle, mais la débutante que je suis ne dois pas savoir quel argument prendre ou utliser

Je veux masquer mes cellules en fonction du mois de saisie, mais toujours en gardant le mois d'avant (hisoire que mon tableau ne s'étale pas sur 50 colonnes)

J'en ai déjà un de Select Case, mais avant pour savoir ou je vais enregistrer mes données (si c'est janvier, si c'est février)

mets ton code si tu peux stp

Je viens de l'effacer pour le reprendre au début ^^
Pour ce qui est de masquer les cellules, sinon j'ai l'autre qui me dit ou enregistrer mes valeurs selon le mois

'MESSAGE pour choisir le mois
 Dim mois As String
    Dim colonne As Integer
    mois = InputBox("Saisir le mois correspondant en MAJUSCULE" )
 
    Select Case mois
        Case "JANVIER"
        colonne = 2
       
        Case "FEVRIER"
        colonne = 3
         
        Case "MARS"
        colonne = 4
         
        Case "AVRIL"
        colonne = 5
         
        Case "MAI"
        colonne = 6
         
        Case "JUIN"
        colonne = 7
         
        Case "JUILLET"
        colonne = 8
         
        Case "AOUT"
        colonne = 9
         
        Case "SEPTEMBRE"
        colonne = 10
         
        Case "OCTOBRE"
        colonne = 11
         
        Case "NOVEMBRE"
        colonne = 12
         
        Case "DECEMBRE"
        colonne = 13
         
    End Select
    Cells(6, colonne).Select
     
'COLLER
ActiveSheet.Paste Link:=True

C'est ce qu'il y a avant ce que j'essaie de faire
Ce que je veux faire c'est si j'ai copié JANVIER je veux masqué les autres colonne pour ne pas perdre de place et ne pas afficher des colonnes vides

Tu veux masquer 11 colonnes en partant de ton mois + 1 :

Après ton select case :

Yeah beaucoup plus simple ^^

Je viens d'intégrer la fonction que tu m'as donné oovaveoo, cependant, il ne se passe rien...
J'ai pas du savoir ou la mettre ^^

Es-ce que c'est parce que ma première ligne est fusionnée pour mettre le titre ?

tu l'as mis où? après ton collage?

Une fois que tous mes case ont été renseigné

Une fois que tu as renseigné l'inputbox, et fait ton select case :
Select Case mois  
        Case "JANVIER"  
        colonne = 2  
         
        Case "FEVRIER"  
        colonne = 3  
 
... etc
 
ta variable colonne a une valeur (2 pour janvier par exemple) dont tu vas te servir pour masquer les colonnes :
Range(Cells(1, colonne+1), Cells(1, colonne+12)).Columns.Hidden = True

mais il faut le faire après le end select, non?

Oui oui.
 
En entier :
 

Oui, oui, j'ai bien compris.
J'ai intégré ton calcul et refait le test de ma maccro mais à chaque fois il y a seulement les données qui se collent dans le mois que je renseigne mais les colonnes ne se masquent pas

Je viens de tenter ta nouvelle hypothèse
Sauf que désormais, il mette erreur de compilation : Sub ou Function non définie

Colle ta macro en entier qu'on voit d'où peut venir le soucis.

il surligne quoi lors de l'erreur?

J'avais oublié un "s" :
Worksheets("ECARTS" )