Creer un interface vba [Résolu]

requim 3 Messages postés samedi 27 mai 2006Date d'inscription 26 avril 2007 Dernière intervention - 21 avril 2007 à 11:20 - Dernière réponse : requim 3 Messages postés samedi 27 mai 2006Date d'inscription 26 avril 2007 Dernière intervention
- 26 avril 2007 à 17:59
Bonjour,


Je dois creer une interface. en colonne en ligne j'ai secteur 1-35 puis semaine 1-52 et ensuite résultat obtenu. donc je dois creer une cheklist pour choisir secteur puis la semaine et enfin entrée le résultat obtenu dans la ligne correspondante a ces deux choix.
Merci!!!
Afficher la suite 

Votre réponse

4 réponses

mortalino 6812 Messages postés vendredi 16 décembre 2005Date d'inscription 21 décembre 2011 Dernière intervention - 21 avril 2007 à 13:08
+3
Utile
Salut,

C'est pas très clair, as-tu plus de précisions stp ?
Je suppose qu'il y a des infos à récupérer depuis une feuille Excel à mettre dans ton Interface, mais quelles sont ces plages de données ?
Dans quel type de control veux-tu que cela s'affiche ?

@++

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
  
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de mortalino
requim 3 Messages postés samedi 27 mai 2006Date d'inscription 26 avril 2007 Dernière intervention - 22 avril 2007 à 23:43
+3
Utile
j'ai crée deux listes secteurs et semaines

j'ai colonne A secteurs, B semaines, C résultat obtenu.

j'ai crée une boite de dialogue. Je voudrais une checklist où on choisirai le secteur puis la semaine et on entrerai le résultat obtenu et quand on clique sur OK le résultat se place au bonne endroit.

J'espère que c'est plus compréhensible. Merci!!!!!
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de requim
mortalino 6812 Messages postés vendredi 16 décembre 2005Date d'inscription 21 décembre 2011 Dernière intervention - 22 avril 2007 à 23:48
+3
Utile
Et bien tu peux faire un truc style :

   Dim i As Long

For i = 1 To Range("A65535").End(xlUp).Row   If Cells(i, 1).Text TaListeBoxSecteur.Text And Cells(i, 2).Text TaListeBoxSemaine.Text Then
      Cells(i, 3).Text = "ce que tu veux": Exit For
   End If
Next i

@++

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
  
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de mortalino
requim 3 Messages postés samedi 27 mai 2006Date d'inscription 26 avril 2007 Dernière intervention - 26 avril 2007 à 17:59
+3
Utile
Private Sub UserForm_Activate()
txt_OR = ""


Dim ad As Integer
Dim ad1 As Integer
ad1 = 2
ad = 2
ComboBoxSemaine.Clear
ComboBoxSecteur.Clear


    Do 'selectionne toutes les données de la colonne et les met dans la liste de la combobox auditeur
        Module1.listesemaine = Sheets("Audits").Cells(ad, 1) 'la liste est égale à la cellule
        ComboBoxSemaine.AddItem (listesemaine) 'ajoute la valeur de liste à la combobox
        ad = 1 + ad 'permet en incrémentant la valeur de equ de décaler la cellule d'une ligne
    Loop Until Sheets("Audits").Cells(ad, 1) = "" 'jusqu'a temps que la cellule active soit une cellule vide


    Do
        Module1.listesecteur = Sheets("Audits").Cells(1, ad1)
        ComboBoxSecteur.AddItem (listesecteur)
        ad1 = 1 + ad1
    Loop Until Sheets("Audits").Cells(1, ad1) = ""


End Sub


Private Sub valider_Click()


Sheets("Audits 5.S.").Select


If ComboBoxSecteur.Value = "Secteur BRET" Then    If ComboBoxSemaine.Value "1" Then Range("B3") txt_OR And Range("B3").NumberFormat = "0"    If ComboBoxSemaine.Value "2" Then Range("C3") txt_OR And Range("C3").NumberFormat = "0"

End If

MsgBox ("Votre audit est bien ajouter!  ")


eUA.Hide


End Sub

Voici le résultat.Merci Mortalino pour ton aidePeut-être que ta méthode était plus simple mais je n'ai pas réussi à appliquer encore merci !!!!
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de requim

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.