Discussion :

[mondev]

Bonjour tout le monde,


Voilà, tout est dit dans le titre (ou presque), si vous voulez bien m'aider...

En fait, je n'arrive pas à "identifier" une Worksheet dont je connais déjà son CodeName qui est stocké dans une variable.
J'ai déjà tenté :

Code :

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

Sheets(maVariableQuiContientLeCodeName).Range(...etc)

ou :

Code :

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

Worksheets(maVariableQuiContientLeCodeName).Range(...etc)

ou même :

Code :

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

maVariableQuiContientLeCodeName.Range(...etc)

mais sans succès !

Mais en fait, je ne sais pas si c'est "faisable" directement et simplement sans devoir boucler sur les onglets et tester leur CodeName (un peu lourd !)




Là je bloque. J'attends vos réponses avec impatience,
Merci d'avance...

[ucfoutu]

Bonjour,

Comment as-tu défini et typé ta variable maVariableQuiContientLeCodeName ?

[Didier Gonard]

Bonjour,

Tu l'appelles par son nom d'objet (onglets objet de la fenêtre de projet)
genre :

Code :

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

1
2
Set Nomvoulu = Feuil1
 MsgBox Nomvoulu.Name

le msgbox retournant Toto si ton objet Feuil1 a pour nom d'onglet Toto...


cordialement,

Didier

[mondev]

Salut Ormonth, ucfoutu, le forum et merci pour vos réponses,


Oui, j'ai oublié de préciser, ma variable est de type String.
Mon objet Worksheet, son CodeName c'est Modele.
Donc maVariableQuiContientLeCodeName = "Modele"


En faite, je veux absolument appeler la Worksheet par son CodeName et pas par le Name parce que ce dernier peut être modifié par l'utilisateur, donc j'ai choisi le CodeName pour éviter ça mais je sais pas à quoi correspond vraiment la propriété Index ! est ce qu'elle change quand on déplace les onglets ? puis je l'utiliser "sans crainte" à la place de CodeName (ça serait simple) ?

Voilà -au passage- si vous pouviez m'en dire un peu plus sur Index...
J'exagère ?!!!


Merci...

[Didier Gonard]

Bonjour,

Vois les tutos et l’aide vba

Dans l’aide vba tu as tout ce que tu désires à :
- CodeName, propriété
- Index, propriété

Amuses-toi à déplacer l’onglet de ta feuille et à taper dans la fenêtre exécution de l’éditeur vba (CTRL+G) des choses genre :
- ?activesheet.index
- ?activesheet.codename
- Etc…

vois aussi ici :

Qu'est-ce que l'onglet ? Est-ce le nom de la feuille ?

http://www.developpez.net/forums/d82...emier-feuille/

cordialement,

Didier

[kiki29]

Salut, et également http://silkyroad.developpez.com/VBA/...alcul/#LII-B-6

L'intéret du CodeName est de ne pas avoir à modifier le code VBA en cas d'ajout de feuilles, de déplacement de feuilles ou d'onglet renommé

[mondev]

Salut,

Bonjour,

Vois les tutos et l’aide vba

Dans l’aide vba tu as tout ce que tu désires à :
- CodeName, propriété
- Index, propriété

...

Oh j'ai fait tout ça, crois moi !
Je pense qu'on s'éloigne du problème initial, donc je retire ce que j'ai dit sur Index, je préfèrerais utiliser la propriété CodeName...

Alors voilà :
- ma variable : maVariableQuiContientLeCodeName = "Modele" (et est de type string)
- et je n'arrive pas à appeler Modele (qui est le CodeName de l'onglet dont le Name est "Feuil1")

Si ma variable contenait le Name de mon onglet, c'est à dire si elle était = "Feuil1", j'aurais fait Worksheets(maVariable).Range(...etc), et ça aurait marché, mais dans mon cas je ne trouve pas avec quoi remplacer "Worsheets"

Salut, et également

...

L'intéret du CodeName est de ne pas avoir à modifier le code VBA en cas d'ajout de feuilles, de déplacement de feuilles ou d'onglet renommé

Exactement !



Merci à tous...

[kiki29]

Re, un exemple

[mondev]

Oui kiki29, c'est exactement ce que je veux obtenir, j'avais pensé à ça moi aussi...
pour les autres:
on boucle sur les Worksheets et on teste leur CodeName

Mais je voulais savoir si on pouvait faire plus simple !



Merci en tout cas, je vais faire ça pour avancer...

[Abed_H]

Bonsoir
tu mets seulement

Code :

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

Modele.Range(ect....)

et le cout est parti

Bonne nuit.

[ucfoutu]

Bonsoir
tu mets seulement

Code :

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

Modele.Range(ect....)

et le cout est parti

Bonne nuit.

Bonsoir,
Sérieux ?
Et il s'élève à combien, ce coût ?

[mondev]

Bonsoir
tu mets seulement

Code :

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

Modele.Range(ect....)

et le cout est parti

Bonne nuit.

Non c'est pas ça Abed_H, relis plus attentivement
Merci quand même de t'être intéressé à mon cas

[mercatog]

F1

CodeName, propriété
...
Notes
Le nom de code d'un objet peut être utilisé à la place d'une expression qui renvoie l'objet. Par exemple, si le nom de code de la feuille de calcul 1 est « Sheet1 », les expressions suivantes sont identiques :

Worksheets(1).Range("a1")
Sheet1.Range("a1")

[mondev]

Bonjour,


mercatog :
Merci mais je sais tout ça.
Et si le CodeName de l'objet est dans une variable String :
maVariable = "Sheet1" ???



Ok, je vois...
Il me reste plus qu'à exposer mon problème tel qu'il est pour me faire comprendre !

Données :
- J'ai plusieurs Worksheet
- Sur certaines d'entre elles si je double-clique sur une cellule (pas toutes mais une en particulier), cela provoque l'apparition d'un UserForm
- Dans mon UserForm, j'ai un bouton "Valider", qui une fois cliqué va insérer des trucs dans "LA cellule qui l'a appelé"

Solutions :
- Donc, je dois bien faire passer au UserForm l'objet Worksheet ET la cellule, pour qu'il insère "ces trucs" au bon endroit,
On est bien d'accord sur ce point ?!!!

Problème :
- Entre l'affichage du UserForm et le Clique sur "Valider" l'utilisateur pourrait (c'est peu probable mais ça peut arriver) modifier le nom de l'onglet et/ou le déplacer (l'onglet) ou activer un autre onglet.
Donc, je ne dois pas utiliser le Name de l'onglet ni son Index ni ActiveWorksheet ou ActiveCell.



Voilà, je crois avoir tout dit...

Merci à tous...

[mercatog]

Pour ceci, Il suffit d'instancier ta feuille avant l'appel de l'userform!
ça dépend du code!
exemple

Code :

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

1
2
3
4
5
6
Option Explicit
Public sht As Worksheet
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set sht = ActiveSheet
Cancel = True
If Target.Address = "$A$1" Then UserForm1.Show

si ton usf est modal, l'utilisateur n'aura pas la main pour modifier tes feuilles

[laetitia]

bonjour le fil le forum tu as essaye ???

outils/ protection /proteger classeur /structure /un mot de passe
ne peut pas deplacer les onglets & renommees
user showModal=true

en complement
declare une variable public dans un module standard

Code :

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

1
2
Option Explicit
Public i As String

code evenement

Code :

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

1
2
3
4
5
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
i = ActiveSheet.Name
If Target.Address = "$A$1" Then UserForm1.Show
End Sub

dans user pour essayer tu met un bouton
code

Code :

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

1
2
3
Private Sub CommandButton1_Click()
MsgBox i
End Sub