Masquer des zone de cellule

[bloodess]

bonjour,
Comment peut on cacher du texte si il est si on coche une chek box (voir fichier joint)???
cordialement ...

 

[Anne1969]

Re : Masquer des zone de cellule

Hello,

je ne sais pas si par décalage tu veux dire une attente avant l'action d'"effacement"...si ce n'est pas le cas supprime la procédure Delais et les appels...

Ci joint ton fichier modifié...sinon le code à mettre dans Feuil1 de VBE

Private Sub CheckBox1_Click()

If Me.CheckBox1.Value = True Then
    Delais (2)
    Range("B16").Font.Color = vbWhite
Else
    Delais (2)
    Range("B16").Font.Color = vbBlack
End If
End Sub

Private Sub CheckBox2_Click()
If Me.CheckBox1.Value = True Then
    Delais (2)
    Range("B14").Font.Color = vbWhite
Else
    Delais (2)
    Range("B14").Font.Color = vbBlack
End If
End Sub

Sub Delais(seconde As Integer)
Dim Start, PauseTime
PauseTime = seconde
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
End Sub

 

[Darnel]

Re : Masquer des zone de cellule

Bonjour

Comment veux tu cacher le texte (masquer la colonne, masquer la ligne, le colorer en blanc, etc...) ?

Merci


EDITION : désolé pour la collision Anne1969
bonne journée

 

[bloodess]

Re : Masquer des zone de cellule

J'aimerais masquer la ligne

 

[Anne1969]

Re : Masquer des zone de cellule

Pour masquer et non mettre en blanc...tu mets ça à la place du code plus haut

Private Sub CheckBox1_Click()

If Me.CheckBox1.Value = True Then
    Delais (2)
    Rows("16:16").Select
    Selection.EntireRow.Hidden = True
Else
    Delais (2)
    Rows("15:17").Select
    Selection.EntireRow.Hidden = False
End If
End Sub

Private Sub CheckBox2_Click()

If Me.CheckBox2.Value = True Then
    Delais (2)
    Rows("14:14").Select
    Selection.EntireRow.Hidden = True
Else
    Delais (2)
    Rows("13:15").Select
    Selection.EntireRow.Hidden = False
End If
End Sub

Sub Delais(seconde As Integer)
Dim Start, PauseTime
PauseTime = seconde
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
End Sub

 

[bloodess]

Re : Masquer des zone de cellule

Cel marche mais pas super, desoler j'aimerais que lorsque les deux sont cocher on voit les deux phrase

 

[bloodess]

Re : Masquer des zone de cellule

voila ce que j'ai pour l'instant :

Private Sub CheckBox1_Click()

If Me.CheckBox1.Value = True Then

Rows("14:14").Select
Selection.EntireRow.Hidden = False
Else
If Me.CheckBox1.Value = False Then
Rows("14:14").Select
Selection.EntireRow.Hidden = True
End If
End If
End Sub

Private Sub CheckBox2_Click()

If Me.CheckBox2.Value = True Then

Rows("16:16").Select
Selection.EntireRow.Hidden = False
Else
If Me.CheckBox2.Value = False Then
Rows("16:16").Select
Selection.EntireRow.Hidden = True
End If
End If
End Sub

 

[Anne1969]

Re : Masquer des zone de cellule

Tu changes le code et tu inverses les conditions...

If Me.CheckBox1.Value = False

et non

If Me.CheckBox1.Value = True

C'est bon ?

 

[bloodess]

Re : Masquer des zone de cellule

Non cela ne marche po tip top !!
Si je coche les deux cases cela ne maffiche les deux textes ...

 

[Anne1969]

Re : Masquer des zone de cellule

Etonnant...ça marche chez moi...