Executer procedure sur cellule non selectionée

[treza88]

Je voudrais executer une procedure en pointant une cellule par le biais de Activecell.Offset, mais sans la selectionner.
J'ai donc fait le code suivant mais ça ne fonctionne pas ça prend toujours ma cellule de reference et non celle pointer par Activecell.Offset

If Chb_surcote = True Then
        ActiveCell.Offset(0, 4).Run Surcote

Si quelqu'un a une idée, merci d'avance

 

[Grand Chaman Excel]

Re : Executer procedure sur cellule non selectionée

Bonjour treza88,
Une idée, sans avoir testé...
Peut-être que tu devrais passer ta cellule en argument, comme :

If Chb_surcote = True Then
  Call Surcote (ActiveCell.offset(0,4))

et bien sûr avoir modifié ta procédure Surcote pour qu'elle accepte des arguments :

Sub Surcote(Plage as Range)

A+

 

[treza88]

Re : Executer procedure sur cellule non selectionée

merci, Grand Chaman Excel

Mais apres test, c'est toujours la cellule de réference qui est prise en compte et non pas celle pointé par l'offset.

 

[Grand Chaman Excel]

Re : Executer procedure sur cellule non selectionée

Rebonjour,

Et si tu affectes ta cellule pointées par offset à une variable avant d'appeler ta procédure...?

If Chb_surcote = True Then
  Set cellulePointee = activecell.offset(0,4)
  Call Surcote (cellulePointee)

 

[treza88]

Re : Executer procedure sur cellule non selectionée

Non desolé, j'ai une erreur "type d'argument Byref incompatible", sur la variable "cellulepointee"

 

[Grand Chaman Excel]

Re : Executer procedure sur cellule non selectionée

Re-re-bonjour,
Est-ce que tu peux joindre ton fichier ou au moins ton code pour la procédure "surcote"?

Merci.

 

[treza88]

Re : Executer procedure sur cellule non selectionée

Bonsoir,

Je ne suis plus devant mon fichier, mais ma proceduer Surcote est:

Sub Surcote()

With Selection.Font
.Name = "ITC Bookman Demi"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Interior.ColorIndex = 15
End Sub


C'est juste pour changer la couleur du fond et la police (tiré directement de l'enregistreur de macro), elle est executé apres validation d'une userform si une checkbox (Chb_surcote) est coché.

 

[Grand Chaman Excel]

Re : Executer procedure sur cellule non selectionée

Bonsoir,

Aaah... Le problème est qu'il faut utiliser With Rg.font au lieu de With Selection.Font... tout en passant un argument "Rg" de type Range à la fonction Surcote.

Ce sera plus clair dans le fichier joint.

PS : Si c'est juste pour changer la couleur de fond et la police, on peut simplifier par ceci :

Sub Surcote(rg As Range)

rg.Font.Name = "ITC Bookman Demi"
rg.Interior.ColorIndex = 15

End Sub

A+

 

[treza88]

Re : Executer procedure sur cellule non selectionée

Bonjour et Merci Grand Chaman Excel,

C'est impecable et de plus la compression du code est top, je n'aurait pas arrivé à le reduire autant.

Encore merci