Mise en forme conditionnel et combobox

Dudugris Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
Dudugris Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -
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


1 réponse

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    ce n'est pas votre code qui supprime les MFC, je l'ai teste et c'est ok
    0
    1. Dudugris Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
       
      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
      0
      1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > Dudugris Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
         
        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 ???
        0
      2. Dudugris Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention  
         
        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.
        0