XL 2010 Modifier une macro

cbd13012 · 13 Février 2021

Bonjour
J'ai récupéré cette macro sur le net pour l'adapter à ma situation , elle doit masquer des lignes suivant le mois de l'année
sauf que mon tableau n'est pas dans le même sens que celui proposé dans l'exercice :

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").ClearContents 'Supprime le contenu dans les cellules
End Sub

j'ai essayé de la modifier comme ça avec les infos trouvées sur le net sauf qu'au lieu de masquer les lignes cela efface juste le contenu des cellules A33 à A35

Sub Masquer_Jour()
Dim Num_ligne As Long
For Num_ligne = 33 To 35 ' Boucle sur les cellules des jours 29, 30 et 31
If Month(Cells(1, 33)(1, 34)(1, 35)) >= Cells(1, 7) Then
Columns(Num_ligne).Hidden = True
Else
Columns(Num_ligne).Hidden = False

End If
Next
Range("A33:A35").ClearContents 'Supprime le contenu dans les cellules
End Sub

Si quelqu'un peut m'aiguiller vers la solution je l'en remercie d'avance.

Christophe

Rouge · 13 Février 2021

Bonjour,

Avez-vous essayer de supprimer la dernière ligne?
Range("B6:AF13").ClearContents 'Supprime le contenu dans les cellules

Cdlt

cbd13012 · 13 Février 2021

Rouge à dit:
Bonjour,

Avez-vous essayer de supprimer la dernière ligne?
Range("B6:AF13").ClearContents 'Supprime le contenu dans les cellules

Cdlt

Bonjour

Oui cela n'efface plus le contenu mais les lignes ne sont pas masquées

Rouge · 13 Février 2021

Oui, mais il faut remplacer "Columns" par "Rows"

cbd13012 · 13 Février 2021

Rouge à dit:
Oui, mais il faut remplacer "Columns" par "Rows"

Super merci ça avance , les lignes se masquent mais si je change de mois avec plus de jours elles ne revienne pas

cbd13012 · 13 Février 2021

Du coup la macro est comme ça

Sub Masquer_Jour()
Dim Num_ligne As Long
For Num_ligne = 33 To 35 ' Boucle sur les cellules des jours 29, 30 et 31
If Month(Cells(1, 33)(1, 34)(1, 35)) >= Cells(1, 7) Then
Rows(Num_ligne).Hidden = True
Else
Rows(Num_ligne).Hidden = False

End If
Next

End Sub

Rouge · 13 Février 2021

Il suffit de démasquer toutes les lignes au début de la macro.

VB:

Sub Masquer_Jour()
    Dim Num_ligne As Long
    Cells.Rows.Hidden = False
    For Num_ligne = 33 To 35 ' Boucle sur les cellules des jours 29, 30 et 31
        If Month(Cells(1, 33)(1, 34)(1, 35)) >= Cells(1, 7) Then Rows(Num_ligne).Hidden = True
    Next
End Sub

cbd13012 · 13 Février 2021

Rouge à dit:

Il suffit de démasquer toutes les lignes au début de la macro.

VB:

Sub Masquer_Jour()
    Dim Num_ligne As Long
    Cells.Rows.Hidden = False
    For Num_ligne = 33 To 35 ' Boucle sur les cellules des jours 29, 30 et 31
        If Month(Cells(1, 33)(1, 34)(1, 35)) >= Cells(1, 7) Then Rows(Num_ligne).Hidden = True
    Next
End Sub

Merci pour ce retour mais visiblement le masquage des lignes est prioritaire sur afficher,
les lignes apparaissent et disparaissent immédiatement quelque soit le mois .
ci joint une copie du tableau. je me demande si je n'ai pas fait une erreur au niveau de la construction du tableau . Merci d'avance pour votre aide

Staple1600 · 13 Février 2021

Bonjour

Kesako?
Cells(1, 33)(1, 34)(1, 35)
Sub Test()
MsgBox Cells(1, 33)(1, 34)(1, 35).Address
End Sub
Cela nous emmène en CV1

cbd13012 · 13 Février 2021

Staple1600 à dit:
Bonjour

Kesako?
Cells(1, 33)(1, 34)(1, 35)
Sub Test()
MsgBox Cells(1, 33)(1, 34)(1, 35).Address
End Sub
Cela nous emmène en CV1

Bonjour
C'est la première fois que j'essaye de modifier une macro pour l'adapter, pour moi 1, 33 correspond a A33

Staple1600 · 13 Février 2021

Re

La bonne syntaxe c'est
Cells(Numéro de ligne, Numéro de colonne)
Donc pour A1 par exemple, on écrira: Cells(1,1) ou Cells(1,"A")
Donc pour A33: Cells(33,1) ou Cells(33,"A")

Et si tu veux faire référence a A33,A34,A35
il faut écrire

VB:

Sub test_ii()
MsgBox Range(Cells(33, 1), Cells(35, 1)).Address
'ou
MsgBox Range("A33:A35").Address
End Sub

cbd13012 · 13 Février 2021

Staple1600 à dit:
Re

La bonne syntaxe c'est
Cells(Numéro de ligne, Numéro de colonne)
Donc pour A1 par exemple, on écrira: Cells(1,1) ou Cells(1,"A")
Donc pour A33: Cells(33,1) ou Cells(33,"A")

Et si tu veux faire référence a A33,A34,A35
il faut écrire

VB:

Sub test_ii() MsgBox Range(Cells(33, 1), Cells(35, 1)).Address 'ou MsgBox Range("A33:A35").Address End Sub

Merci pour l'information,, cela ne fonctionne toujours pas comme je veux ; Je laisse tomber pour aujourd'hui.
Bon weekend

XL 2010 Modifier une macro

cbd13012

XLDnaute Nouveau

Rouge

XLDnaute Impliqué

cbd13012

XLDnaute Nouveau

Rouge

XLDnaute Impliqué

cbd13012

XLDnaute Nouveau

cbd13012

XLDnaute Nouveau

Rouge

XLDnaute Impliqué

cbd13012

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

cbd13012

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

cbd13012

XLDnaute Nouveau

Discussions similaires