Afficher/Masquer Plage de colonne

Je m'explique : j'ai une plage de colonnes (C,D,E,F,G) qui me permet de saisir des absences. Les colonnes (H,I,J,K,L) me permettent de saisir une deuxième période d'absence, ainsi que M,N,O,P,Q.

Je souhaiterais que lorsque j'ai saisi ma 1ère absence (CDEFG) je clique sur un bouton qui me masque cette plage de colonne et m'affiche la seconde palge (HIJKL) afin de saisir ma 2ème absence et ainsi de suite.

Pardonnez, mais je suis un peu noob en vba.

Merci d'avance.

Bonjour,

Pour masquer les colonnes..

    Selection.EntireColumn.Hidden = True

Pour le remettre changer True par False

A+

Bonjour

Sur ton fichier d'origine

Un Code dans ThisWorkBook pour que seule la Zone de saisie 1 soit affichée à l'ouverture du fichier.

Private Sub Workbook_Open()
Application screenUpdating=False
Columns("H:Q").EntireColumn.Hidden = True
    Range("F1").Select
End Sub

Sur la Feuille, 3 Boutons pour sélectionner les Zones

Code des différents Boutons

Private Sub CommandButton1_Click()
Columns("C:G").EntireColumn.Hidden = False
Columns("H:Q").EntireColumn.Hidden = True
End Sub
Private Sub CommandButton2_Click()
Columns("C:G").EntireColumn.Hidden = True
Columns("H:L").EntireColumn.Hidden = False
Columns("M:Q").EntireColumn.Hidden = True
End Sub
Private Sub CommandButton3_Click()
Columns("M:Q").EntireColumn.Hidden = False
Columns("C:L").EntireColumn.Hidden = True
End Sub

Bien sur, il va falloir modifier les formules.

En R7 à incrémenter sur tout le tableau

=SI(OU(R$6="s";R$6="f";R$6="d");"C";SI(ET(R$5>=$D7;R$5<=$E7;NB.SI(Code_Abs;$F7)>0);$F7;""))&SI(ET(R$5>=$I7;R$5<=$J7;NB.SI(Code_Abs;$K7)>0);$K7;"")&SI(ET(R$5>=$N7;R$5<=$O7;NB.SI(Code_Abs;$P7)>0);$P7;"")

Cordialement

Bonjour Amadeus,

Merci.

J'ai un pb lorsque je saisi en "Saisie-2" et "Saisie-3". Si l'absence est à cheval sur un week-end ("s" et "d"), il me cumule les lettres associées.

Normalement, j'ai "c" pour les week-end puis les lettres absences (exemple "V" pour congés payés). Si je saisi un congé payé sur un week-end, cela m'affiche "CV".

J'ai mis le fichier pour voir le pb.

Merci de votre aide.

Bonjour

Juste une parenthèse mal placée

En R7

=SI(OU(R$6="s";R$6="f";R$6="d");"C";SI(ET(R$5>=$D7;R$5<=$E7;NB.SI(Code_Abs;$F7)>0);$F7;"")&SI(ET(R$5>=$I7;R$5<=$J7;NB.SI(Code_Abs;$K7)>0);$K7;"")&SI(ET(R$5>=$N7;R$5<=$O7;NB.SI(Code_Abs;$P7)>0);$P7;""))

Cordialement

Merci,

C'est nickel !

Bonne fin de journée