XL 2016 Calendrier automatique - suppression automatique des données du formulaire

[baobab82]

Bonjour,

je vais essayer d'être assez clair dans mes explications. J'ai créée rapidement un calendrier automatique à l'aide de visual Basic.
Il fonctionne tres bien. j'ai juste un probleme quand je passe par exemple du mois de janvier à fevrier les données restent persistantes d'un calendrier sur l'autre.
comment faire pour effacer les donnees que j'ecris dans le calendrier quand je passe de janvier à fevrier par exemple?

Un grand merci a vous

voici le module VB
Sub Masquer_Jour()
Dim Num_Col As Long
For Num_Col = 30 To 32 ' Boucle sur les cellules des jours 29, 30 et 31
If Month(Cells(6, Num_Col)) >= Cells(1, 1) Then
Columns(Num_Col).Hidden = True
Else
Columns(Num_Col).Hidden = False
End If
Next
Range("B6:AF13&quot.ClearContents 'Supprime le contenu dans les cellules>>>>>> ne fonctionne pas
End Sub

 

[Hasco]

Bonjour,

Ah quand le HTML s'en même, on a du mal à comprendre le vba

mais ne serait-ce pas si A1 contient une date

If Month(Cells(6, Num_Col)) = Month(Cells(1,1)

De toute façon une demande sans fichier....et on tape à côté pour la réponse.

Cordialement

 

[baobab82]

Merci mais comme vous dites là n'est pas la réponse.
Sur un menu déroulant quand je passe de janvier à février par exemple mon calendrier change de façon automatique. Je bascule sur le calendrier de février. Sauf que les données que j'aurais pu inscrire dans les colonne du mois de janvier restent apparente en février. Ce que je souhaite c'est que des que je change de calendrier le nouveau calendrier soit vierge mais que les données présentes sur Janvier ne soient pas effacées.

Merci de votre recherche.

 

[AntoineCompta]

@baobab82
Il faut rajouter une ligne à ton codage :

Range("A1:G15").ClearContents
J'ai mis A1:G15 e exemple
, tu dois mettre la plage de cellules de ton tableau à toi

 

[AntoineCompta]

Bonjour,

je vais essayer d'être assez clair dans mes explications. J'ai créée rapidement un calendrier automatique à l'aide de visual Basic.
Il fonctionne tres bien. j'ai juste un probleme quand je passe par exemple du mois de janvier à fevrier les données restent persistantes d'un calendrier sur l'autre.
comment faire pour effacer les donnees que j'ecris dans le calendrier quand je passe de janvier à fevrier par exemple?

Un grand merci a vous

voici le module VB
Sub Masquer_Jour()
Dim Num_Col As Long
For Num_Col = 30 To 32 ' Boucle sur les cellules des jours 29, 30 et 31
If Month(Cells(6, Num_Col)) >= Cells(1, 1) Then
Columns(Num_Col).Hidden = True
Else
Columns(Num_Col).Hidden = False
End If
Next
Range("B6:AF13&quot.ClearContents 'Supprime le contenu dans les cellules>>>>>> ne fonctionne pas
End Sub

Bonjour,

Voici pour moi le bon codage pour ce que tu as besoin , les valeurs que j'ai il faudra les réadapter avec les tiennes , je te laisse revenir vers moi si besoin

Sub Masquer_Jour()
Dim Num_Col As Long
Range("D7:AH14").ClearContents
For Num_Col = 32 To 34
If Month(Cells(6, Num_Col)) <> Cells(1, 3) Then
Columns(Num_Col).Hidden = True
Else
Columns(Num_Col).Hidden = False
End If
Next
End Sub

 

[sgh]

Salut
Je réalise un calendrier automatique.
Deux menus déroulants : Années et Mois
j’ai incrémenté de 1 a 31 pour les jours
lorsque je sélectionne le mois de février j’ai toujours le 30 et 31.
je veux il s'arrete jusqu'a le 29 par exemple pour l'année 2024
Pourriez vous me donner une solution.

Merci d’avance.

Comment faire ?