Incrire via userform

abc · 2 Août 2007

Bonsoir,
je désire via l' userform placer le nom en B4 et le prenom en C4 et ansi de suite jusque B20 et C20
Les titres qui sont en B3 et C3 doivent rester en place et les noms et prénoms s'inscrivent a partir de B4 et C4 .
Au fur et à mesure des entrées le tri alpha se fait mais se met en B1 et C1 et fait descendre le titre NOM (B3) et PRENOM(C3)

Un fichier comme exemple.
Merci d'avance
A +

JYLL · 2 Août 2007

Re : Incrire via userform

Bonsoir ABC et le Forum,

Voici ta Macro modifiée, elle devrait répondre à ta demande.

Code:

Private Sub valide_Click()
        Sheets("Feuil1").Activate
        Range("B20") = entree.nom.Value
        Range("C20") = entree.prenom.Value
        Range("B5:C20").Select
        Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        Range("d3").Select
     If (nom.Value <> "") Then
            Unload entree
        Else
            MsgBox " Veuillez inscrire le NOM"
    End If
 End Sub

Bon test.

Spitnolan08 · 2 Août 2007

Re : Incrire via userform

Bonsoir,

Une solution:

Code:

Private Sub valide_Click()
    With Sheets("Feuil1")
    .Range("B4").EntireRow.Insert
    .Range("B4") = entree.nom.Value
    .Range("C4") = entree.prenom.Value
    .Range("B3:C" & Range("B65500").End(xlUp).Row).Sort key1:=.Range("B3"), order1:=xlAscending, header:=xlGuess, _
        ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End With
 If (nom.Value <> "") Then
        Unload entree
    Else
        MsgBox " Veuillez inscrire le NOM"
     End If 
End Sub

Cordialement

Edit : Oups, pas rafraichi après divers dérangements... Bonsoir Jean-Yves Mais pas tout à fait le même code

Incrire via userform

abc

XLDnaute Impliqué

Pièces jointes

JYLL

Nous a quitté

Spitnolan08

XLDnaute Barbatruc

Discussions similaires