Discussion :

[Kutoh]

Bonjour,
J'aimerai savoir s'il vous plait comment gérer les méthodes select et activate.
En gros j'aimerai savoir s'il est possible d'écrire

Code :

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

1
2
ThisWorkbook.Sheets(NomFeuil).MaPlage.Select
'Avec MaPlage qui est une range

sans que la feuille dans laquelle se trouve ma plage ne soit activée.
Lorsque j'écris cette ligne de code, j'ai un message du type:

Propriété ou méthode non gérée par cet objet ou encore
La méthode select de l'objet Range a échoué
ma méthode Select ne marche en fait que lorsque ma feuille est active. J'aimerai savoir s'il n'y a pas un moyen d'y remédier.

Une idée?
Merci d'avance.

[casefayere]

Bonjour,

En gros j'aimerai savoir s'il est possible d'écrire

Code :

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

ThisWorkbook.Sheets(NomFeuil).MaPlage.Select

'Avec MaPlage qui est une range sans que la feuille dans laquelle se trouve ma plage ne soit activée.

Alors pourquoi l'activer avec Select ou Activate ? ,tu peux travailler sans selectionner

Code :

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

ThisWorkbook.Sheets(NomFeuil).MaPlage = ce que tu veux

[Marc-L]

Bonjour,

tout comme Dominique !

Pour rappel pour ceux voulant utiliser quand même cette affreuse méthode Range.Select souvent source d'ennuis,
elle ne fonctionne que sur la feuille active, donc ne peut être liée à aucun autre objet, d'où le message d'erreur …

[Kutoh]

Dc tu penses que je pourrais appliquer toute les méthodes possibles sans toutefois activer ou sélectionner?

Par exemple faire la mise en page d'un tableau excel sans que la feuille ne soit active.

Parce que j'ai eu le même problème avec la méthode Copy d'une feuille non visible, ca m'a affiché le même message d'erreur. Pourtant je peux bien copier une feuille d'un classeur ouvert non visible.

Et je ne sais pas si c'est parce que j'utilise des fonctions pour le faire.
Serait-ce le cas?! (Le fait d'utiliser les fonctions)

#Marc-L c'est bien ce que je me disais

[Invité]

bonjour,

Code :

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

Worksheets("Sheet1").Copy After:=NewClasur.Worksheets(NewClasur.Worksheets.Count)

[Philippe Tulliez]

Bonjour,

Dc tu penses que je pourrais appliquer toute les méthodes possibles sans toutefois activer ou sélectionner?

Ce n'est pas que l'on pense mais on est certain.
Tu peux même utiliser une variable objet en attribuant comme valeur une plage complète avec sa feuille et son classeur.

Code :

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

1
2
3
4
5
 Dim maPlage As Range
 Set maPlage = ThisWorkbook.Worksheets("Feuil1").Range("A1:F500")
 maPlage = "Excel" ' Ecrire Excel dans l'ensemble des cellules de cette plage
 MsgBox "Voulez-vous continuer"
 maPlage.Clear ' Effacer la plage

[Invité]

quand tu arrive le matin au travail et que tu ouvre ton ordinateur, la seule chose que tu sais est que le premier fichier que tu ouvre dans Excel est le premier actif

si tu ouvre un autre il devient actif. on a la fâcheuse tendance à oublier qu'il en est de-même quand on le fait par macro.

la première chose à faire dans ce cas, est de sauvegarder la référence du classeur actif dans une variable Objet.

Code :

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

Set MyClasseur = ActiveWorkbook

ensuite et ensuite seulement ouvre/créer un nouveau classeur

Code :

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

Set NewClasseur = Workbooks.Add

ainsi tel un joungleur tu peux manipuler tes objets:

Code :

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

MyClasseur.Sheets("Feuille1").Copy After:=NewClasur.Worksheets(NewClasur.Worksheets.Count)

tu as accès à ses méthodes et ses propriétés:

Code :

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

NewClasseur.Range("a1").Interior.Color = red

il existe 3 objet vb important:

Code :

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

1
2
3
Dim MyClasseur As Workbook
Dim MySheet As Worksheet
Dim MyRange As Range

Bien sur il y en à d'autre mais c'est important de connaître ceux là et de savoir les manipuler.

[Kutoh]

Ok Merci, je vais commencer à raisonner comme tel.
Mais je me suis toujours demandé comment arriver à travailler sans utiliser select ou activate. Quand je ne les utilise pas, j'ai souvent un message d'erreur. Par exemple j'ai la ligne de code suivante qui m'affiche un message de d'erreur

Code :

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

TabActuel = ThisWorkbook.Sheets(NomFeuil).Range(Range("C10"), Range("C10").End(xlDown)).Value

Et je n'ai aucune idée où se trouve le le problème.

Peut être utiliser les index des feuilles au lieu de leurs noms peut en partie résoudre ce problème. Qu'en pensez-vous?

[Invité]

Ok Merci, je vais commencer à raisonner comme tel.
Mais je me suis toujours demandé comment arriver à travailler sans utiliser select ou activate. Quand je ne les utilise pas, j'ai souvent un message d'erreur. Par exemple j'ai la ligne de code suivante qui m'affiche un message de d'erreur

Code :

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

TabActuel = ThisWorkbook.Sheets(NomFeuil).Range(Range("C10"), Range("C10").End(xlDown)).Value

Et je n'ai aucune idée où se trouve le le problème.

Code :

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

1
2
3
4
5
6
NomFeuil = "Feuil1"
Dim TabActuel As Range
Set TabActuel = ThisWorkbook.Sheets(NomFeuil).Range(Range("C10"), Range("C10").End(xlDown))
For i = 1 To TabActuel.Rows.Count
Debug.Print TabActuel(i, 1)
Next

le mieux serait

Code :

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

1
2
3
4
5
6
7
8
NomFeuil = "Feuil1"
Dim TabActuel As Worksheet
Dim MyRange As Range
Set TabActuel = ThisWorkbook.Sheets(NomFeuil)
Set MyRange = TabActuel.Range(TabActuel.Range("C10"), TabActuel.Range("C10").End(xlDown))
For i = 1 To MyRange.Rows.Count
Debug.Print MyRange(i, 1)
next

[Marc-L]

Code :

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

TabActuel = ThisWorkbook.Sheets(NomFeuil).Range(Range("C10"),  Range("C10").End(xlDown)).Value

Et je n'ai aucune idée où se trouve le le problème.

Normal, des Range non qualifiés …

Code :

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

1
2
3
    With ThisWorkbook.Sheets(NomFeuil)
        TabActuel = .Range(.Range("C10"), .Range("C10").End(xlDown)).Value
    End With

ou encore

Code :

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

1
2
3
4
5
6
    Dim Ws As Worksheet
 
    Set Ws = ThisWorkbook.Sheets(NomFeuil)
    TabActuel = Ws.Range(Ws.Range("C10"), Ws.Range("C10").End(xlDown)).Value
 
    Set Ws = Nothing

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Invité]

effectivement j'ai pas percuté

Code :

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

TabActuel = ThisWorkbook.Sheets(NomFeuil).[C10].End(xlDown).Value …

[Marc-L]

Désolé Robert, Mea Culpa ‼

Je me suis trompé en confondant une parenthèse, son idée est donc correcte pour une variable tableau !

J'ai corrigé mon message avec une deuxième proposition, équivalente à la tienne en fait …

[Invité]

il faut lui préciser que c'est un variable tableau!

Code :

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

1
2
dim TabActuel()
TabActuel = Ws.Range(Ws.Range("C10"), Ws.Range("C10").End(xlDown)).Value

[Kutoh]

Normal, des Range non qualifiés …

Code :

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

1
2
3
    With ThisWorkbook.Sheets(NomFeuil)
        TabActuel = .Range(.Range("C10"), .Range("C10").End(xlDown)).Value
    End With

ou encore

Code :

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

1
2
3
4
5
6
    Dim Ws As Worksheet
 
    Set Ws = ThisWorkbook.Sheets(NomFeuil)
    TabActuel = Ws.Range(Ws.Range("C10"), Ws.Range("C10").End(xlDown)).Value
 
    Set Ws = Nothing

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

Ok ca fonctionne. Donc le problème c'est l'attribution des valeurs d'une plage non définie si je comprends bien.
Parce que lorsque je fais de même en attribuant à une plage les valeurs d'un tableau, j'ai pas de problème. Exple:

Code :

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

ThisWorkbook.Sheets(NomFeuil).Range("G78:G85").Value = Nominal

[Marc-L]

il faut lui préciser que c'est un variable tableau!

Disons c'est ce que j'en ai déduit par le nom de la variable et la présence explicite de .Value à la fin de son exemple …

[Kutoh]

Ahhh oui je viens de comprendre. Merci.

[Marc-L]

Parce que lorsque je fais de même en attribuant à une plage les valeurs d'un tableau, j'ai pas de problème. Exple:

Code :

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

ThisWorkbook.Sheets(NomFeuil).Range("G78:G85").Value = Nominal

Là pas de souci car l'unique Range est bien rattaché à une feuille et un classeur …

Ne pas oublier :

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Kutoh]

Ok. Désolé, mais j'ai envie de finir avec cette histoire de select.
J'écris le code suivant me permettannt de faire une petite mise en page d'un tableau sur excel.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    With ThisWorkbook.Sheets("Feuille").Range("A20:D30").Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark2
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With ThisWorkbook.Sheets("Feuille").Range("A20:D30").Font
      .Name = "Calibri"
      .Size = 12
    End With

Mais j'ai le message suivant:
Propriété ou méthode non gérée par cet objet sur la ligne de code suivante:

Code :

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

 With ThisWorkbook.Sheets("Feuille").Range("A20:D30").Interior

[Philippe Tulliez]

Bonjour,
Bien qu'en principe le message d'erreur devrait être une erreur 9 (l'indice n'appartient pas à cetet sélection), es-tu certain qu'il y a une feuille nommée Feuille dans ce classeur ?
Pour ma part, je ne vois pas de problème dans cette ligne.

[Kutoh]

Sisi il y'a une feuille de ce nom dans mon classeur. Moi non plus je ne vois pas de problème sur cette ligne.
C'est ce genre de message d'erreur qui faisait en sorte que j'utilise les Select et Activate.