Discussion :

[zoumzoum59]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[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

[zoumzoum59]

Bonsoir pgz

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ET

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[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.

[mercatog]

C'est aussi simple qu'un adressage direct

Regarde ici cet exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
sheets("Feuil1").select
range("A1").select
Activecell.offset(0,1).Interior.colorindex=4

Et fais une comparaison avec celui-ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

C'est direct, sans aucune sélection ou activation (qui rendent le code instable)

[Didier Gonard]

Bonjour,
au niveau tuto, vois ceci :

Programmer efficacement avec Excel en VBA

cordialement,

Didier

[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