A voir également:
- Erreur d'exécution 91
- Erreur 0x80070643 - Guide
- Erreur 38 free ✓ - Forum Mobile
- Iptv erreur de lecture - Forum TV & Vidéo
- Erreur d'execution 13 ✓ - Forum Programmation
- Code erreur f3500-32 ✓ - Forum Bbox Bouygues
3 réponses
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 215
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
17187
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 mai 2024
1 704
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 ......