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: 37

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
 

ITSYOYO

XLDnaute Nouveau
Hello M12,

J'ai été obligé de mettre en forme mon tableau à nouveau. De ce fait ma macro ne fonctionne plus.

Pourriez-vous m'aider sur cette macro ?

Voir fichier joint
 

Pièces jointes

  • Classeur1111_2.xlsm
    25.1 KB · Affichages: 14

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

Réponses
2
Affichages
398
Réponses
4
Affichages
738

Statistiques des forums

Discussions
311 710
Messages
2 081 781
Membres
101 817
dernier inscrit
carvajal