Recherche du dernier Nom

[Ilino]

Bonjour Forum
J’ai choisissais de changer le fil (https://www.excel-downloads.com/threads/calculer-le-cumule-en-vba.204187/) afin d’éviter toute ambigüité et de poser un nouveau souci claire on tenant compte les réponses de l’ancien fil (résolu)
1 . Mon Souci : recherche le dernier nom sélectionné via ‘comboBox nom’ de USF dans le tableau de la feuille « FSCP » et afficher les données de deux colonnes J&K correspond a ce nom respectivement dans les deux TextBox ( avec solde et sans solde) de USF
Exemple : si je sélectionne ‘NOM2’ dans mon ComboBox je dois avoir dans les deux TextBox de mon USF ,Les dernières données de ce nom ( ligne 15)des deux colonnes J&K :
Avec Solde : 2
Sans Solde : 2,5

Grazie per la comprensione.😱

 

[Ilino]

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+

 

[Ilino]

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")

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

 

[CHALET53]

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)

 

[Ilino]

Re : Recherche du dernier Nom

Re CHALET
Grazie pour la réponse

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

what do you propose?😕
A+

 

[CHALET53]

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)

 

[Ilino]

Re : Recherche du dernier Nom

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

 

[CHALET53]

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

 

[Ilino]

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

Re
presque ça :une Convenance Personnelle

 

[CHALET53]

Re : Recherche du dernier Nom

Alors pourquoi ne pas mettre : droits à CP non ouverts

 

[Ilino]

Re : Recherche du dernier Nom

Re
oui pourquoi pas buona idea😎

 

[CHALET53]

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]

Re : Recherche du dernier Nom

Re
Un grande grazie la mia amica CHALET.
ben presto😎

 

[Ilino]

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]

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]

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