Completer feuille excel avec userform...merci! [Résolu]

Signaler
Messages postés
63
Date d'inscription
mercredi 16 juillet 2008
Statut
Membre
Dernière intervention
15 juillet 2009
-
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
-
bonjour,

jai une feuille excel et un userform je souhaiterai qu en remplissant mon userform je clik sur valider
et que ca remplisse mes cases A1 A2 A3 etant nom prenom entreprise
et si je rempli encore le user form il me lecrive en B1 B2 B3
et quil le fasse tout seul le changement de ligne
en fait si la ligne est remplie quil passe a la suivante pour ecrire dedans
merci a vous
PS de plus jaimerai quen donnant un nom il me sorte la ligne correspondante
merci a tous!!!

8 réponses

Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
1
Salut ,
Voici un exemple ,
----------------------------------------------------------


Private Sub CommandButtonNouveau_Click()
   UserForm1.Show
End Sub
----------------------------------------------------------
Option Explicit



Private Sub UserForm_Initialize()



 Dim DerniereLigneNonVide As Long
 Dim i As Long



'Cherche la derniere ligne vide
 DerniereLigneNonVide = Feuil1.Range("a65536").End(xlUp).Row
 
'remplit de combobox
 For i = 2 To DerniereLigneNonVide
 Me.ComboBoxNom.AddItem Feuil1.Cells(i, 1).Value
 Next



'Indique le nombre
 UserForm1.Caption = "Nouvelle saisie   " & " - [" _
                    & DerniereLigneNonVide - 1 & " personnes]"
 
End Sub
-------------------------------------------------------------
Private Sub CommandButtonInserer_Click()
Dim DerniereLigneVide As Long
Dim i
'Controle saisie
If Trim(Me.ComboBoxNom.Value) = "" Then
   MsgBox "Nom manquant", vbInformation, "Saisie"
   Exit Sub
End If
If Trim(Me.ComboBoxPrénom.Value) = "" Then
   MsgBox "Prénom manquant", vbInformation, "Saisie"
   Exit Sub
End If
If Trim(Me.ComboBoxEntreprise.Value) = "" Then
   MsgBox "Entreprise manquante", vbInformation, "Saisie"
   Exit Sub
End If



'Cherche la derniere ligne vide
 DerniereLigneVide = Feuil1.Range("a65536").End(xlUp).Row + 1
 
 'Recherche si existe
 For i = 2 To DerniereLigneVide
 If Trim(Feuil1.Cells(i, 1).Value) & _
    Trim(Feuil1.Cells(i, 2).Value) = _
    Trim(Me.ComboBoxNom.Value) & Trim(Me.ComboBoxPrénom.Value) Then
    MsgBox "Nom/Prénom existant !", vbInformation, "Saisie"
    Me.ComboBoxNom.Value = ""
    Me.ComboBoxPrénom.Value = ""
    Exit Sub
 End If
 Next
 
  'Insertion dans liste
 Feuil1.Cells(DerniereLigneVide, 1).Value = _
 Trim(Me.ComboBoxNom.Value)
 Feuil1.Cells(DerniereLigneVide, 2).Value = _
 Trim(Me.ComboBoxPrénom.Value)
 Feuil1.Cells(DerniereLigneVide, 3).Value = _
 Trim(Me.ComboBoxEntreprise.Value)



 'Ferme formulaire
Me.Hide
 
End Sub 
----------------------------------------------------------- 

Il te reste à nommer les controles suivant le code et à
trouver la ligne suivant le nom selectionnée:
Tu peux utiliser "Find".Sert toi les Aides sur Excel.
A++
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
1
Salut,
Donne ton code et où tu bloques....
Merci

S.L.B.

<hr />Si ton patron te dit que l'entreprise est une grande famille, attends toi à travailler pour ses nieces neveux etc...
<hr />
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
1
Re:

Alors, je pense que l'on va avoir un soucis...
Il te reste à nommer les controles suivant le code et à
trouver la ligne suivant le nom selectionnée:
Tu peux utiliser "Find".Sert toi les Aides sur Excel.

Je ne vais pas faire TON travail.
Je te demandais ton code pour t'aider...

donc en effet, il te reste à nommer les contrôles suivant le code et à trouver la ligne suivant le nom selectionné.
Tu sais ce genre de remarque fait prendre la mouche...
Maintenant, si tu me rénumere pour ce travail la ok...
Bon coding

S.L.B.

<hr />Si ton patron te dit que l'entreprise est une grande famille, attends toi à travailler pour ses nieces, neveux....
<hr />
Messages postés
63
Date d'inscription
mercredi 16 juillet 2008
Statut
Membre
Dernière intervention
15 juillet 2009

merci dedenet2 cest parfait je lai adapte et ca marche a merveille!
merci encore
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
Salut,

oupss [auteur/LILLITH212/1208539.aspx lillith212]je crois qu'il y a erreur sur la pesonne
Messages postés
63
Date d'inscription
mercredi 16 juillet 2008
Statut
Membre
Dernière intervention
15 juillet 2009

ouahh il a craque complet...
il a pa vu qui etait le demandeur lol
il sest emballe tout seul...
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
1
Re:

Oui ELLE s'est emballée et ELLE n'a pas fait attention
Ben oui lillith est une femme... Ca arrive... Même à des gens bien ^^
Désolée de la confusion...

S.L.B.

<hr />
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
1
Bonjour à tous et à toutes ,
Pas grave pour cette confusion !

Je me ne permettrai pas de demander à quelqu'un de
faire le travail à ma  place de cette facon.
J'essaie d'aider un débutant mais comme c'est la règle
dans ce forum , je lui ai donné des piste pour continuer son programme et pour qu'il s'investisse.
Affaire classée !
Bonne nuit