Mise en forme conditionnel et combobox
Bonjour,
J'ai créé un questionnaire qui fonctionne. Je récupère des données de ComboBox et CheckBox que j'enregistre dans différents fichiers Excel.
Mais, avec les ComboBox a la copie dans les fichiers Excel je perd toutes mes mise en forme conditionnel, elles sont supprimé de ma feuille ! Ce qui ne ce produit pas avec les CheckBox sur une autre feuille du claseur vue que je retourne Oui ou Non si la case est coché ou non.
mon code :
J'ai créé un questionnaire qui fonctionne. Je récupère des données de ComboBox et CheckBox que j'enregistre dans différents fichiers Excel.
Mais, avec les ComboBox a la copie dans les fichiers Excel je perd toutes mes mise en forme conditionnel, elles sont supprimé de ma feuille ! Ce qui ne ce produit pas avec les CheckBox sur une autre feuille du claseur vue que je retourne Oui ou Non si la case est coché ou non.
mon code :
For i = 1 To 50
If UserForm1.Controls("Combobox" & i) = "" Then
wsExcel.Cells(i + 4, z + 1) = "Pas de réponse"
Else
wsExcel.Cells(i + 4, z + 1) = UserForm1.Controls("ComboBox" & i)
End If
Next i
1 réponse
-
Bonjour,
ce n'est pas votre code qui supprime les MFC, je l'ai teste et c'est ok-
Je suis perdu, quand je change le code avec :
For i = 1 To 50 If UserForm1.Controls("Combobox" & i) = "" Then wsExcel.Cells(i + 4, z + 1) = "Pas de réponse" Else x = Left(UserForm1.Controls("ComboBox" & i), 1) For k = 1 To 10 If x = k Then wsExcel.Cells(i + 4, z + 1) = k End If Next k End If
La les MFC reste !
Je ne renvoie plus le contenue de ma combobox mais une valeur. Les réponse a mes question commence par 1,2,3 ...
Y a t il un paramètre a modifier dans la combobox de mon userform ?
Je suis en Microsoft VB 7 -
@DudugrisRe,
La boucleFor k = 1 To 10
ne sert a rien et
question commence par 1,2,3 Ben oui, puisque vous prenez x qui a pour valeur le premier caractere a gauche de vos combobxs
Pouvez mettre vos fichers sans donnees sensibles a dispo ??? -
@f894009Re,
C'est les réponses dans mes combobox qui commence par 1- ou 2- ...
J'ai utilisé cette méthode en attendant pour contourner mon problème.
Je nettoie les fichiers et les met a disposition.
-
