Recherche du dernier Nom

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonsoir Chalet,
j'ai testé la procédure du post#92 résultat non satisfaisante:(
Merci&Bon début de semaine :cool:
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonsoir Forum , Chalet,
Pour ne pas encombrer mon classeur, je souhaite ajouter un code (masquer la feuille en conséquence de sa création) dans le programme copie_cp( Module1)
NB: Je l’ai déjà demandé ce code(afficher:masquer) en janvier 2013 sans suite
Merci par avance
 

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonjour,

Sub copie_cp()
réponse = ""
For Each sht In ActiveWorkbook.Sheets
If sht.Name = nm Then
réponse = MsgBox("Cette feuille existe, voulez-vous écraser son contenu ?", vbYesNo)
If réponse = 7 Then Sheets("FSCP").Activate: Exit Sub
If réponse = 6 Then GoTo copie
End If
Next
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = nm
copie:
Sheets(nm).Visible = True
Sheets("CP").Select
Cells.Select
Selection.Copy
Sheets(nm).Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select

If réponse = 6 Then GoTo exitimage
pos_img
Sheets("FSCP").Activate
exitimage:
Sheets(nm).Visible = False

End Sub


j'ai testé la procédure du post#92 résultat non satisfaisante

Quel est le format de ton fichier logo?

a+
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonjour CHALET
Merci pour la reponse;les onglet se masque automatiquement apres la creation ..super.

CHALET a dit : Quel est le format de ton fichier logo?
@ CHALET :Image format JPG
mais mon souci est de ne pas etre dependant dans l'endroit de l'image dans mon PC.
merci chalet
 

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Re,

Essaie cela dans la procédure copie_cp à la fin :

If réponse = 6 Then GoTo exitimage
Sheets("CP").Activate
ActiveSheet.Shapes(1).Copy
Sheets(nm).Activate
Range("A1").Select
ActiveSheet.Paste

exitimage:
Sheets("FSCP").Activate
Sheets(nm).Visible = False

End Sub
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Re,

Essaie cela dans la procédure copie_cp à la fin :

If réponse = 6 Then GoTo exitimage
Sheets("CP").Activate
ActiveSheet.Shapes(1).Copy
Sheets(nm).Activate
Range("A1").Select
ActiveSheet.Paste

exitimage:Sheets("FSCP").Activate
Sheets(nm).Visible = False

End Sub
Re CHALET
If réponse = 6 Then GoTo copie
est ce que je modifié le GO TO ???
 
Dernière édition:

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Non, il ne faut pas le modifier : sa fonction

si la feuille existe, le logo est donc présent : on évite de recopier le logo dans ce cas (sinon tu en aurais 2 puis 3 , ....)
Normalement les deux lignes doivent être comme ça : l'une derrière l'autre
exitimage:
Sheets("FSCP").Activate
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Re
concernant les deux lignes c'est erreur de mise en forme et c'est noté
Concernant le code, je t'informe qu'il est fonctionnel et je te remercie énormément
UN GRAND MERCI CHALET
A+
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonsoir
dans mon 8 Soucis : j’ai ajouté dans USF un ListBox pour afficher l’historique de l’agent sélectionné dans USF avant la validation
Dans ListBox , je souhaiterai avoir ces informations :
1 colonne dans ListBox : Date de CP (colonne F de la feuille FSCP)
2 colonne dans ListBox : Type de CP (colonne G de la feuille FSCP) c a d Sans Solde ou Avec Solde
3 colonne dans ListBox : Tranche journalière (colonne H de la feuille FSCP) c a d La Journée, la matinée et l’après-midi
Grazie
NB : l'affichage de l'historique dépend de NOM&PRENOM ;c'est une condition d"affichage parce que on peut avoir le mémé NOM
 

Fichiers joints

Dernière édition:

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonjour,

Je repasse par là

Le fichier sur lequel tu me proposes de travailler ne me paraît pas être la dernière version (je ne vois pas les dernières modifications liées à la copie du logo)
L'intégration de ce que tu demandes implique des modifications à différents endroits des procédures associées au userform FSCP
Autant le faire sur une version à jour
a+
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Re
oui ce n'est pas la dernière version parce-que j’étais au boulot ci joint la dernière version avec une feuille " RECHERCHER" en plus
A+
Edit : sorry ci joint le fichier a jour
 

Fichiers joints

Dernière édition:

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonjour CHALET
comme tu as constaté j'ai ajouté une autre feuille " Recherche" , elle a la même fonction que mon souci N° 8 ( post#109), mais j'ai souhaité d'avoir ces info sur USF
merci par avance
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Salut CHALET
Merci pour la réponse rapide ; ça me convient parfaitement, mais si tu permets j’ai signalé une condition dans NB du post #109
Dans ce cas ça marche pas bien !!
A+
 

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Si ce cas se présente, je ne comprends pas ton calcul colonne L et M
Ainsi dans le fichier que je t'ai joint, la ligne 3 n'a pas le même prénom (il s'agit donc d'une personne différente) : tu devrais avoir 4 dans la colonne L (non?)
Sinon, si je comprends ta demande, il faut aussi tenir compte du prénom (sur lequel tu n'as pas le choix puisqu'il est renseigné automatiquement au changement de nom)

A suivre
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Si ce cas se présente, je ne comprends pas ton calcul colonne L et M
la ligne 3 n'a pas le même prénom (il s'agit donc d'une personne différente) : tu devrais avoir 4 dans la colonne L (non?)
OUI tu as raison je devrais avoir 4 et non pas 3 ... oups c'est un sérieux pblm que je dois le régler

il faut aussi tenir compte du prénom (sur lequel tu n'as pas le choix puisqu'il est renseigné automatiquement au changement de nom)
OUI, mais est ce que il n-y a pas une proposition de chercher dans la feuille FSCP le NOM&PRENOM au mémé temps ??:confused:
 

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

OUI, mais est ce que il n-y a pas une proposition de chercher dans la feuille FSCP le NOM&PRENOM au mémé temps ??

Est-ce que tu veux dire que la combobox Nom devrait être composée du nom et du prénom ?
 

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

On peut aussi imaginer de mettre le prénom sous forme d'une combobox. celle-ci est remplie après la saisie du nom et contient les prénoms associés à ce nom (pour ne pas mettre tous les prénoms de la base)
C'est à toi de voir (peut-être en fonction de la manière dont tu vas régler le calcul des colonnes L et M)
A suivre
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Ok , donc je dois modifier les formules des colonnes J&K
Code:
=SI($B3<>"";RECHVAL($B$3:$B3;$J$3:$K3;COLONNES($J3:J3))+($G3=J$2)/2^($H3<>"La Journée");0)
 

Discussions similaires


Haut Bas