Recherche du dernier Nom

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Re merci ,
juridiquement parlons: je ne suis pas autorisé de prendre une CP
A+
 

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Est-ce que CP veut dire Congé payé
et
Quand tu écris : N'ouvert par le droit , tu veux dire que la personne n'a pas droit aux congés payés
 

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

J'ai comme l'intuition qu'avec la langue que tu utilises, tu as plus de soleil que nous aux portes de la Bretagne

Bonne soirée (reste concentré sur ton projet)
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonjour Forum
encore Merci infiniment CHALET,
Si vous permettez encore
4 . Soucis :Je souhaiterai colorié les textbox ( avec solde et/ou sans solde) si ces derniers contient le message suivant :"droits à CP non ouverts"
je l'ai fait dans le textbox de date de CP....!!!
 

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Remplace la procédure par celle-ci (après tu mets les couleurs que tu veux)

Private Sub Nom_Change()
avecsolde.Enabled = True
sanssolde.Enabled = True
datecp.Enabled = True
avec.ForeColor = &H80000012 'rouge
sans.ForeColor = &H80000012 'rouge
avec.BackColor = &H8000000F 'rouge
sans.BackColor = &H8000000F 'rouge


derligne = Sheets("FSCP").Range("B65536").End(xlUp).Row
For i = derligne To 3 Step -1
If Cells(i, 2) = Nom Then col = i: i = 3
Next i
With Sheets("Liste")
Me.prénom = .Cells(Me.Nom.ListIndex + 2, 2)
Me.fonction = .Cells(Me.Nom.ListIndex + 2, 3)
Me.structure = .Cells(Me.Nom.ListIndex + 2, 4)
End With
With Sheets("FSCP")
If col = "" Then Me.avec = 5 Else Me.avec = .Cells(col, 12)
If col = "" Then Me.sans = 5 Else Me.sans = .Cells(col, 13)
End With
'Stop
If avec.Value = "N’ouvert pas le droit " And sans.Value = "N’ouvert pas le droit " Then
avec.ForeColor = &HFF& 'rouge
sans.ForeColor = &HFF& 'rouge
avec.BackColor = &HFFFF00 'rouge
sans.BackColor = &HFFFF00 'rouge

datecp.Enabled = False
MsgBox ("N'ouvert pas le droit,toutes les CP sont consommées... MERCI")
Exit Sub
End If

End Sub
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Re
ça fonctionne seulement dans le cas ou les deux Textbox ( avec solde et sans solde) contient le text mais dans le cas ou un seul text box contient ce text ne marche pas ???
 

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

J'avais mal interprété la question :

Private Sub Nom_Change()
avecsolde.Enabled = True
sanssolde.Enabled = True
datecp.Enabled = True
avec.ForeColor = &H80000012 'rouge
sans.ForeColor = &H80000012 'rouge
avec.BackColor = &H8000000F 'rouge
sans.BackColor = &H8000000F 'rouge


derligne = Sheets("FSCP").Range("B65536").End(xlUp).Row
For i = derligne To 3 Step -1
If Cells(i, 2) = Nom Then col = i: i = 3
Next i
With Sheets("Liste")
Me.prénom = .Cells(Me.Nom.ListIndex + 2, 2)
Me.fonction = .Cells(Me.Nom.ListIndex + 2, 3)
Me.structure = .Cells(Me.Nom.ListIndex + 2, 4)
End With
With Sheets("FSCP")
If col = "" Then Me.avec = 5 Else Me.avec = .Cells(col, 12)
If col = "" Then Me.sans = 5 Else Me.sans = .Cells(col, 13)
End With
'Stop
If avec.Value = "N’ouvert pas le droit " And sans.Value = "N’ouvert pas le droit " Then
datecp.Enabled = False
MsgBox ("N'ouvert pas le droit,toutes les CP sont consommées... MERCI")

End If
If avec.Value = "N’ouvert pas le droit " Then
avec.ForeColor = &HFF& 'rouge
avec.BackColor = &HFFFF00 'rouge
End If
If sans.Value = "N’ouvert pas le droit " Then
sans.ForeColor = &HFF& 'rouge
sans.BackColor = &HFFFF00 'rouge
End If

End Sub
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Re
merci merci grazie
4. SOUCIS :j'ai ajouter un bouton pour réinitialiser la frame Agent ( code ci dessous)
Code:
Private Sub CommandButton1_Click() 'réinitialiser
Nom = ""
prénom = ""
fonction = ""
structure = ""
avec = ""
sans = ""
End Sub
et j'ai souhaité ajouter ce code( ci dessous) pour afficher ce bouton dans le cas ou le Combobox ( nom ) n'est pas vide??

Code:
If Nom <> "" Then CommandButton1.Visible = True: Exit Sub
NB : j'ai fait la propriétés visible de ce bouton : false
A+
 
Dernière édition:

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Que veux-tu faire ?
A l'ouverture du USF : commandbutton1 doit être invisible
Un nom est renseigné : Alors commandbutton1 est visible
Je lance Commandbutton1 pour mettre à blanc et je rends commandbutton1 invisible (puisqu'il n'y a plus d'info dans Nom

Est-ce cela ?
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

oui,c'est parfaitement ça.
si Nom <>"" afficher le bouton sinon masquer le bouton
 
Dernière édition:

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Rajoute cette ligne dans :
Private Sub UserForm_Initialize()
CommandButton1.Visible = False
With Sheets("Liste")
.....
End Sub

Rajoute :
Private Sub CommandButton1_Click()
Nom = ""
prénom = ""
fonction = ""
structure = ""
avec = ""
sans = ""
CommandButton1.Visible = False
End Sub

Rajoute dans cette procédure :
Private Sub Nom_Change()
CommandButton1.Visible = True
avecsolde.Enabled = True
sanssolde.Enabled = True
datecp.Enabled = True
avec.ForeColor = &H80000012 'rouge
sans.ForeColor = &H80000012 'rouge
avec.BackColor = &H8000000F 'rouge
sans.BackColor = &H8000000F 'rouge

derligne = Sheets("FSCP").Range("B65536").End(xlUp).Row
....
....
End Sub
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Re CHALET
sei il migliore.
je te dis a bientôt et bon weekend:eek:
A+
GRAZIE
 
Dernière édition:

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonsoir Forum, Bonsoir CHALET;
si vous permettez , je vous sollicite a m'aider :
5. SOUCI: Je souhaiterai ajouter de (ou des) condition(s) dans les OptionButton (La Journée, la matinée et l’Après-midi) relatives aux TextBox( avec solde et Sans Solde)
eXemple : si TextBox (Avec Solde ou Sans Solde) afficher un nbr de jour 0,5 jour automatiquement l’optionButton (la journée) est désactiver (grise)
NB : la journée = 1jour
La Matinée = 0,5 jour
L’Après-Midi = 0,5 Jour
Merci par avance et un grand grazie a CHALET:)
 

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonjour,

Je ne comprends pas la question
Actuellement, la zone est renseignée systématiquement à 5 (sauf si Droits non ouverts)
Détaille plus ta demande

A suivre
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonjour CHALET
Mon souci est le suivant :
Si le textbox Avec Solde contient un chiffre ( nbe de jour)= 0.5 je doit désactiver l’optionbutton La Journée (grise) idem pour TextBox Sans Solde
Je m’explique : j’ai pas le droit de donner a mon agent une journée alors il lui reste une demi journée seulement
A+
 

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

En supposant que j'ai bien compris, rajouter :

Private Sub Nom_Change()
CommandButton1.Visible = True
avecsolde.Enabled = True
sanssolde.Enabled = True
datecp.Enabled = True
journée.Enabled = True
journée = True

avec.ForeColor = &H80000012 'rouge
sans.ForeColor = &H80000012 'rouge
avec.BackColor = &H8000000F 'rouge
sans.BackColor = &H8000000F 'rouge

derligne = Sheets("FSCP").Range("B65536").End(xlUp).Row
For i = derligne To 3 Step -1
If Cells(i, 2) = Nom Then col = i: i = 3
Next i
With Sheets("Liste")
Me.prénom = .Cells(Me.Nom.ListIndex + 2, 2)
Me.fonction = .Cells(Me.Nom.ListIndex + 2, 3)
Me.structure = .Cells(Me.Nom.ListIndex + 2, 4)
End With
With Sheets("FSCP")
If col = "" Then Me.avec = 5 Else Me.avec = .Cells(col, 12)
If col = "" Then Me.sans = 5 Else Me.sans = .Cells(col, 13)

If Val(Me.avec) = 0.5 Or Val(Me.sans) = 0.5 Then journée = False: journée.Enabled = False
End With
'Stop
If avec.Value = "N’ouvert pas le droit " And sans.Value = "N’ouvert pas le droit " Then
datecp.Enabled = False
MsgBox ("N'ouvert pas le droit,toutes les CP sont consommées... MERCI")

End If
If avec.Value = "N’ouvert pas le droit " Then
avec.ForeColor = &HFF& 'rouge
avec.BackColor = &HFFFF00 'rouge
End If
If sans.Value = "N’ouvert pas le droit " Then
sans.ForeColor = &HFF& 'rouge
sans.BackColor = &HFFFF00 'rouge
End If

End Sub
 

Discussions similaires


Haut Bas