Problème boucles Checkbox Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
X
Xmastree14
Jeune membre
Jeune membre
Messages : 23
Inscrit le : 18 juillet 2019
Version d'Excel : 2016
Version de Calc : 2016

Message par Xmastree14 » 18 juillet 2019, 10:24

Bonjour,

Je bloque sur un bout de programme qui à pourtant l'air tout bête ( faut dire que mes bases c'est pas trop ça ) :mrgreen:
En gros j'ai 26 Checkbox face à 26 Label, et j'aimerais que lorsqu'on s'acquitte du menu, tous les labels correspondant aux checkbox cochées soient listés. Par exemple, admettons que Checkbox7, Checkbox12, et Checkbox21 soient cochées, j'aimerais qu'il soit renvoyé sur ma Feuil1 : Label7 en A1; Label12 en A2; Label21 en A3...

J'avais donc pensé à un truc du genre :

Private Sub CommandButton2_Click()

Dim ligne As Integer
For i = 1 To 26
If ("CheckBox" & i).Value = True
Then Range ("A1").Value = ("Label" & i).Value
ligne = Sheets("Feuil1").Range("A456541").End(xlUp).Row + 1
Next i

End Sub

Ce qui présente surement de nombreux problèmes de syntaxe :lole:

A l'aiiiiiiide :(
v
vince1512
Membre fidèle
Membre fidèle
Messages : 221
Appréciations reçues : 25
Inscrit le : 23 avril 2019
Version d'Excel : 2010 EN

Message par vince1512 » 18 juillet 2019, 10:28

Et de cette manière ?

Dim ligne As Integer
ligne = 1
For i = 1 To 26
If ("CheckBox" & i).Value = True Then
Range ("A" & ligne).Value = ("Label" & i).Value
ligne = Sheets("Feuil1").Range("A456541").End(xlUp).Row + 1
Next i

Edit : j'ai envoyer par erreur le message, je reviens vite avec une solution
Modifié en dernier par vince1512 le 18 juillet 2019, 10:31, modifié 1 fois.
:btres:
X
Xmastree14
Jeune membre
Jeune membre
Messages : 23
Inscrit le : 18 juillet 2019
Version d'Excel : 2016
Version de Calc : 2016

Message par Xmastree14 » 18 juillet 2019, 10:30

Salut,

Hélas non, même message d'erreur pour la même ligne (If ("CheckBox" & i).Value = True Then)
v
vince1512
Membre fidèle
Membre fidèle
Messages : 221
Appréciations reçues : 25
Inscrit le : 23 avril 2019
Version d'Excel : 2010 EN

Message par vince1512 » 18 juillet 2019, 10:34

Voilà ça devrait convenir ::D
Dim ligne As Integer
ligne = 1
For i = 1 To 4
	If Controls("CheckBox" & i).Value = True Then
            Range("A" & ligne).Value = Controls("Label" & i).Caption
            ligne = Sheets("Feuil1").Range("A456541").End(xlUp).Row + 1
        End If
Next i
:btres:
X
Xmastree14
Jeune membre
Jeune membre
Messages : 23
Inscrit le : 18 juillet 2019
Version d'Excel : 2016
Version de Calc : 2016

Message par Xmastree14 » 18 juillet 2019, 10:40

J'ai un autre message d'erreur :|

"Erreur d’exécution '-2147024809 (80070057)':

Objet spécifié introuvable

(Sur la ligne : Range("A" & ligne).Value = Controls("Label" & i).Caption)$

EDIT : Mais en fait je crois avoir trouvé le problème, la numérotation de mes label était pas bonne :lole:
Je fais deux trois modif voir, je pense que ca vient de la
v
vince1512
Membre fidèle
Membre fidèle
Messages : 221
Appréciations reçues : 25
Inscrit le : 23 avril 2019
Version d'Excel : 2010 EN

Message par vince1512 » 18 juillet 2019, 10:43

Si l'erreur parvient après plusieurs itérations c'est surement parce que j'ai oublié de modifier
For i = 1 To 4
en
For i = 1 To 26
Effectue la modification

Selon internet, cette erreur est déclenché lorsqu'on appel un contrôle n'existant pas
:btres:
X
Xmastree14
Jeune membre
Jeune membre
Messages : 23
Inscrit le : 18 juillet 2019
Version d'Excel : 2016
Version de Calc : 2016

Message par Xmastree14 » 18 juillet 2019, 10:48

Oui exact, mais si 1 a 26 existent alors 1 a 4 aussi donc c'était pas le problème,
en revanche la je suis pas bien du coups, mes Label sont pas du tout définis de 1 à 26, j'ai des Label120, des Label166... :cry:

Il y'a pas un interface sur VBA qui recense tous les objets d'un userform avec leur dénomination?
v
vince1512
Membre fidèle
Membre fidèle
Messages : 221
Appréciations reçues : 25
Inscrit le : 23 avril 2019
Version d'Excel : 2010 EN

Message par vince1512 » 18 juillet 2019, 10:54

Pas à ma connaissance, aller un peu de courage il y en a QUE 26 à faire :lole:
:btres:
X
Xmastree14
Jeune membre
Jeune membre
Messages : 23
Inscrit le : 18 juillet 2019
Version d'Excel : 2016
Version de Calc : 2016

Message par Xmastree14 » 18 juillet 2019, 10:57

Yesss, ça fonctionne, merci à toi 8[] !
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message