utilisation de Formula

[gianluca]

Hello everybody...

Another sollicitation

Un nouveau souci. Dans une feuille récap, je crée un agent via macro.
mon souci est que je n'arrive pas à créer les formules qui vont avec l'agent pour calculer ses soldes de congés.

j'ai essayé cela :
' Création des formules de calcul
ActiveCell.Offset(0, 3).FormulaLocal = "=ActiveCell.value!D7"
ActiveCell.Offset(0, 4).FormulaLocal = "=ActiveCell.value!E7"
ActiveCell.Offset(0, 5).FormulaLocal = "=ActiveCell.value!F7"
ActiveCell.Offset(0, 6).FormulaLocal = "=ActiveCell.value!G7"

ou activeCell contient le nom de l'agent. Chaque agent a une feuille et les formules de l'onglet recap vont chercher les totaux sur chaque feuille.
Mais.... enfer crotte de zut....
mon code affecte à la cellule =Activecell.value!D7 et pas ='Tartempion lucien!D7'

Là je sais pas faire...

Merci par avance.

Gianluca

 

[Baside]

Re : utilisation de Formula

Bonjour le Forum,

Normal, car =ActiveCell.value!D7 est mis entre " "

Présente un fichier allégé avec un exmple de ce qu'il faut faire.

Amicalement, Hervé.

 

[gianluca]

Re : utilisation de Formula

Bonjour Hervé

Merci de ta réponse.

Difficile de mettre un exemple... le fichier est trop lourd et même en enlevant un max je dépasse tjrs...

POur les " ", j'ai vu dans l'aide et sur le forum que c'était la syntaxe a employer. et effectivement ca me colle bien dans le formule ActiveCell...
mon souci c'est que je voudrais quecela colle dans le formule la valeur d'activeCell.
je ne sais pas si on peut faire ?

Bonne journée

Gianluca

PS: désolé je dois quitter le forum ques heures because l'arbitrage m'attend.
A tout a l'heure.

 

[bqtr]

Re : utilisation de Formula

Bonjour gianluca, Baside

Essaye comme ceci :

Si le nom de la feuille n'a pas d'espace :

ActiveCell.Offset(0, 3).FormulaLocal = "=" & ActiveCell.Value & "!" & "D7"
ActiveCell.Offset(0, 4).FormulaLocal = "=" & ActiveCell.Value & "!" & "E7"
ActiveCell.Offset(0, 5).FormulaLocal = "=" & ActiveCell.Value & "!" & "F7"
ActiveCell.Offset(0, 6).FormulaLocal = "=" & ActiveCell.Value & "!" & "G7"

Si le nom de la feuille a un espace :

ActiveCell.Offset(0, 3).FormulaLocal = "=" & "'" & ActiveCell.Value & "'" & "!" & "D7"
ActiveCell.Offset(0, 4).FormulaLocal = "=" & "'" & ActiveCell.Value & "'" & "!" & "E7"
ActiveCell.Offset(0, 5).FormulaLocal = "=" & "'" & ActiveCell.Value & "'" & "!" & "F7"
ActiveCell.Offset(0, 6).FormulaLocal = "=" & "'" & ActiveCell.Value & "'" & "!" & "G7"

J'ai testé et ca fonctionne bien.

Salut Pierrejean

Bon dimanche

 

[pierrejean]

Re : utilisation de Formula

bonjour gianluca

a tester:

ActiveCell.Offset(0, 3).FormulaLocal = "=" & ActiveCell.value & "!D7"
ActiveCell.Offset(0, 4).FormulaLocal = "=" & ActiveCell.value & "!E7"
ActiveCell.Offset(0, 5).FormulaLocal = "=" & ActiveCell.value & "!F7"
ActiveCell.Offset(0, 6).FormulaLocal = "=" & ActiveCell.value & "!G7"

edit
salut bqtr

 

[gianluca]

Re : utilisation de Formula

Bonjour PierreJean, Bqtr, re le fil.


Merci de vos réponses, c'est un réel bonheur que de trouver une aide aussi efficace.

Je teste ce soir, mais il n'y pas de raison, et je vous tiens au courant.
Encore merci

Bon Après midi

Gianluca.

 

[gianluca]

Re : utilisation de Formula

Re le fil, bonsoir le forum...


Ca fonctionne impec !

Merci à vous tous

Gianluca