impossible d'affecter une valeur a une cellule

Bonjour,

C'est à n'y rien comprendre :
Le classeur Excel utilisé permet de charger une macro. L'exécution de cette macro permet de modifier des valeurs dans le classeur.
Les champs suivants, exécutés par la macro, me permettent de sélectionner le workbook, la feuille de travail et la cellule :

Code:

---

1 2 3

WbName = "toto.xls" WsName = "feuil1" Workbooks(WbName).Worksheet(WsName).Cells(5, 5).Value = "TOTO"

---

Lorsque je lance la macro, j'obtiens l'erreur suivante #VALEUR, et lorsque j'y vais en pas à pas je remarque que la valeur lue dans la cellule (5, 5) est correcte avant l'exécution de l'affectation précédente ("TOTO").
Le debugger plante sur la ligne d'affectation comme si il avait fini d'exécuter la macro...

Y'a-t-il quelque chose qui est mal fait ou manquant

Merci d'vôt'aide

bonjour

à essayer

Code:

---

Workbooks(WbName).Worksheets(WsName).Cells(5, 5).Value = "TOTO"

---

oups j'ai fait une faute de frappe en écrivant le post... mais le problème est toujours présent

Les commandes suivantes ne font rien de mieux :

Code:

---

1 2 3 4 5 6

' Sélection du workbook Workbooks(WbName).Activate ' Sélection du worksheet Worksheets("feuil1").Activate Cells(5, 5).Locked = False Cells(5, 5).Value = 35

---

mais pourquoiiiiiii ?

re:

ta feuille est elle protégée ???, je vois que tu utilises locked

Code:

---

1 2 3 4

with workbook(wbname).sheets(wsname) .unprotect .cells(5,5) = 25 end with(

---

s'il y as un mot de passe

Code:

---

1 2 3 4

with workbook(wbname).sheets(wsname) .unprotect password:="MonMotDePasse" .cells(5,5) = 25 end with(

---

mais je ne vois pas plus
il faudrait que tu mettes ta macro au complet

aux grands maux les grands moyens

Voici ce que j'ai mis dans mon classeur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Cache la barre d'outils Application.CommandBars("barre_calcul").Visible = False 'efface la barre d'outils Application.CommandBars("barre_calcul").Delete 'Retire la macro précédemment installée AddIns.Add("T:\Calcul Bandeau\TransformeBandeau.xla", False).Installed = False   End Sub   Private Sub Workbook_Open() Dim CBar As CommandBar, CBarCtl As CommandBarControl   'Charge les macro complémentaires AddIns.Add("T:\Calcul Bandeau\TransformeBandeau.xla", False).Installed = True   ' Créer une nouvelle barre d'outils visible. Set CBar = Application.CommandBars.Add(Name:="barre_calcul_bandeau", Position:=msoBarTop) CBar.Visible = True   ' Créer un bouton avec du texte sur la barre et définir certaines propriétés. Set CBarCtl = CBar.Controls.Add(Type:=msoControlButton) With CBarCtl .Caption = "Calcul du bandeau" .Style = msoButtonCaption .TooltipText = "Dépile les informations définies dans l'onglet 'Relevé Video'" .OnAction = "'" & "TransformeBandeau.xla" & "'!" & calc_bandeau End With End Sub

---

Voici ce que j'ai mis dans ma macro intitulée TransformeBandeau.xla, au sein d'un module appelé module1 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Function calc_bandeau() Dim i As Integer Dim Ligne As Integer Dim FinLigne As Integer Dim WbName, WsName As String   WsName = ActiveSheet.Name WbName = ActiveSheet.Parent.Name   ' Sélection du workbook Workbooks(WbName).Activate ' Sélection de la feuille active Worksheets("Relevé Video").Activate Cells(5, 5).Locked = False Cells(5, 5).Value = 35 End Function

---

Pour être plus précis, le débuggeur n'est pas totalement planté, sur l'exécution de la ligne d'affectation à 35 :
Dans le cas ou l'on avance en pas à pas, l'exécution de la ligne d'affectation ne fait rien, mais un pas de plus permet de recommencer la macro au début et après toutes les affectations se passent comme il faut
Dans le cas ou l'on effectue tout le programme d'un seul coup alors il ne se passe rien, aucun calcul n'est affiché

re:

2 choses,
1 - ta fonction est appelée comment, à partir d'un sub ou directement sur une feuille. Si elle doit être appelée comme une formule de calcul, il est impossible quelle fonctionne comme cela. un Function ne peut en aucun cas modifier une cellule directement à moins qu'elle ne soit appelée par un Sub.

2 - La complexité de la xla est de savoir où tu travailles (c'est assez lourd à gérer mais à la longue on s'y fait

un classeur excel transformé en xla, comme tous les classeurs contient au minimum 1 feuille, si à chaque affectation de cellule tu ne précises pas le chemin, tu vas au casse pipes (il écrit sur sa feuille à lui)

Code:

---

1 2 3 4 5 6 7 8 9

Function calc_bandeau() Dim i As Integer Dim Ligne As Integer Dim FinLigne As Integer   With ActiveWorkbook.ActiveSheet .Cells(5, 5) = 25 End With End Function

---

Je ne comprends pas ton locked, la propriété locked ne sert que si la feuille est protégée : Si la feuille est protégée il de vient impossible de modifier une cellule dont la propriété locked et à vrai