Insertion d'une formule dans une cellule à l'ouverture du classeur...

Hippolite

XLDnaute Accro

• 18 Avril 2011

• #2

Re : Insertion d'une formule dans une cellule à l'ouverture du classeur...

Bonjour,
Quelque chose comme (non testé)

VB:

Private Sub Workbook_Open()
	If Split(Application.Version, ".")(0) < 12 Then
		Range("E10").Formula = "=SI(C10="","",WORKDAY(C10,-6,Jours_Congés))"
	Else
		Range("E10").Formula = "SI(C10="","",SERIE.JOUR.OUVRE(C10,-6,Jours_Congés))"
	End If
End Sub

A+

 

Vote positif 0 Vote négatif

C

CyberNeo99

XLDnaute Occasionnel

• 18 Avril 2011

• #3

Re : Insertion d'une formule dans une cellule à l'ouverture du classeur...

Bonjour Hippolite,

Merci pour ton aide.

Je crois qu'il n'y a qu'une petite coquille car avec les double guillemets c'est-à-dire la partie de la formule où il y a le test SI(C24="", ce double guillemet créer un Pb car lorsqu<il ouvre le classeur il copie la formule mais ce double guillemet de vient un juste un " simple. je trouve cela bizarre le code

Range("E24").Formula = "=SI(C24="","",WORKDAY(C24,-6,Jours_Congés))"

devient

Range("E24").Formula = "=SI(C24=",",WORKDAY(C24,-6,Jours_Congés))"


Merci à l'avance

Neo

 

Dernière édition: 18 Avril 2011

Vote positif 0 Vote négatif

Hippolite

XLDnaute Accro

• 18 Avril 2011

• #4

Re : Insertion d'une formule dans une cellule à l'ouverture du classeur...

Re,
Je suis allé un peu vite, et sans excel sous la main je ne m'en suis pas aperçu.
Il faut doubler les guillemets de la formule :

VB:

Private Sub Workbook_Open()
    If Split(Application.Version, ".")(0) < 12 Then
        Range("E10").Formula = "= SI(C10 = """", """",WORKDAY(C10,-6,Jours_Congés))"
    Else
        Range("E10").Formula = "= SI(C10 = """", """",SERIE.JOUR.OUVRE(C10,-6,Jours_Congés))"
    End If
End Sub

 

Dernière édition: 18 Avril 2011

Vote positif 0 Vote négatif

C

CyberNeo99

XLDnaute Occasionnel

• 18 Avril 2011

• #5

Re : Insertion d'une formule dans une cellule à l'ouverture du classeur...

Bonjour Hippolite,

Effectivement ça règle mon Pb et maintenant il écrit la formule entier avec les doubles guillemets sauf que le Pb il écrit #NOM? et si j'entre dans la cellule et fait ENTER la formule devient correct. Je ne sais pas pourquoi il écrit la formule correctement et qu'il génère une erreur et en entrant dans la cellule et en faisant ENTER tout devient correct.

Merci encore pour ton aide.

Neo

 

Vote positif 0 Vote négatif

Hippolite

XLDnaute Accro

• 18 Avril 2011

• #6

Re : Insertion d'une formule dans une cellule à l'ouverture du classeur...

Re,
J'ai corrigé la deuxième formule qui n'avait pas de signe = mais je pense que ça n'a rien à voir.
Selon le dicton "la nuit porte conseil" je verrai demain.
A+

 

Vote positif 0 Vote négatif

C

CyberNeo99

XLDnaute Occasionnel

• 18 Avril 2011

• #7

Re : Insertion d'une formule dans une cellule à l'ouverture du classeur...

Bonjour Hippolite,

Pb résolu, tout fonctionne avec ton aide.

Gros Merci pour ton aide

Neo

 

Vote positif 0 Vote négatif

C

CyberNeo99

XLDnaute Occasionnel

• 20 Avril 2011

• #8

Re : Insertion d'une formule dans une cellule à l'ouverture du classeur...

Bonjour Hippolite,

par contre il y a une chose qui m'échappe. Comment fait-il pour savoir dans quel page mettre la formule car il n'y a aucune référence à la page dans la formule et puisque j'ai plusieurs pages je me demande comment fait-il pour la mettre dans la bonne page car il la mets dans la bonne page...


Merci à l'avance pour la réponse.


Neo

 

Vote positif 0 Vote négatif

Hippolite

XLDnaute Accro

• 20 Avril 2011

• #9

Re : Insertion d'une formule dans une cellule à l'ouverture du classeur...

Bonsoir,
Bonne remarque, Excel prend la feuille active (celle du dernier enregistrement).
Il serait plus prudent de compléter Sheets("Nomdelafeuille").Range("E10").Formula = ...
A+

 

Vote positif 0 Vote négatif

C

CyberNeo99

XLDnaute Occasionnel

• 20 Avril 2011

• #10

Re : Insertion d'une formule dans une cellule à l'ouverture du classeur...

Bonjour Hippolite,

Je me disais aussi que ce n'était pas logique car aucune allusion au nom de la feuille. Merci encore j'ai intégré la partie qui spécifie la feuille et ça foncitonne. J'avais pensé ajouté ce bout de code car je l'ai vu dans d'autre code et comme je ne suis pas programmeur alors pas sûr.... Je me fiais à ma logique car ayant étudié en science je me disais que...


Grand Merci encore

Neo

 

Vote positif 0 Vote négatif