Recherche du dernier Nom

Ilino

XLDnaute Barbatruc

• 13 Avril 2013

• #16

Re : Recherche du dernier Nom

Re CHALET
Génial , c'est ce que je voulais , c'est impeccable Merci beaucoup,

Te remercies encore mille fois CHALET pour toute ton aide

Bonne fin de soirée
A+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 14 Avril 2013

• #17

Re : Recherche du dernier Nom

Bonjour Forum,Bonjour CHALET
je souhaiterai ajouter un message dans le code ci dessous du post#15, Msgbox("N'ouvert pas le droit,toutes les CP sont consommées... MERCI")

Code:

.......
If avec.Value = "N’ouvert pas le droit " And sans.Value = "N’ouvert pas le droit " Then datecp.Enabled = False: Exit Sub
......

bon week end A+

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 14 Avril 2013

• #18

Re : Recherche du dernier Nom

Tu remplaces :
If avec.Value = "N’ouvert pas le droit " And sans.Value = "N’ouvert pas le droit " Then datecp.Enabled = False: Exit sub

par cet ensemble sur plusieurs lignes :

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")
Exit Sub
End If


ps : j'aime pas l'expression : N'ouvert pas le droit (pas trop français)

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 14 Avril 2013

• #19

Re : Recherche du dernier Nom

Re CHALET
Grazie pour la réponse

CHALET53 à dit:

ps : j'aime pas l'expression : N'ouvert pas le droit (pas trop français)

Cliquez pour agrandir...

what do you propose?
A+

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 14 Avril 2013

• #20

Re : Recherche du dernier Nom

Je ne sais pas ce que tu veux exactement expliquer : si c'est pour dire que les droits ne sont pas ouverts, alors :

Droits non ouverts (au pluriel ou singulier)

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 14 Avril 2013

• #21

Re : Recherche du dernier Nom

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

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 14 Avril 2013

• #22

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

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 14 Avril 2013

• #23

Re : Recherche du dernier Nom

CHALET53 à dit:

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

Cliquez pour agrandir...

Re
presque ça :une Convenance Personnelle

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 14 Avril 2013

• #24

Re : Recherche du dernier Nom

Alors pourquoi ne pas mettre : droits à CP non ouverts

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 14 Avril 2013

• #25

Re : Recherche du dernier Nom

Re
oui pourquoi pas buona idea

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 14 Avril 2013

• #26

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)

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 14 Avril 2013

• #27

Re : Recherche du dernier Nom

Re
Un grande grazie la mia amica CHALET.
ben presto

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 14 Avril 2013

• #28

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

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 14 Avril 2013

• #29

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

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 14 Avril 2013

• #30

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 ???

 

Vote positif 0 Vote négatif