Recherche du dernier Nom

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

J'étais absent ce soir,

Je reprendrai demain (dès que possible)
je repars de quel fichier ?
Si tu peux m'adresser un fichier à partir duquel je peux repartir : ce serait bien (en précisant ce que tu veux y rajouter)
Bonne nuit
 

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonjour,

Le copier coller de la feuille CP vers la feuille NOM créée plante sur quelque chose d'assez connue sous VBA : les cellules fusionnées
C'est pour cela que je hais les cellules fusionnées : je leur préfère le format Centrer sur plusieurs colonnes
M'autorises-tu à modifier la feuille CP en conséquence

a+
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonjour CHALET
Merci pour la réponse c'est exactement ce que je souhaité, mais après avoir tester sur mon fichier et l'adapter a mon .... ça n'a pas marché ???
Ci joint le fichier final
merci par avance et bon week-end
A+
 

Fichiers joints

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonjour,

Normal : tu as remplacé N'ouvert pas les droits par droits à CP non ouverts (ce qui est plus joli)
Donc, il faut changer dans la procédure VALIDER du USF (vers la fin de la procédure) :
If a = "N" And b = "N" Then
par
If a = "d" And b = "d" Then


a+
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonjour CHALET,
un grand merci , grazie grazie:cool:
super ça fonctionne très bien:D
A+
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Re chalet
dans la feuille "CP" J'ai ajouté une forme ( logo de notre entreprise) , mais quand j'enregistre une copie CP de l'agent dans le classeur,la forme disparaisse???
Merci encore
 
Dernière édition:

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonjour,

Toujours plus fort
Puisq'elle n'est pas copiée, autant la réinsérer par programme
La forme en question est quoi : un fichier .JPG
A essayer :
Select sans espace (puisqu'il apparaît dans le message)
Rajouter dans le module 1 ce programme en changeant le nom, la taille, la position et l'adresse de l'image:

Sub pos_img()
Range("B3").Select
ActiveSheet.Pictures.Insert("D:\P1010907.jpg").Select

With Selection.ShapeRange
.Left = ActiveCell.Left
.Width = 100
.Height = 120
.Top = ActiveCell.Top
End With
Range("A1").Select
End Sub


Dans le programme copie_cp, rajouter les parties en gras :
derrière Sub copie_cp()
réponse=""

et en fin de programme derrière :

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:
End Sub
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonjour,
A essayer :
en changeant le nom, la taille, la position et l'adresse de l'image:

Sub pos_img()
Range("B3").Select
ActiveSheet.Pictures.Insert("D:\P1010907.jpg").Select


End Sub

Bonjour CHALET,
merci pour la réponse ... est ce que je suis obligé d'ajouter le chemin de la forme ( logo) parce que mon fichier je l'utilise sur plusieurs CP??
A+
 

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

oui
Toutefois si les postes concernés sont sur un réseau et qu'ils ont accès au même serveur, il doit être possible d'accéder au fichier sur ce serveur
As-tu vérifié si cette procédure fonctionnait chez toi?
Si tu mets ton fichier sur différents postes de tes collègues, tu peux aussi mettre dans le même répertoire le fichier logo

a+

PS : tes collègues ont peut-être cette image dans un répertoire quelconque
tu pourrais, en installant, le fichier sur leur poste inscrire le chemin complet dans une cellule (par exemple en AA1 de la feuille FSCP)
Dans la procédure, on modifie pour aller chercher le chemin dans cette cellule
A voir
 
Dernière édition:

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Re, je vais la tester, autre question dans le meme code .. que signifier ?
Code:
Range("B3").Select
A+
 

Yaloo

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonjour à tous, bonjour Ilino,

A 800 et quelques messages, il serait bon de connaitre le BA-BA de VBA

Range("B3").Select
Signifie que a cellule B3 est sélectionnée.
 

CHALET53

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Et pour compléter ce que dit Yaloo, ce positionnement prend tout son sens dan l'instruction située un peu plus loin :

ActiveCell.Left

pour positionner le début de l'image
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonjour yallo, chalet,
@ yallo: merci pour la remarque, pour info ma question etait pourquoi B3 et non pas A1 parceque l'image est collé sur la cellule A1 de la feuille CP
mERCI
 

Yaloo

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonjour Ilino, Chalet,

La question était tellement simpliste que je n'ai pas pu m'empêcher !!!!!

Bon WE

A+

Martial
 

Ilino

XLDnaute Barbatruc
Re : Recherche du dernier Nom

Bonjour yaloo, Chalet
J’a voue que la question etais très simple, tellement j’étais rapide pour avoir la réponse ( et peut être ci le W.End)
Merci et Bon W.End
NB: Plutôt bon début de semaine:cool:
 

Discussions similaires


Haut Bas