Problème de listing des CheckBox.

[Hulk]

Hello tout le monde,

Quelqu'un pourrait-il m'expliquer pourquoi l'un des deux codes (Macro 1) dans le fichier joint ne joue pas 😕

Merci pour l'aide !

Cdt, Hulk.

 

[Robert]

Re : Problème de listing des CheckBox.

Bonjour Hulk, bonjour le forum,

Essaie comme ça :

Private Sub BntMacro1_Click()
Dim i As Byte
For i = 1 To 5
    Cells(i, 1).Value = ActiveSheet.OLEObjects("CheckBox" & i).Name
Next i
End Sub

 

[Pierrot93]

Re : Problème de listing des CheckBox.

bonjour Hulk

essaye ainsi, si j'ai bien compris :

    Dim i As Byte
    Dim x As Range
    
    Set x = [A1:A5]
    
    For i = 1 To 5
        x[COLOR="Red"][B](i) [/B][/COLOR]= ActiveSheet.OLEObjects("CheckBox" & i).Name
    Next i

bonne journée
@+

Aarf Bonjour Robert... plus rapide d'un poil de seconde..

 

[Compte Supprimé 979]

Re : Problème de listing des CheckBox.

Salut Hulk,

Normal, tu attribue une plage à ta variable "x"
dans laquelle tu inscrit le nom de tes Checkbox 😕

Penses à faire du pas à pas dans tes codes, tu verrais tout de suite le problème 😉

Comme cela, ça va aller tout de suite mieux

Private Sub BntMacro1_Click()
  Dim i As Byte
  For i = 1 To 5
    Range("A" & i).Value = ActiveSheet.OLEObjects("CheckBox" & i).Name
  Next i
End Sub

A+

Edit : oups, salut Robert, Pierrot93, Gyruss ;-)
La photo en avatar j'ai toujours trouvé ça un tantinet too much

 

[job75]

Re : Problème de listing des CheckBox.

Bonjour Hulk,

T'as programmé un peu vite, non ?

Private Sub BntMacro1_Click()
    
    Dim i As Byte
    Dim x As Range
    
    Set x = [A1]
    
    For i = 1 To 5
        x.Offset(i - 1) = ActiveSheet.OLEObjects("CheckBox" & i).Name
    Next i

End Sub

Edit 1 : y a du monde, salut à tous 🙂

Edit 2: ou encore :

Private Sub BntMacro1_Click()
    
    Dim i As Byte
    Dim x As Range
    
    Set x = [A1:A5]
    
    For i = 1 To 5
        x.Cells(i, 1) = ActiveSheet.OLEObjects("CheckBox" & i).Name
    Next i

End Sub

A+

 

[Hulk]

Re : Problème de listing des CheckBox.

Hello les amis 😀

Merci pour vos réponses et vos explications... à tous !

Je sionne, nalyse et range tout ça dans mon tiroir magique !

Sûr que toutes vos proposition jouent... laquelle choisir 😀

Merci infinimment !

Bon Week !

Hulk.