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!!!
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++
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 />
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...
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
