Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

M12

XLDnaute Accro
Re,

A tester,
Ton ancien montage ne peut pas fonctionner car tu as mis les dates sur deux colonnes, alors tu masques les deux colonnes
 

Pièces jointes

  • Classeur1111_2.xlsm
    25.9 KB · Affichages: 17

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
 

Discussions similaires

Réponses
2
Affichages
759
Réponses
4
Affichages
989
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…