Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Lien Worksheet- Module

4 réponses
Avatar
Thierry
Bonsoir,

j'ai du code VBA dans un feuille (remplissage d'une liste déroulante à
partir des données d'une colonne) qui passe très bien sous ms office 2007.
Ce même code ne passe pas dans Ms office 2003. Alors que j'ai ce type de
code dans un moule et qui ne me pose aucun problème sous 2007 ou 2003.

je voudrais passer ce code de la feuille3 dans un module, mais je voudrais
qu'il s'execute depuis la feuille 3 avec un selection change comment faire ?

Merci.




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000739-3, 11/05/2007
Analyse le : 13/05/2007 19:00:09
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

4 réponses

Avatar
hasco
Mettre dans un module le code en question par exemple

Public Sub RemplitMaListe()
.....placer le code ici
End Sub

Et l'appeler depuis le gestionnaire d'évènement SelectionChange de la feuille3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' C'est un exemple
If Target.Range("A1").Address="$G$1" then RemplitMaListe
End Sub



Bonsoir,

j'ai du code VBA dans un feuille (remplissage d'une liste déroulante à
partir des données d'une colonne) qui passe très bien sous ms office 2007.
Ce même code ne passe pas dans Ms office 2003. Alors que j'ai ce type de
code dans un moule et qui ne me pose aucun problème sous 2007 ou 2003.

je voudrais passer ce code de la feuille3 dans un module, mais je voudrais
qu'il s'execute depuis la feuille 3 avec un selection change comment faire ?

Merci.




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000739-3, 11/05/2007
Analyse le : 13/05/2007 19:00:09
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






Avatar
Thierry
Quand j'écris cela il me fait erreur de compilation variable ou procédure
attendu et non un module

que faire ?

"hasco" a écrit dans le message de news:

Mettre dans un module le code en question par exemple

Public Sub RemplitMaListe()
.....placer le code ici
End Sub

Et l'appeler depuis le gestionnaire d'évènement SelectionChange de la
feuille3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' C'est un exemple
If Target.Range("A1").Address="$G$1" then RemplitMaListe
End Sub



Bonsoir,

j'ai du code VBA dans un feuille (remplissage d'une liste déroulante à
partir des données d'une colonne) qui passe très bien sous ms office
2007.
Ce même code ne passe pas dans Ms office 2003. Alors que j'ai ce type de
code dans un moule et qui ne me pose aucun problème sous 2007 ou 2003.

je voudrais passer ce code de la feuille3 dans un module, mais je
voudrais
qu'il s'execute depuis la feuille 3 avec un selection change comment
faire ?

Merci.




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000739-3, 11/05/2007
Analyse le : 13/05/2007 19:00:09
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000740-0, 13/05/2007
Analyse le : 14/05/2007 07:34:20
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-0, 13/05/2007
Analyse le : 14/05/2007 07:56:33
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com


Avatar
Thierry
J'ai mal lu ta reponse qu'appelle tu le gestionnaire d'événement ?

Moi je l'ai mis dans le worksheet de la feuille

"hasco" a écrit dans le message de news:

Mettre dans un module le code en question par exemple

Public Sub RemplitMaListe()
.....placer le code ici
End Sub

Et l'appeler depuis le gestionnaire d'évènement SelectionChange de la
feuille3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' C'est un exemple
If Target.Range("A1").Address="$G$1" then RemplitMaListe
End Sub



Bonsoir,

j'ai du code VBA dans un feuille (remplissage d'une liste déroulante à
partir des données d'une colonne) qui passe très bien sous ms office
2007.
Ce même code ne passe pas dans Ms office 2003. Alors que j'ai ce type de
code dans un moule et qui ne me pose aucun problème sous 2007 ou 2003.

je voudrais passer ce code de la feuille3 dans un module, mais je
voudrais
qu'il s'execute depuis la feuille 3 avec un selection change comment
faire ?

Merci.




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000739-3, 11/05/2007
Analyse le : 13/05/2007 19:00:09
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000740-0, 13/05/2007
Analyse le : 14/05/2007 07:34:20
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000740-0, 13/05/2007
Analyse le : 14/05/2007 08:42:42
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com


Avatar
hasco
Dans la ligne:

If Target.Range("A1").Address="$G$1" then RemplitMaListe

RemplitMaListe n'est pas le nom du module mais celui de la procédure qui
remplit la liste.

Un gestionnaire d'évènement est une procédure qui répond à un évènement
particulier.
Dans notre exemple, chaque changement de sélection dans la feuille3

Tu peux mettre l'appel de la procédure " RemplitMaListe " dans la procédure
qui gère cet évènement qui se trouve dans le module Worksheet de la feuille3

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' ICI, Module1 est le nom du module qui contient la procédure
If Target.Range("A1").Address="$G$1" then Call
Module1.RemplitMaListe
End Sub