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

Ajuster le nombre de lignes sur le nombre de jours dans le mois

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Magic_Doctor

XLDnaute Barbatruc
Supporter XLD
Bonjour,

J'essaie d'ajuster le nombre de lignes sur le nombre de jours dans le mois automatiquement par une macro déclenchée par un ComboBox. En fait, quand on choisit un mois de moins de 31 jours, les lignes correspondant au mois suivant sont occultées.
Ça ne marche que lorsque l'on passe à un mois qui a moins de jours que le précédent.
Et je ne comprends pas pourquoi.

Merci pour toute suggestion.
 

Pièces jointes

Trier par date Trier par votes
Re : Ajuster le nombre de lignes sur le nombre de jours dans le mois

Buenas dias MagicDoctor 🙂,
J'ai pas vraiment bien trouvé pourquoi ça ne marche pas, mais avec ce code, ça fonctionne
Code: 
Private Sub ComboBox1_Change()
'Ajuste le nombre de lignes sur le nombre de jours dans le mois
Application.ScreenUpdating = False
Dim I As Integer
On Error Resume Next
For I = 5 To [NbJoursMois].Value + 5
If Rows(I).EntireRow.Hidden = True Then
Rows(I).EntireRow.Hidden = False
End If
Next I
For I = [NbJoursMois].Value + 5 To 36
If Rows(I).EntireRow.Hidden = False Then
Rows(I).EntireRow.Hidden = True
End If
Next I
On Error GoTo 0
[CR3].Select
Application.ScreenUpdating = True
End Sub
Buenas tardes 😎
 
Vote positif 0 Vote négatif
Re : Ajuster le nombre de lignes sur le nombre de jours dans le mois

Bonjour Magic Doctor, JNP, CB60,

Il y avait 2 problèmes (en rouge dans la macro) :

1) Le fait de commander l'affichage des lignes définissant la ListFillRange de la ComBoBox (lignes 8 à 19) perturbe la macro (elle se relance même avec EnableEvents = False)

2) Pour le masquage, la dernière ligne doit être celle située en dessous de [CellFinal].

Code: 
Private Sub ComboBox1_Change()
'Ajuste le nombre de lignes sur le nombre de jours dans le mois
Application.ScreenUpdating = False
Rows([CellPrincipio].Row [COLOR="Red"]+ 28[/COLOR] & ":" & [CellFinal].Row).Hidden = False
Rows([CellPrincipio].Row + [NbJoursMois] & ":" & [CellFinal].Row [COLOR="Red"]+ 1[/COLOR]).Hidden = True
[CR3].Select
End Sub

On peut aussi écrire :

Code: 
Private Sub ComboBox1_Change()
'Ajuste le nombre de lignes sur le nombre de jours dans le mois
Application.ScreenUpdating = False
Range([CellPrincipio][COLOR="Red"].Offset(28)[/COLOR], [CellFinal]).EntireRow.Hidden = False
Range([CellPrincipio].Offset([NbJoursMois]), [CellFinal][COLOR="Red"].Offset(1)[/COLOR]).EntireRow.Hidden = True
[CR3].Select
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Ajuster le nombre de lignes sur le nombre de jours dans le mois

Rebonjour à tous et surtout merci d'avoir résolu ce mystérieux problème (il faut avouer que c'est très curieux et très ennervant...) de différentes manières.

Je retiendrai la solution de JNP car d'une part l'occultage ou le désoccultage des lignes doit se faire par macro (qui fera aussi d'autres choses) et, pour des raisons disons esthétiques, je tenais absolument que les lignes devenues inutiles soient occultées.
Dans la routine de JNP je n'y ai fait que quelques modifications mineures, à savoir :
1/ faire en sorte que la ligne immédiatement au-dessous de la dernière du tableau soit toujours visible ;
2/ les références des lignes font appel à des cellules nommées, évitant ainsi, si l'on rajoute ou supprime des lignes ou des colonnes dans le tableau, de devoir constamment revoir la macro.

Otra vez, muchas gracias y feliz día (aquí niebloso).
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

L
  • Résolu(e)
XL 2016 formule nombre de véhicules mensuel
2 3
Réponses
34
Affichages
1 K
Lionel 25
L
  • Question Question
XL 2019 Une formule sur Excel qui me permis de calculer le nombre de jours de congé avec queqlques conditions
Réponses
4
Affichages
345
job75
J
  • Résolu(e)
Autres nombre de jours travaillés Nominativement dans une semaine concernée.
Réponses
6
Affichages
483
jdrc
J
C
  • Résolu(e)
XL 2016 Nombre de jours effectués par mois
Réponses
12
Affichages
1 K
CathU
C
C
  • Résolu(e)
XL 2019 Nombre de noms dans une liste
Réponses
5
Affichages
521
Kingwithou
K
C
  • Résolu(e)
XL 2021 planning
Réponses
14
Affichages
2 K
Chavanie21
C
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
552
MCOTTEND
M
  • Question Question
XL 2021 Calcul jours, TCD et outil de pilotage via TCD
Réponses
6
Affichages
615
Raziel abel
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
816
p56
E
  • Question Question
LibreOffice Calc Recherche sur plusieurs onglets pour constituer un tableau
Réponses
0
Affichages
318
evindi
E
C
  • Question Question
XL 2010 Trier des lignes par nombre de mots pertinent
Réponses
3
Affichages
910
crocrocro
C
  • Résolu(e)
XL 2013 (RESOLU) Nombre de jours selon l'année et le mois
Réponses
4
Affichages
996
ChTi160
E
  • Question Question
Microsoft 365 Problème de conversion des mois en périodes dans Excel avec VBA
Réponses
2
Affichages
813
RyuAutodidacte
B
  • Résolu(e)
Microsoft 365 Problème dans formule VBA
Réponses
7
Affichages
573
BOILEAU
B
D
  • Question Question
XL 2021 Formulaire de calcul des jours proratisés
Réponses
0
Affichages
695
Did25
D
  • Résolu(e)
XL 2021 Saisie de lignes multiples dans un formulaire
2
Réponses
15
Affichages
1 K
jeff1494
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
1 K
dysorthographie
E
  • Question Question
Power Query Index TP de l'INSEE - Ajuster une formule à chaque mise à jour d'un tableau généré avec PQ
2
Réponses
21
Affichages
2 K
laurent950
D
  • Résolu(e)
Microsoft 365 Nombre de personnes présentes le lundi, le mardi..., par mois
Réponses
13
Affichages
995
Did95
D
C
  • Résolu(e)
XL 2016 Calculer le nombre de jours effectués par mois
Réponses
8
Affichages
811
CathU
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…