realisation d'un userform

Question

bonsoir

je souhaiterais creer un userform avec un textbox, un combobox, et des dtpickers (10).

dans le combobox, recuperer une liste que j'ai en colonne de a1 a a100.
dans le textbox mettre un texte, qui ce mettrais a suivre dans ma liste cite ci dessus.
et des dtpickers, qui se mettrais a suivre, en fonction du nom, dans les cellules adjacentes (a droite) que j'aurais choisis dans mon combobox.

dans les cellules, ou j'ai des dates, selectionner par les dtpickers,
quand la date est aujourd'hui, mettre en couleur verte,
et quand la date est depassee, quelle soit en rouge.

je ne sais pas si je suis assez clair, dans ce que je souhaite faire.
en manuel je sais le faire, mais pas avec du code vba
merci
cris

CGSI3 · Answer

Bonjour,
Pas trop clair en effet, mais on va faire comme ci on avait compris

Tu dois te renseigner sur les évenements de tes controls
(Regarde sur google, mais réfléchit bien a leurs déclenchements)

Tu devras a mon avis avoir une table avec en première colonne des clés pour retrouver la ligne de ta combobox sélectionné. 

La fonction RechercheV ou en VBA
Application.WorksheetFunction.VLookup te sera ensuite utile
Il ne faut pas oublier de trier le tableau de départ par les clés
en ce cas pour bien faire fonctionner cette fonction

Pour trier un tableau:
Le selectionner puis utiliser [Donnée] [Trier] dans le menu

Voici aussi 2 fonctions qui répondent a tes attentes:

Charger un combobox en multicolonnes ou en colonne simple
 (marche aussi pour listbox)
ComboBox1.Clear
ComboBox1.RowSource = "Feuil1!A1:B100"

Tu dois verifier certains parametres sur ta combobox, 
(taille de colonne et entetes )
 Lit ce post pour te faire une idée
http://www.developpez.net/forums/d75265/autres-langages/general-visual-basic-6-vbscript/vb-6-anterieur/affichage-combobox-multi-colonnes/

Pour le coloriage de cellules sous conditions:

For Each cell In ActiveSheet.UsedRange
   If IsDate(cell.Value) Then
      If DateValue(cell.Value) = DateValue(Now()) Then
         cell.Interior.ColorIndex = 3
      Else
         cell.Interior.ColorIndex = 4
      End If
   End If
Next
(il te suffit de mettre .Range(D1:D20), pour définir ta zone a modifier,
a la place de UsedRange qui reprend toute la feuille) 

Et voici une liste de ColorIndex



Avec tout ça tu devrais t'en sortir ... 
Bonne Prog CGSI3

chris09300 · Answer

je travail sur excel 2007.
je ne comprend pas pourquoi tu veux que je creer une table.
Tu pense que je suis sur access.
cris

chris09300 · Answer

je m'explique:
sous excel 2007, je souhaite creer un userform, avec un texbox, 10 dtpickers, et un combox.
dans mon combox, je vais chercher ma liste qui se trouve sur la feuille Donnees de A1 a A100.
en fonction du nom selectionner dans mon combox, je voudrais que les dates choisies dans les dtpickers, que ces dates s'affiche les unes a cotes des autres.

merci d'avance.
cris

Realisation d'un userform

3 réponses

Votre réponse

Discussions similaires