Création fiche personnel

[sapheron]

Bonjour,

J'aimerai créer une macro sur excel 2003, qui me permet de créer une fiche pour chaque membre de personnel qui croise les données d'un tableau. J'aimerai que, quand je positionne mon curseur sur le nom d'un salarié, sa rempli la fiche en indiquant son nom et les différentes donnés qui lui sont liés présentent dans le tableau.

Le problème c'est que, lorsque je positionne mon curseur sur le nom, il me répète l'opération comme si j'avais enregistrer la macro en mode absolu alors que j'ai bien enregistrer la macro en ayant le bouton "Réference relative" enclenché

Je précise que je suis un novice en langage Vba. Et que ce forum ma l'air d'être mon messie dans ce domaine

Je vous remercie deja pour toutes les réponse que vous pourriez m'apporter

 

[Compte Supprimé 979]

Re : Création fiche personnel

Bonjour Sapheron et bienvenue sur ce forum

Merci de joindre un fichier avec ton code sans données confidentielles (1 a 2 lignes suffisent)

A+

 

[sapheron]

Re : Création fiche personnel

Bonjour BrunoM45 et merci

Je t'envoie le lien pour télécharger mon fichier via free

Free - Envoyez vos documents

sinon mon code je pense qu'il a été envoyé avec le fichier sinon le voici

Sub exemple()
'
' exemple Macro
' Macro enregistrée le 20/07/2012 par
'

'
Sheets("Fiche pénibilité salarié (ex)").Select
ActiveCell.Select
ActiveCell.FormulaR1C1 = "='Grille de pénibilité berry'!R[-2]C"
ActiveCell.Offset(9, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"='Grille de pénibilité berry'!R[-11]C*'Grille de pénibilité berry'!R[4]C"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"='Grille de pénibilité berry'!R[-12]C*'Grille de pénibilité berry'!R[4]C"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"='Grille de pénibilité berry'!R[-13]C*'Grille de pénibilité berry'!R[4]C"
ActiveCell.Offset(-2, 0).Range("A1:A3").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:G3"), Type:= _
xlFillDefault
ActiveCell.Range("A1:G3").Select
End Sub

 

[Compte Supprimé 979]

Re : Création fiche personnel

Re,

Pour moi, inutile de passer par du VBA, regarde le fichier ci-joint si cela te convient

J'ai défini un nom "ListeSalariés" pour la liste de validation,
mis quelques formules à base de EQUIV() et INDEX()

tu as juste à sélectionner le salarié dans la liste et les valeurs se calcul en fonction

A+

 

[sapheron]

Re : Création fiche personnel

Re,

Je te remercie ce fichier est encore mieux que ce que je voulais à la base.
Merci d'avoir consacré de ton temps pour m'aider

A+

 

[Compte Supprimé 979]

Re : Création fiche personnel

Re,

Je te remercie ce fichier est encore mieux que ce que je voulais à la base.

Tant mieux

Merci d'avoir consacré de ton temps pour m'aider

De rien, c'est un plaisir de pouvoir aider

A+

 

[sapheron]

Re : Création fiche personnel

Re,

En réalité il y a une chose que j'ai pas compris c'est où tu utilise les deux formules car je n'est pas réussi à les trouver?

Je te remercie d'avance

 

[sapheron]

Re : Création fiche personnel

Re,

C'est bon j'ai trouvé en fait

A+

 

[sapheron]

Re : Création fiche personnel

Bonjour,

Excuse moi de te déranger mais j'ai encore une question.
Comment tu a fait pour que les cellules qui calcul mon temps d'exposition aux risques se modifie en fonction du choix de la liste déroulante?

Merci

 

[Compte Supprimé 979]

Re : Création fiche personnel

Salut

Dans ta cellule B15, tu as une formule

=$A14*INDEX('Grille de pénibilité berry'!$B6:$H19;EQUIV($A8;ListeSalariés;0);COLONNE()-1)

J'utilise pour cela, la fonction INDEX(Matrice;NoLig;NoCol)
qui te retourne la valeur située au numéro de ligne et de colonne de la zone (Matrice)

Le numéro de ligne est retournée par la fonction EQUIV(ValeurCherchée;Matrice;Type)
La valeur cherchée, ici, est le nom du salarié
La Matrice est la zone des noms définit "ListeSalariés"
Type = 0 = recherche strictement égale à la valeur

Le numéro de colonne est retournée tout simplement par la fonction COLONNE()

La valeur retournée est le pourcentage d'occupation du temps qui est multiplié par la cellule A14 qui est le nombre d'heures

J'espère que ce sera plus clair

A+

 

[sapheron]

Re : Création fiche personnel

Re,

Je te remercie encore grâce a toi c'est limpide .
Encore merci d'aider le novice que je suis en excel

A+