A voir également:
- Erreur d'exécution 91
- Erreur d'execution 1004 - Forum Programmation
- Erreur 1004 vba ✓ - Forum VB / VBA
- Erreur d'execution 91 ✓ - Forum VB / VBA
- Erreur d'execution 13 ✓ - Forum Programmation
- Erreur 1000 france tv - Forum MacOS
3 réponses
eriiic
Messages postés
24509
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
10 mars 2023
7 166
16 avril 2015 à 12:23
16 avril 2015 à 12:23
Bonjour,
La proposition de f894009 n'est valable que si tu n'as pas de cellules vides.
Si jamais c'est ce que tu voulais gérer je vois plutôt ça pour raccourcir un peu ton code et le rendre plus lisible.
A ce sujet tu as une icone <> pour formater ton code ici...
Mais pour ton erreur 91 à mon avis elle va persister. Sans fichier de test et les manip pour reproduire l'erreur impossible de répondre.
eric
La proposition de f894009 n'est valable que si tu n'as pas de cellules vides.
Si jamais c'est ce que tu voulais gérer je vois plutôt ça pour raccourcir un peu ton code et le rendre plus lisible.
A ce sujet tu as une icone <> pour formater ton code ici...
Worksheets("Produits").Activate
Dim g As Long
g = 2
While Cells(g, 13) <> ""
If OptionButton6.Caption = "" Then
OptionButton6.Caption = Cells(g, 13)
ElseIf OptionButton7.Caption = "" Then
OptionButton7.Caption = Cells(g, 13)
ElseIf OptionButton8.Caption = "" Then
OptionButton8.Caption = Cells(g, 13)
ElseIf OptionButton9.Caption = "" Then
OptionButton9.Caption = Cells(g, 13)
ElseIf OptionButton10.Caption = "" Then
OptionButton10.Caption = Cells(g, 13)
ElseIf OptionButton11.Caption = "" Then
OptionButton11.Caption = Cells(g, 13)
End If
g = g + 1
Wend
Mais pour ton erreur 91 à mon avis elle va persister. Sans fichier de test et les manip pour reproduire l'erreur impossible de répondre.
eric
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
16 avril 2015 à 08:28
16 avril 2015 à 08:28
Bonjour,
c'est un peu plus simple comme ceci:
c'est un peu plus simple comme ceci:
With Worksheets("Produits")
.OptionButton6.Caption = Cells(2, 13)
.OptionButton7.Caption = Cells(3, 13)
.OptionButton8.Caption = Cells(4, 13)
.OptionButton9.Caption = Cells(5, 13)
.OptionButton10.Caption = Cells(6, 13)
.OptionButton11.Caption = Cells(7, 13)
End With
Modifié par f894009 le 16/04/2015 à 13:07
Ca serait un peu balot de vouloir ecrire avec une liste a trou
16 avril 2015 à 13:49
16 avril 2015 à 13:52
La saison du cyclisme vient de commencer ......