Quand Target.Address dépend d'un parametre

  • Initiateur de la discussion Initiateur de la discussion ZIOl
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Z

ZIOl

Guest
Bonjour à tous,

Je débute en vba et voici mon problème :
J'arrive à programmer l'execution automatique d'un macro "inclusion" lors d'une saisie dans la cellule B17 à partir du programme suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$B$17" And Target.Count = 1 Then
Application.Run ("inclusion")
End If
Application.EnableEvents = True
End Sub

Je dois ensuite programmer l'execution automatique d'une deuxieme macro mais cette fois je ne connais pas la valeur du Target.address qui dépend d'une valeur saisie par l'utilisateur.
Autrement dit, je ne peux pas écrire Target.Address = "$B$17" ou "$B$19"...
mais Target.Address = référence paramétrée d'une cellule.

J'espere avoir été clair.

MErci pour votre aide.
 
Re : Quand Target.Address dépend d'un parametre

Pour illustrer voici un exemple :
L'utilisateur entre une valeur en B17, cette valeur correspond à un nombre de personnes pour lesquelles on va demander des informations supplémentaires. Ainsi si la valeur saisie est 3 alors la macro va ajouter 3 lignes,....

Pour le lancement automatique de la deuxième macro, le target.address sera alors égal à B21,.....c'est à dire que m'on parametre prend la valeur 21= 18 + [B17]

Merci
 
Re : Quand Target.Address dépend d'un parametre

bonsoir,

une variable devra contenir le nombre saisi en B17

le code pourrait être (non testé) :

If Target.Address = "$B$" & Cstr(18+variable) then
.....

bye

complément : testé = OK
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
6
Affichages
515
Réponses
15
Affichages
1 K
Retour