Discussion :

[jazzybluesy]

Bonjour tout le monde,
Je voulais savoir si il était possible d activer l intellisense pour chaque frappe automatiquement plutot que de passer par CTRL + SPACE.
Je sais qu il est automatique pour les objets, mais pas pour les variables.
Exemple :

Code :

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

1
2
3
4
 
Dim MaVariable AS String
 
Ma... 'j aimerais avoir l intellisense maintenant sans appuyer sur ctrl+espace

Merci d avance pour la personne qui pourra m aider

[Oliv-]

Salut,
Je ne pense pas que ce soit possible, à moins de trouver un complément qui fasse cela. (genre MZ-tools mais qui ne le fait pas !)

[jazzybluesy]

Merci pour ta réponse: Je laisse le sujet encore un peu ouvert au cas ou y ai une personne qui aurait une soluc.

Merci en tout cas

[Theze]

Bonjour,

Tu peux utiliser un module de classe mais c'est à mon sens un peu lourd pour pouvoir utiliser l'intellisense.
Dans le module de classe nommé ici "Classe1" :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Private Variable1 As String
Private Variable2 As String
 
Property Get MaVariable_1() As String
 
    'retourne la valeur stockée dans la variable
    'interne au module de classe "Variable1"
    MaVariable_1 = Variable1
 
End Property
 
Property Let MaVariable_1(Valeur As String)
 
    'stocke la valeur dans la variable
    'interne au module de classe "Variable1"
    Variable1 = Valeur
 
End Property
 
Property Get MaVariable_2() As String
 
    'retourne la valeur stockée dans la variable
    'interne au module de classe "Variable2"
    MaVariable_2 = Variable2
 
End Property
 
Property Let MaVariable_2(Valeur As String)
 
    'stocke la valeur dans la variable
    'interne au module de classe "Variable2"
    Variable2 = Valeur
 
End Property
 
'et ainsi de suite...

Dans un module standard, formulaire, feuille ou classeur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Test()
 
    Dim M As New Classe1
 
    M.MaVariable_1 = "jazzybluesy"
 
    MsgBox M.MaVariable_1
 
    M.MaVariable_2 = "Test module de classe"
 
    MsgBox M.MaVariable_2
 
End Sub

Hervé.

[jazzybluesy]

Merci Hervé pour cette solution. Ca risque d etre un peu lourd mais merci quand meme.

Merci a vous deux