completer feuille excel avec userform...merci!Résolu

Question

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!!!

dedenet2 · Accepted Answer

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++

lillith212 · Answer

Salut, Donne ton code et où tu bloques.... Merci S.L.B.

Si ton patron te dit que l'entreprise est une grande famille, attends toi à travailler pour ses nieces neveux etc...

lillith212 · Answer

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.

Si ton patron te dit que l'entreprise est une grande famille, attends toi à travailler pour ses nieces, neveux....

louvierseb · Answer

merci dedenet2 cest parfait je lai adapte et ca marche a merveille!
merci encore

bigfish_le vrai · Answer

Salut,

oupss [auteur/LILLITH212/1208539.aspx lillith212]je crois qu'il y a erreur sur la pesonne

louvierseb · Answer

ouahh il a craque complet...
il a pa vu qui etait le demandeur lol
il sest emballe tout seul...

lillith212 · Answer

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 />

dedenet2 · Answer

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

Completer feuille excel avec userform...merci!

8 réponses

Votre réponse