Formulaire sous excel/VBA

Version imprimable

Bonjour à tous

voilà j'ai un petit problème sur excel/vba. je suis totalement débutant sur ça mais je dois faire dans le cadre d'un stage un petit programme pour gérer une liste de fournisseurs.

Voici comment se pose mon problème: j'ai une liste de fournisseurs sous un format excel (Nom en "A", Prénom en "B", etc..) et je dois créé un formulaire pour rajouter des nouveaux fournisseurs à l'aide d'un userform. Ils doivent rejoindre la liste et se classer par ordre alphabétique.

J'ai créé mon formulaire qui se compose de 6 variables à renseigner et des boutons "Ajout" et "Annuler".

voilà un peu où j'en suis pour le moment:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub Annuler_Click() Unload Me End Sub Private Sub AjouterIntervenant_Click() Nomconverti = Application.WorksheetFunction.Proper(Me.TextNom) Prenomconverti = Application.WorksheetFunction.Proper(Me.TextPrénom) Sheets("Feuil1").Cells(A).Value = Me.TextNom Sheets("Feuil1").Cells(B).Value = Me.TextPrénom Sheets("Feuil1").Cells(C).Value = Me.TextTéléphone Sheets("Feuil1").Cells(D).Value = Me.TextMail Sheets("Feuil1").Cells(E).Value = Me.TextEntreprise Sheets("Feuil1").Cells(F).Value = Me.TextAdresse Unload Me End Sub
Pour l'instant je devrais avoir les noms qui se rajoutent au fur et à mesure mais ça coince.

Pouvez-vous m'aider sur ce petit problème.

Merci

ps: Pour info j'utilise Excel 2007 sur Vista

Bonjour,
essaies ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub AjouterIntervenant_Click()
Dim nl As Integer
With Sheets("Feuil1")
nl = .Range("a100000").End(xlUp).Row
'là je n'ai pas regardé
Nomconverti = Application.WorksheetFunction.Proper(Me.TextNom)
Prenomconverti = Application.WorksheetFunction.Proper(Me.TextPrénom)
'la oui
.Cells(nl, 1).Value = Me.TextNom
.Cells(nl, 2).Value = Me.TextPrénom
.Cells(nl, 3).Value = Me.TextTéléphone
.Cells(nl, 4).Value = Me.TextMail
.Cells(nl, 5).Value = Me.TextEntreprise
.Cells(nl, 6).Value = Me.TextAdresse
End With
Unload Me
 
End Sub

16/04/2009, 15h13
columbus033
Classe merci beacoup ça marche.

En fait si j'ai bien compris, tu rajoutes le nom et tu le fais remonter jusqu'à la première ligne vide?

Maintenant ce que j'aimerais c'est que le fournisseur viennent se rajouter par ordre alphabétique dans la liste que j'ai déjà.

ps: Désolé de te demander ça mais étant complètement novice je n'ai pas compris à quoi sert ces lignes:
Code:

1 2 Dim nl As Integer With Sheets("Feuil1")
C'est pour déclarer une variable du genre "i"?
16/04/2009, 16h09
casefayere
Dim nl As Integer

c'est une variable à laquelle je donne la valeur de ta derniere cellule non vide

Code:

nl = .Range("a100000").End(xlUp).Row

'là j'ai mis 100000 parce que tu es sur excel 2007

Code:

With Sheets("Feuil1")

évite de répéter sans cesse le nom de la feuille sans oublier de mettre end with à la fin
ex :
Code:

1 2 3 with sheets("feuil1") nl=.Range("a100000").End(xlUp).Row end with
remplace

Code:

nl = sheets("feuil1").Range("a100000").End(xlUp).Row

pour ton fournisseur qui viendrait s'intégrer dans l'ordre alphabétique, pour ma part je continuerais à le mettre à la suite des autres et provoquerais un tri en fin de code
16/04/2009, 19h43
columbus033

Ok merci pour vos explications. j'ai à peu prêt résolu mon problème. Je vais essayer tout seul et je reviendrai si j'ai d'autres soucis
17/04/2009, 14h15
t'chi ben

Bonjour,

Je suis aussi nouveau en Excel / VBA.
Je viens de voir ce code et j'avais quelques questions car je ne comprends pas tous...

Citation:

Envoyé par casefayere

nl = .Range("a100000").End(xlUp).Row

Vous dites que vous avez mis 100000 à cause de Excel 2007, pourquoi?

Dans ce code qu'elle est la fonction qui permet d'incrémenter à ligne suivante?

merci
17/04/2009, 14h30
LeForestier

Citation:

Envoyé par casefayere

là j'ai mis 100000 parce que tu es sur excel 2007

Bonjour casefayere,
juste pour info, permet de ne pas tenir compte de la version...;)

Code:

.UsedRange.Rows.Count

A+
17/04/2009, 15h13
Invité

Bonjour T'chiben,

Citation:

Vous dites que vous avez mis 100000 à cause de Excel 2007, pourquoi?

Les versions précédentes pouvaient contenir un maximum de65536 lignes.

On aurait donc écrit :

Code:

nl = .Range("A65536").End(xlUp).Row

La version 2007 peut contenir 1.048.576 lignes, on peut donc écrire :

Code:

nl = .Range("A1048576").End(xlUp).Row

Citation:

Dans ce code qu'elle est la fonction qui permet d'incrémenter à ligne suivante?

il suffit d'ajouter "+1" après "Row"

Code:

nl = .Range("A1048576").End(xlUp).Row+1

il ne faut pas, évidemment, que la dernière ligne soit utilisée (ce qui n'est d'ailleurs jamais conseillé).

Remarque : à l'avenir n'hésitez pas à créer un nouveau sujet qui peut faire référence à celui-ci (vous copiez l'URL du sujet dans votre question) et vous indiquez un titre explicite et la version que vous utilisez (Choisir "Intitulé" à gauche du titre.

Vous pouvez regarder ici pour connaître les règles du forum :
http://club.developpez.com/regles/

Re bonjour,

voilà j'essaye de "m'amuser" un peu avec ce petit programme et j'ai un nouveau petit problème.

En fait quand je rajoute un nouveau fournisseur dans la liste cela la décale d'une ligne vers le bas. Normal vous me direz. Sauf que ma liste est "bordurée" sur chaque côté et donc à chaque fois la dernière se retrouve à nue.

J'ai essayé de regardé ce que cela fait avec un enregistrement de macro et de le transposer dans mon cas et voilà ce que j'ai fait:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 With DerLig.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With With DerLig.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With With DerLig.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With With DerLig.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With With DerLig.Borders(xlInsideVertical) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With With DerLig.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With
Mais ça ne marche pas. Je l'ai placé après le "end with" de mon rangement par ordre alphabétique.

Voilà merci de votre aide

Si tu veux garder ton "bordurage" ;) faut employer un autre moyen..

Code:

1
2
3
4
5
6
7
8
Sub CopieLigneAvecBordure()
    With Sheets("feuil1")
        nl = .Range("A65536").End(xlUp).Row
        .Rows(nl).Insert
        .Rows(nl + 1).Copy .Rows(nl )
        LeFourniseur.Copy .Cells(nl + 1, 1)
    End With
End Sub

A+

21/04/2009, 15h47
columbus033

Hum ça marche pas.

En fait deja qu'est-ce que tu as appelé le fournisseur parce que j'ai pas de variable de ce nom.

Et puis j'ai essayé en modifiant un peu mais en fait ça me copie la dernière ligne et me la met à la fin mais ça ne me rajoute pas de "bordurage"
21/04/2009, 16h56
LeForestier

Citation:

En fait quand je rajoute un nouveau fournisseur dans la liste cela la décale d'une ligne vers le bas

???????
21/04/2009, 20h05
columbus033

Euh oué je suivais mon idée mais c'est pas clair:D

En fait ça me copie la dernière ligne mais ca me rajoute pas de bordure

J'ai modifier la copie du nouveau fournisseur pour que l'explication soit plus claire,

Code:

1
2
3
4
5
6
7
8
9
Sub CopieLigneAvecBordure()
    With Sheets("feuil1")
        nl = .Range("A65536").End(xlUp).Row
        .Rows(nl).Insert
        .Rows(nl + 1).Copy .Rows(nl)
'Ajoute la donnée dans la colonne A, dernière ligne.
        .Cells(nl + 1, 1) = "Ici ajouter le nouveau fournisseur"
    End With
End Sub

Tu dis...