Mise en forme conditionnel et combobox

Fermé

Dudugris Messages postés 5 Date d'inscription mercredi 16 septembre 2015 Statut Membre Dernière intervention 23 septembre 2015 - Modifié par pijaku le 24/09/2015 à 13:34
Dudugris Messages postés 5 Date d'inscription mercredi 16 septembre 2015 Statut Membre Dernière intervention 23 septembre 2015 - 23 sept. 2015 à 15:19

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 :

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

A voir également:

Mise en forme conditionnel et combobox
Mise en forme conditionnelle excel - Guide
Mise en forme conditionnelle en fonction d'une autre cellule ✓ - Forum Excel
Étendre une mise en forme conditionnelle ✓ - Forum Excel
Mise en forme tableau croisé dynamique - Guide
Appliquer mise en forme conditionnelle sur tout le classeur ✓ - Forum Bureautique

1 réponse

Réponse 1 / 1

f894009 Messages postés 17192 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 juin 2024 1 708
23 sept. 2015 à 14:17

Bonjour,

ce n'est pas votre code qui supprime les MFC, je l'ai teste et c'est ok

Dudugris Messages postés 5 Date d'inscription mercredi 16 septembre 2015 Statut Membre Dernière intervention 23 septembre 2015
Modifié par pijaku le 24/09/2015 à 13:34

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

f894009 Messages postés 17192 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 juin 2024 1 708 > Dudugris Messages postés 5 Date d'inscription mercredi 16 septembre 2015 Statut Membre Dernière intervention 23 septembre 2015
23 sept. 2015 à 14:35

Re,

La boucle

For 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 ???

Dudugris Messages postés 5 Date d'inscription mercredi 16 septembre 2015 Statut Membre Dernière intervention 23 septembre 2015 > f894009 Messages postés 17192 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 juin 2024
23 sept. 2015 à 15:19

Re,

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.

Discussions similaires

Boucle sur la première diapositive d'une présentation

document html

Mise en forme conditionnelle 2 conditions

Table des matières dont les titres n'apparaissent pas..

Encadrement d'un Titre intégré au cadre

Discussions similaires

Newsletters