Executer procedure sur cellule non selectionée

Version imprimable

18/05/2011, 18h23
zoumzoum59

Executer procedure sur cellule non selectionée
Bonjour,

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
Code:

1 2 If Chb_surcote = True Then ActiveCell.Offset(0, 4).Run Surcote
Si quelqu'un a une idée, merci d'avance
18/05/2011, 19h07
pgz

Bonsoir.

La syntaxe ne semble pas bonne. Mais pour savoir comment écrire l'instruction, il faudrait savoir ce qu'est "Surcote" et si c'est une procédure, quels sont ses arguments.

PGZ

Bonsoir pgz

Ma procedure Surcote est celle ci, tiré de l'enregistreur de macro :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 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, elle est executé apres validation d'une userform si une checkbox (Chb_surcote) est coché.

J'espere etre assez claire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Surcote(Rng As Range)
 
With Rng
    With .Font
        .Name = "ITC Bookman Demi"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    .Interior.ColorIndex = 15
End With
End Sub

Code:

1
2
If Chb_surcote = True Then
        Call Surcote(ActiveCell.Offset(0, 4))

PS: Essaies d'éviter de travailler avec les Select, Acticecell, Activate....

18/05/2011, 20h33
zoumzoum59

Merci mercatog,

Je teste ça demain car je ne suis plus devant mon fichier.

Quand à eviter d'utiliser les Select, Acticecell, Activate.... je voudrais bien mais je ne suis pas un pro en programmation, et je ne sais pas comment faire autrement.
Mais si tu as un tuyau ou un tuto qui me permette de comprendre comment faire autrement, n'ésite pas.
18/05/2011, 21h18
mercatog
C'est aussi simple qu'un adressage direct

Regarde ici cet exemple
Code:

1 2 3 sheets("Feuil1").select range("A1").select Activecell.offset(0,1).Interior.colorindex=4
Et fais une comparaison avec celui-ci

Code:

sheets("Feuil1").range("B1").Interior.colorindex=4

C'est direct, sans aucune sélection ou activation (qui rendent le code instable)
19/05/2011, 08h21
Didier Gonard

Bonjour,
au niveau tuto, vois ceci :

Programmer efficacement avec Excel en VBA

cordialement,

Didier
19/05/2011, 08h53
zoumzoum59

Bonjour Mercatog et Ormonth

Mercatog merci pour le coup de pouce et les infos je vais essayer de re voir tout le code de mon fichier cela permettra certainement qu'il soit plus rapide en execution.

Et merci Ormonth pour le tuto je vais essayer de le lire le plus attentivement possible.

Encore merci à vous deux