Gestion adhérents assoc
Bonjour,
j'ai un classeur Excel que j'utilise pour gérer mon Assoc. de Boxe Française.
A partir d'un formulaire je rentre les données administratives des adhérents.
Je souhaite ajouter une couleur en fonctio de leur niveau qui se traduit une couleur de Gant.
Est ce que je peux obtenir de l'aide SVP
Autre petit souci dans mon formulaire, lorsque je rentre les noms des adhérents en majuscule, il me les places en minuscule dans les colonnes ?
Est ce que l'on pourrait me corriger ce petit bug ?
https://www.excel-pratique.com/~files/doc2/Copie_de_chti59_v6.rar
D'avance merci,
Bonjour
Pour cette partie :
chti59xcel a écrit :Autre petit souci dans mon formulaire, lorsque je rentre les noms des adhérents en majuscule, il me les places en minuscule dans les colonnes ?
Dans le code, remplace :
Cells(lig, i + 1).Value =Application.Proper(Me.Controls("Txt" & i).Value)Par
Cells(lig, i + 1).Value = UCase(Me.Controls("Txt" & i).Value)Amicalement
Nad
Bonjour,
pour le bug remplace les 2 lignes concernées par :
Cells(lig, i + 1).Value = UCase(Me.Controls("Txt" & i).Value)
Pour les couleurs YFO déjà les lister...
EDIT : Oups... C'est parti trop vite !
(Salut Nad-Dan !)
Pour les couleurs YFO déjà les lister et utiliser un Combo comme tu as fait pour le ComboBox1.
Je n'ose pas supposer que tu comptes utiliser de vraies couleurs ?
PS : Compte tenu du nombre de contrôle, je préconise d'utiliser 2 "sous-Sub" une si Me.ComboBox1 <> "New"
et une autre si
Me.ComboBox1 = "New"
A+
bonjour, j'ai remplacé ma ligne de commande par la votre, mais je ne comprend pas, lorsque je test cela ne fonctionne pas ?
cordialement
Chti59xcel
Bonjour,
Mais si, mais si !:
C'est une commande aussi vieille qu'Excel : ça DOIT marcher.
Quel est le message d'erreur ?
A+
Private Sub cmdValider_Click()
Application.ScreenUpdating = False
Dim DerLig As Long
If Me.ComboBox1 <> "New" Then
lig = Val(Me.ComboBox1) + 1
For i = 1 To 17
If IsNumeric(Me.Controls("Txt" & i).Value) Then
Cells(lig, i + 1).Value = Val(Me.Controls("Txt" & i).Value)
Else
Cells(lig, i + 1).Value = UCase(Me.Controls("Txt" & i).Value)
End If
Next i
On Error Resume Next
Cells(lig, 5).Replace What:=Chr(13), Replacement:="", LookAt:=xlPart
On Error GoTo 0
Else
DerLig = [A65000].End(xlUp).Row + 1
Cells(DerLig, 1).Value = Cells(DerLig - 1, 1).Value + 1
For i = 1 To 17
If IsNumeric(Me.Controls("Txt" & i)) Then
Cells(DerLig, i + 1).Value = Val(Me.Controls("Txt" & i).Value)
Else
Cells(lig, i + 1).Value = UCase(Me.Controls("Txt" & i).Value) souligné en jaune
End If
Next i
On Error Resume Next
Cells(DerLig, 5).Replace What:=Chr(13), Replacement:="", LookAt:=xlPart
On Error GoTo 0
Range("B2:R" & DerLig).Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("C2") _
, Order2:=xlAscending, Header:=xlGuess
End If
Cells.VerticalAlignment = xlCenter
Unload Me
Application.ScreenUpdating = True
End Sub
bonjour,
Sorry ! sur cette ligne c'est un peu différent. il faut :
Cells(Derlig, i + 1).Value = UCase(Me.Controls("Txt" & i).Value)
A+