MODIFIER CODES USERFORM

cj welch

XLDnaute Occasionnel
Bonjour ,

je voudrais modifier les codes de l'userform que j' ai crée pour les adapter au tableau suivant (voir pj)
je rentre un nom et prénom dans l'userform et il faudrait que sa incremente la liste de mon tableau en gardant le format des cellules.
idem lorsque je veut supprimer un nom

merci pour votre aide

cordialement
 

Pièces jointes

  • TABLEAU essai.xls
    60 KB · Affichages: 61

cj welch

XLDnaute Occasionnel
Bonsoir,

j' ai réussi à modifier une grande partie des codes,
je bloc sur le code suivant :
Private Sub CommandButton2_Click()
Dim DernL As Integer
If TextBox1.Value = "" Then
MsgBox "Vous avez oublier de rentrer le nom de la personne."
Exit Sub
End If
If TextBox2.Value = "" Then
MsgBox "Vous avez oublier de rentrer le Prénom de la personne."
Exit Sub
End If
With ActiveSheet 'Worksheets("Janvier 2017") 'permet de détecter la denier
DernL = Range("B65536").End(xlUp).Row 'tableau colonne A
If DernL > 69 Then 'A adapter si la première ligne n'est plus la 9.
MsgBox "Le nombre de personne est limité à 65."
Exit Sub
End If
End With
ActiveSheet.Unprotect Password:="LN"
Cells(DernL + 1, 2).Value = UCase(TextBox1.Value)
Cells(DernL + 1, 3).Value = UCase(Left(TextBox2.Value, 1)) & LCase(Right(TextBox2.Value, Len(TextBox2.Value) - 1))
Range("B4").EntireRow.Copy
Range("B" & DernL + 1).EntireRow.PasteSpecial xlPasteFormats
Range("B4:B" & DernL + 1).EntireRow.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
ActiveSheet.Protect Password:="LN"
TextBox1.Value = ""
TextBox2.Value = ""
End Sub
 

cj welch

XLDnaute Occasionnel
Une erreur m' a empêcher de finir ma question
je voudrais adapter le code ci-dessus afin que l'utilisation de l'userform incrémente les lignes situés avant A70 et en les classent par ordre alphabétique.
j' ai créer un filtre sur mon tableau qui n'a pas fonctionné comme je le souhaitais. L' incrémentation se fait après la dernière ligne utilisé

merci pour vos proposition

bien cordialement
 

Bebere

XLDnaute Barbatruc
bonjour
le nom de la feuille janvier avait un espace à la fin
changé le code utilisation de maxlenght pour textbox,évènement update pour nom en majuscule ucase et proper pour prénom avec une majuscule
fonction max et find pour trouver la ligne nouvelle entrée
 

Pièces jointes

  • TABLEAU essai (1).xls
    62 KB · Affichages: 63

cj welch

XLDnaute Occasionnel
bonjour Bebere,

Au top cela fonctionne super bien
je n 'arrive plus a faire fonctionner le bouton supprimer pourrais tu regarder la macro stp
Penses tu qu'il soit possible de ranger les lignes par ordre alphabétique (sur le nom ) ?
merci encore pour ton aide
Cordialement
 

cj welch

XLDnaute Occasionnel
re,

je n 'avais pas pensé a ça.

oui la colonne A doit etre remise en ordre croissant, mais ce n 'est pas important car il me faut juste le total du nombre de personne en fin de tableau

je prèfere ranger les lignes par ordre croissant, ne tiens pas compte de la colonne A, on maitra des "1" pour faire le total en fin de Tableau

Cordialement
 

cj welch

XLDnaute Occasionnel
bonjour bebere,
merci pour ton travail,
pourrais tu supprimer le choix "modifier" car je n 'en ai pas l'utilité
corriger, si c'est possible, le remplissage de la liste car :
- quand tu ajoutes un nom
- puis tu supprimes un nom, la liste (en mode suppression) ne propose pas le nom que tu as ajouté
(pour qu' il propose le nom, il faut ajouter le nom, fermer l' userform puis ouvrir l' userform et supprimer)

Cordialement
 

Bebere

XLDnaute Barbatruc
bonjour
cj welch fait changement dans code pour que les formules s'adapent
changer les formules aussi
si protection feuille active seulement les cellules déverouillées sont accessible
la plage avec liste validation
 

Pièces jointes

  • TABLEAU essaiV2.xls
    64.5 KB · Affichages: 45

cj welch

XLDnaute Occasionnel
bonjour bebere,

l'index ne fonctionne plus et le classement ne se fait plus par ordre alphabétique.
si l' indexte te pause problème supprime le et remplace le par des "1"
concernant le remplissage de la liste (en mode suppression), il faut toujours fermer l' userform et le reouvrir pour que la liste se mette a jour

cordialement
 

cj welch

XLDnaute Occasionnel
Bonjour bebere,
le format ne se copie pas
quand tu es dans le menu déroulant en suppression, des cellules vides apparaisse au fonds de la liste.
j 'ai fait le teste avec excel 2007 et le 2010
 

Pièces jointes

  • TABLEAU essaiV4.xls
    73.5 KB · Affichages: 44

cj welch

XLDnaute Occasionnel
bonjour bebere

Cela fonctionne au top, bravo

une petite question sur le code suivant :
Code:
  Application.Calculation = xlCalculationAutomatic
    Worksheets("Janvier").Calculate
    ActiveSheet.Protect Password:="LN"
    TextBox1.Value = ""
    ........
    [/code
Est il possible de modifier le code [B][I]Worksheets[/I]("Janvier[I]").Calculate[/I][/B] afin qu'il fonctionne lorsque on duplique la feuille et que l'on change de nom de cette feuille (Par exemple février). j' ai fait des tentatives avec Activesheet par exemple et cela n' a pas fonctionné
 
Cordialement
 

Discussions similaires

Statistiques des forums

Discussions
311 732
Messages
2 081 997
Membres
101 861
dernier inscrit
Jerem28630