Comment crés des boutons on ou off dans plusieurs celulle d'une meme colonne???

[Guido]

Bonjour le Forum

Je cherche a inserer des boutons on et off dans plusieurs cellules, d'une meme colonne.

et une macros pour supprimer certaines lignes

Merci

Guido

 

[Pierrot93]

Re : Comment crés des boutons on ou off dans plusieurs celulle d'une meme colonne???

Bonjour,

un peu maigre comme explication... un peu plus de détails serait le bienvenu...

bonne journée
@+

 

[Guido]

Re : Comment crés des boutons on ou off dans plusieurs celulle d'une meme colonne???

Re

Oui,je vais inserer un fichier..

Merci

Guido

 

[Guido]

Re : Comment crés des boutons on ou off dans plusieurs celulle d'une meme colonne???

Re

Oui,je vais inserer un fichier..

Merci

Guido

Voici le fichier..

 

[Pierrot93]

Re : Comment crés des boutons on ou off dans plusieurs celulle d'une meme colonne???

Bonjour,

pour la suppression des lignes :

Option Explicit
Sub test()
Dim i As Long
For i = Cells(Rows.Count, 2).End(xlUp).Row To 10 Step -1
    If Cells(i, 2) = "S" Then Rows(i).Delete
Next i
End Sub

 

[Guido]

Re : Comment crés des boutons on ou off dans plusieurs celulle d'une meme colonne???

Re

Pierrot93

J'ai recopier ta macro...et cela ne fonctionne pas´???

je ne vois pas mon erreur..

Merci

Guido

 

[Tentative]

Re : Comment crés des boutons on ou off dans plusieurs celulle d'une meme colonne???

Bonjour,

Une petite coquille :

Ce n'est pas :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 23.07.2015 par Guy
'
Option Explicit
 Sub test()
 Dim i As Long
 For i = Cells(Rows.Count, 2).End(xlUp).Row To 10 Step -1
     If Cells(i, 2) = "S" Then Rows(i).Delete
 Next i
 End Sub

Mais bien seulement le code de Pierrot93 :

Option Explicit
 Sub test()
 Dim i As Long
 For i = Cells(Rows.Count, 2).End(xlUp).Row To 10 Step -1
     If Cells(i, 2) = "S" Then Rows(i).Delete
 Next i
 End Sub

Sinon, il y a deux appel Sub de suite, d'où le bug.


Tentative

 

[Guido]

Re : Comment crés des boutons on ou off dans plusieurs celulle d'une meme colonne???

Re

Tentative

C'est ok pour la macro,Merci

Il va me rester la deuxieme demande..

Merci d'avance pour votre aide

Guido

 

[Pierrot93]

Re : Comment crés des boutons on ou off dans plusieurs celulle d'une meme colonne???

Re,

vois pas quel genre de bouton tu veux, et en fonction de quel critère "vrai" ou "faux"..

 

[Guido]

Re : Comment crés des boutons on ou off dans plusieurs celulle d'une meme colonne???

re

Pierrot93

Je te joint le fichier avec ma demande

Merci

Guido

 

[Pierrot93]

Re : Comment crés des boutons on ou off dans plusieurs celulle d'une meme colonne???

Re,

essaye ceci :

Sub Macro1()
Dim i As Long, x As Button
For i = 9 To Cells(Rows.Count, 2).End(xlUp).Row
    If Cells(i, 2) <> "" Then
        With Cells(i, 1)
            Set x = Feuil1.Buttons.Add(.Left, .Top, .Width, .Height)
            x.OnAction = "Macro2"
        End With
    End If
Next i
End Sub
Sub macro2()
Feuil1.Buttons(Application.Caller).TopLeftCell.Offset(0, 1).Resize(7, 5).Select
End Sub

 

[Pierrot93]

Re : Comment crés des boutons on ou off dans plusieurs celulle d'une meme colonne???

Re,

pour gérer le "ou pas" :

Sub macro2()
With Feuil1.Buttons(Application.Caller).TopLeftCell
    If Selection.Count = 1 Then .Offset(0, 1).Resize(7, 5).Select Else: .Select
End With
End Sub

 

[Guido]

Re : Comment crés des boutons on ou off dans plusieurs celulle d'une meme colonne???

Re

La je suis un peu perdu

comment la macros peux savoir quelle sont mes chiffres que je desire ...

Je choisis moi meme les cinq chiffres..

C'est le pourkoi de ma demande de boution selectionneur...

Merci

Guido

 

[Pierrot93]

Re : Comment crés des boutons on ou off dans plusieurs celulle d'une meme colonne???

Re,

comprends pas... as tu testé les codes proposés ?

 

[Guido]

Re : Comment crés des boutons on ou off dans plusieurs celulle d'une meme colonne???

Re,

comprends pas... as tu testé les codes proposés ?

Re

Pierrot93

Oui,je vois des boutons dans la colonne,

apres avoir appuyé sur 5 boutons différends,rien ne colle dans la page C1Prete???

peut tu me guider un peu svp

Guido