XL 2010 Effacer des cellules en fonction de CheckBox

[Myst]

Bonjour le forum
En passant par les CheckBox de l'userform "Machine" je cherche a effacer les cellules de la zone "H2:N23"
Exemple:
j'ouvre l'Userform "Machine" en étant dans la feuil31
Je selectionne les CheckBox1 et 2 donc "PA62" et "PA63"
Je clique sur le bouton "valider"
Les cellules de la feuil31 "J2:N23" sont effacées et je ne garde que les colonnes qui ont comme titre "PA62" et "PA63"
Merci

 

[Jacky67]

Bonjour le forum
En passant par les CheckBox de l'userform "Machine" je cherche a effacer les cellules de la zone "H2:N23"
Exemple:
j'ouvre l'Userform "Machine" en étant dans la feuil31
Je selectionne les CheckBox1 et 2 donc "PA62" et "PA63"
Je clique sur le bouton "valider"
Les cellules de la feuil31 "J2:N23" sont effacées et je ne garde que les colonnes qui ont comme titre "PA62" et "PA63"
Merci

Bonsoir,
Modification
Code pour le bouton "Valider"

Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To 7
If Not Me.Controls("CheckBox" & i).Value Then
Range(Cells(2, 7 + i), Cells(23, 7 + i)).ClearContents
End If
Next
End Sub

Salutations
JJ

 

[Myst]

Bonjour le forum, jacky67
Parfait, a chaque fois je me demande si j'ai été assez explicite dans ma demande et a chaque fois les solutions sont nickel, trop fort
Et si je veux que la police devienne noir sur la ligne 2 de H a N uniquement au lieu de s’effacer toujours en fonction de la sélection des checkbox
Merci

 

[Alza]

Bonjour,
change le code de Jacky67 par

Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To 7
If Not Me.Controls("CheckBox" & i).Value Then
Range(Cells(3, 7 + i), Cells(23, 7 + i)).ClearContents
Cells(2, 7 + i).Font.Color= black
End If
Next
End Sub

Alza'

 

[Jacky67]

Bonjour le forum, jacky67
Parfait, a chaque fois je me demande si j'ai été assez explicite dans ma demande et a chaque fois les solutions sont nickel, trop fort
Et si je veux que la police devienne noir sur la ligne 2 de H a N uniquement au lieu de s’effacer toujours en fonction de la sélection des checkbox
Merci

RE..
Remplace cette ligne

Range(Cells(2, 7 + i), Cells(23, 7 + i)).ClearContents

Par

Cells(2, 7 + i).Font.ColorIndex = xlAutomatic

Salutations
JJ

 

[Myst]

Bonjour Alza
Une petite touche feminine dans un monde de brute , ça fait plaisir 🙂
Un grand merci, problème resolut 😀

 

[Myst]

Re, Jacky67
Un grand merci a toi 😀

 

[Jacky67]

Re, Jacky67
Un grand merci a toi 😀

RE..
Et pour revenir à la couleur initiale si on re-coche
Change le code en:

Private Sub CommandButton1_Click()
    Dim i As Long
    For i = 1 To 7
        If Not Me.Controls("CheckBox" & i).Value Then
            ' Range(Cells(2, 7 + i), Cells(23, 7 + i)).ClearContents
            Cells(2, 7 + i).Font.ColorIndex = xlAutomatic
        Else
            Cells(2, 7 + i).Font.ColorIndex = 3
        End If
    Next
End Sub

 

[Jacky67]

Re, Jacky67
Un grand merci a toi 😀

Re...
Ne serait-il pas plus judicieux dans ce cas de masquer les colonnes???

Private Sub CommandButton1_Click()
    Dim i As Long
    For i = 1 To 7
        Columns(7 + i).Hidden = Not Me.Controls("CheckBox" & i).Value
    Next
End Sub

JJ

 

[Myst]

Re,
tu dois avoir une boule de crystal, c'est exactement la suite que j'essayai de mettre en place depuis au moins 2h00 jusqu'a ce que l'idée me passe par la tête de retourné sur le forum et là ... O merveille
Merci, merci, merci 😀😀😀😀