[vb excel] Problemen methode Deactivate.

Version imprimable

09/11/2005, 13h01
Mugette

[vb excel] Problemen methode Deactivate.

Je n'arrive pas à utiliser la méthode Deactivate sur l'objet Worksheets, est-ce normal ?

Code:

workbooks(wbname).worksheets(wsname).Deactivate

ceci doit normalement désactivé la feuille active mais j'ai une erreur qui me dit la méthode n'est pas gérée par l'objet Worksheet.

Le but de mon code est d'appliqué une fonction sur une feuille (active).

Pouvez-vous m'aider ?
09/11/2005, 13h24
Megaxel

Bonjour Mugette.
Mais est-ce que le simple fait d'activer une nouvelle feuille, sur laquelle tu veux appliquer ta fonction, ne désactive pas forcément la précédente?
Tu n'as pas besoin de désactiver une feuille avant.
Non?
09/11/2005, 13h48
Megaxel

Je trouvais bizarre, ce "Deactivate", alors j'ai fouillé un peu.
Il n'y a pas de propriété .Deactivate sur une worksheet. Il existe seulement l'événement "Deactivate", qui est appelé lorsqu'un onglet est désactivé.

Ok.
Mon probleme est l'apel d'une fonction sur un module différent permettant de copier le style(bordure, couleur de fond) d'une ligne précise.
cependant lorsque j'apelle cette fonction sur la 1ere sheet ça marche sur les feuilles suivantes ça bug, et je ne comprend pas pourquoi.
Sachant que ma fonction ressemble à ça.

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
30
31
32
33
34
35
36
37
38
39
 
Sub copie_style()
 
    Dim tab_der_ligne()
    Dim j, num_ligne As Integer
 
    j = 3
 
    While ActiveSheet.Cells(j + 1, 1).Rows.Value <> ""
        j = j + 1
        If ActiveSheet.Cells(j + 1, 1).Columns.Value = "" Then
             num_ligne = j + 1
        End If
    Wend
 
    If ActiveSheet.Cells(num_ligne - 7, 1).Interior.ColorIndex = 37 Then
        ActiveSheet.Activate
        Rows("4:4").Select
        Selection.Copy
        ActiveSheet.Rows(num_ligne).Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
        With Selection.Interior
            .ColorIndex = 37
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
        End With
    Else
        ActiveSheet.Activate
        Rows("4:4").Select
        Selection.Copy
        ActiveSheet.Rows(num_ligne).Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
    End If
 
End Sub

Ativesheet est censé prendre la feuille active, et moi j'active bien la feuille dont je veux copier le style.

merci d'avance.

09/11/2005, 16h07
Megaxel
Déjà, je ne comprend pas ce que tu veux faire avec
Code:

1 2 ActiveSheet.Cells(j + 1, 1).Rows.Value
Il sert à quoi, le ".Rows' ?
Pareil, il sert à quoi, le .columns, juste après, dans le "If"?
Ensuite, ActiveSheet représente la feuille active, alors à quoi ça sert de faire un ActiveSheet.Activate? Tu actives la feuille qui est déjà active, c'est bizarre.

Bonsoir,
Ce code copie la ligne 4 de la feuille1(avec le style, le format etc..) dans les feuilles 2 et 3

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub CopieFormat()
    Rows("4:4").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=False
        Range("A1").Select
    Sheets("Feuil3").Select
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=False
    Application.CutCopyMode = xlCut
Range("A1").Select
End Sub

jpleroisse