Suppression combobox

[Calvus]

Bonsoir,

Je m'adresse, aux Vbaistes....😛

Venant en aide à un nouveau venu sur le forum, je bute sur un point particulier. La discussion se trouve ici.

J'ai modifié le formulaire initial , et pour les besoins de l'exemple supprimé 2 combobox, les 8 et 9. Du coup bug dans la macro.

Si je modifie le code ici

For i = 1 To 49
Sheets("resultat").Cells(Ligne, i + 4) = UserForm1.Controls("ComboBox" & i)

en remplaçant 49 par 7

For i = 1 To 7
Sheets("resultat").Cells(Ligne, i + 4) = UserForm1.Controls("ComboBox" & i)

ça marche très bien.

J'ai donc renommé tous les combo suivants de façon à ne plus avoir de trou dans ma liste. Mais là, un bug " erreur d'execution 21470224809(80070057) objetspécifié introuvable ". Le bug semble se situer au niveau de userform1.show.

Quelle est la solution ?

Je joins les deux derniers fichiers qui posent problème.

Merci.

 

[frangy]

Re : Suppression combobox

Bonsoir,

Apparemment il manque les ComboBox33 et ComboBox34 dans l'Userform1.

A+

 

[Calvus]

Re : Suppression combobox

Bonsoir Frangy,

Oui en effet, j'avais oublié cette fois ci la 3eme page. Mais après modif, rien n'y fait. J'ai le même problème.

Merci

 

[frangy]

Re : Suppression combobox

J'ai placé un test pour sauter les ComboBox 33 et 34 et je n'ai pas d'erreur.

 

[Calvus]

Re : Suppression combobox

En effet. Comment expliques tu que l'erreur continue à se produire chez moi ? Faut il que je laisse le test en place ?

EDIT : L'erreur reste chez moi même en plaçant ton test....😕

 

[frangy]

Re : Suppression combobox

Montre ton fichier modifié.

 

[Calvus]

Re : Suppression combobox

ok merci. Voici

 

[frangy]

Re : Suppression combobox

Je vois que ta boucle est toujours calée sur un max à 49 alors que tu t'arrêtes maintenant à 47 ComboBox.

 

[Calvus]

Re : Suppression combobox

Oui, tu as raison. C'est parce que j'ai essayé en mettant 47, rien, j'ai donc remis 49 pour un nouveau test avant de renvoyer le fichier.

 

[frangy]

Re : Suppression combobox

Attention, tu as 2 boucles à corriger,
La première dans UserForm_Initialize() et la seconde dans CommandButton1_Click.

 

[Calvus]

Re : Suppression combobox

Super, merci 🙂 j'ai encore pas mal de progrès à faire et des réflexes à acquérir en vba.

Je vais bientôt coincer sur d'autres points. je reviendrai avec mes nouvelles questions.

Bonne fin de soirée.

 

[Calvus]

Re : Suppression combobox

Bonsoir,

Je sèche !
J'ai modifié le classeur, et ai pu petit à petit obtenir les valeurs souhaitées.
Mais ça ne fonctionne pas pour les combos. Est-ce parce qu'il faut des cellules continues ?
J'ai déclaré une seconde variable, j, et ça marche seulement pour les valeurs 1 et 2.
Pouvez vous m'aider à voir ce que j'ai loupé, merci.

 

[Calvus]

Re : Suppression combobox

C'est bon, j'ai trouvé, il fallait enlever le "If".