Userform et notes de frais

[DIM]

bonjour ,

je suis nouveau sur le forum , et j essaye de creer des userform pour les notes de frais des employes . malheureusement mes competences ne me permettent pas d'avancer .

merci pour votre aide [file name=note de frais_20050406090032.zip size=12943]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/note de frais_20050406090032.zip[/file]

 

[Hervé]

Bonjour

Je t'ai fait en pièce jointe une ébauche un peu avancer pour la saisie des notes.

Ceci doit te permettre d'avancer, pour le deuxième userform je n'ai pas trop le temps aujourd'hui, mais ce serait bien que tu fasses la base.

A plus

salut
[file name=note de frais2_20050406112526.zip size=17951]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/note de frais2_20050406112526.zip[/file]

 

[DIM]

Merci beaucoup pour ton aide ,
voici la suite . si tu as du temps à me consacrer .

 

[DIM]

Désolé voici le fichier .
[file name=note de frais2_20050412093609.zip size=18356]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/note de frais2_20050412093609.zip[/file]

 

[DIM]

Désolé voici le fichier .
[file name=note de frais2_20050412093623.zip size=18356]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/note de frais2_20050412093623.zip[/file]

 

[DIM]

Désolé voici le fichier .
[file name=note de frais2_20050412110651.zip size=18356]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/note de frais2_20050412110651.zip[/file]

 

[Hervé]

Bonjour

Très vite fait, code à placer dans l'userform de l'état :

Private Sub ComboBox1_Change()
Dim tablo As Variant
Dim tabloresultat(1 To 1, 1 To 11)
Dim i As Byte, j As Byte, k As Byte

tablo = Range('a5:k' & Range('a65536').End(xlUp).Row)

For i = 1 To UBound(tablo, 1)
    If tablo(i, 1) = ComboBox1.Value Then
        For j = 4 To 11
            tabloresultat(1, j) = tabloresultat(1, j) + tablo(i, j)
        Next j
    End If
Next i

For k = 2 To 9
    controls('TextBox' & k) = tabloresultat(1, k + 2)
Next k

End Sub

Pour l'impression je te conseillerai de renvoyer les valeurs de l'userform vers une feuille, et d'imprimer celle-ci.

Salut

 

[DIM]

Oh secours

j y arrive poh ...... [file name=note de frais2_20050412132105.zip size=20159]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/note de frais2_20050412132105.zip[/file]

 

[Hervé]

re

voila

Salut
[file name=note de frais2_20050412133817.zip size=22983]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/note de frais2_20050412133817.zip[/file]

 

[DIM]

Hervé merci pour ton aide mais j ai rajouté quelques elements dans la userform ajout ligne : ajout nom , je vois pas tres bien comment je pourrais faire , de plus j aimerais avoir aussi un userform 'contact' pour pouvoir avoir les infos du pesonnel comme le contact telephonique

encore merci [file name=note de frais2_20050412164913.zip size=26555]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/note de frais2_20050412164913.zip[/file]

 

[Hervé]

re re re

Dim, je n'ai pas l'attention de te faire ton application complète, sinon va falloir que tu viennes faire mon boulot.

En plus je suis pas sur que c’est te rendre service que de tout faire pour toi.

Tu as tout dans ce fichier pouvant te permettre d’apprendre :

- des userforms
- des initialisations de combobox
- des renvois vers les feuilles
- des retours dans des textbox
- un tableau dynamique.

Vraiment y’a de quoi bien avancé par l’intermédiaire de ' ton ' fichier, à toi de t’en servir, de découvrir, de modifier pour voir l’effet qui en résulte, et surtout n’hésites pas à appuyer sur la touche F1 pour une aide précise et rapide.

Voilà

A bientôt

Salut
[file name=note de frais3_20050412173357.zip size=31523]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/note de frais3_20050412173357.zip[/file]