PROBLEME DE MACRO

ITSYOYO

XLDnaute Nouveau
Bonjour à tous,

Je voudrais savoir ce qui cloche dans ma macro ci-dessous:

Sub Masquer_Jour()
Dim Num_Row As Long

For Num_Row = 40 To 42
' Compare la valeur du mois de la cellule AD6 Month(Cells(6, Num_Col)
' avec la valeur du mois sélectionné en A1 Cells(1, 1)
If Month(Cells(Num_Row, 1)) <> Cells(7, 2) Then
Rows(Num_Row).Hidden = True
Else
Rows(Num_Row).Hidden = False
End If
Next


End Sub

J'essaie de faire en sorte que les mois ou il y a 28,29,30 se masque automatiquement à partir du bouton menu déroulant que j'ai créée.

Merci par avance pour vos retours.

Belle journée
 

Pièces jointes

  • CALENDRIER FORMATION_CONTINUE_V2.xlsm
    35.5 KB · Affichages: 22

M12

XLDnaute Accro
Bonjour,

Au lieu de comparer avec le texte du mois en cellule (7,2), compare avec le mois de la cellule du 28 du mois en cellule (38,1)

VB:
Sub Masquer_Jour()
Dim Num_Row As Long
 
  For Num_Row = 40 To 42
    ' Compare la valeur du mois de la cellule AD6 Month(Cells(6, Num_Col)
    ' avec la valeur du mois sélectionné en A1 Cells(1, 1)
    If Month(Cells(Num_Row, 1)) <> Month(Cells(38, 1)) Then
      Rows(Num_Row).Hidden = True
    Else
      Rows(Num_Row).Hidden = False
    End If
  Next
End Sub
 

Staple1600

XLDnaute Barbatruc
Bonsoir

ITSYOYO
N'est-ce là la même question qu'ici?
Pour laquelle je t'avais proposé une MFC
J'ai bien lu ton Merci ;)
Mais ne sais toujours pas si tu as réussi à faire fonctionner celle-ci...

Du coup, nous voilà avec deux fils doublons...
 

ITSYOYO

XLDnaute Nouveau
Bonsoir

ITSYOYO
N'est-ce là la même question qu'ici?
Pour laquelle je t'avais proposé une MFC
J'ai bien lu ton Merci ;)
Mais ne sais toujours pas si tu as réussi à faire fonctionner celle-ci...

Du coup, nous voilà avec deux fils doublons...
Bonsoir

ITSYOYO
N'est-ce là la même question qu'ici?
Pour laquelle je t'avais proposé une MFC
J'ai bien lu ton Merci ;)
Mais ne sais toujours pas si tu as réussi à faire fonctionner celle-ci...

Du coup, nous voilà avec deux fils doublons...
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
291 667
Messages
1 916 971
Membres
179 500
dernier inscrit
oximo
Haut Bas