Discussion :

[sbastitou]

Bonjour,

Je cherche à lancer une macro, ci-dessous la structure (très) simplifié de mon fichier:


J'ai une liste en face de chaque numéro de commande, la liste fait référence à la liste en G4.

Je voudrais lancer automatiquement une "macro perso" qui va travailler sur la liste lorsque j'ajoute un numéro de commande:
Si A14 je saisie "10", je voudrais lancer une macro qui va travailler sur la liste qui est en B14.

• Il va y avoir plusieurs milliers de lignes "NumCommande", donc je ne peux pas actualiser l'ensemble des lignes à chaque changements

• Une fois le numéro de commande saisie et la macro lancée pour la ligne correspondante, plus question de relancer la macro sur ces lignes (des ajustements à la main pourront etre fait dans les listes, pas question de tout écraser)

Savez vous comment faire?
Le Sub Worksheet_Change(ByVal Target As Range) travaille sur toute une colonne, ce qui ne colle pas avec mes prérequis...

Merci!

[riaolle]

Bonjour,
Je n'ai pas tout à fait compris le problème, mais voici ce que je peux te dire :

Le "Sub Worksheet_Change(ByVal Target As Range)" travaille sur toute une colonne

Non, ce n'est pas vrai. Je te conseille de lire ceci. Target correspond à une cellule "cible", soit la cellule qui a été modifiée. Ensuite, tu peux mettre des conditions dans ta méthode pour déclencher une action seulement sur certaines cellules. Par exemple :

Code :

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

1
2
3
4
Sub Worksheet_Change(ByVal Target As Range)
    Set Plage = Range("B5:E20")
    If Application.Intersect(Target, Plage) Is Nothing Then MsgBox "Vous avez modifié la cible"
End Sub

Ici on dit : si la cellule appartient à la plage B5:E20 alors lancer une message box "...".
Toi, tu veux que la macro se déclenche si on modifie les cellules d'une certaine colonne (A), tu peux donc écrire :

Code :

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

1
2
3
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then ...
End Sub

Mais tu veux aussi qu'elle se déclenche seulement si c'est ta première saisie...là c'est déjà un peu plus compliqué. Mais j'ai déjà vu passer un sujet là-dessus il y a quelques temps. Je suis plus très sûre de la façon dont ça avait été résolu, mais je crois qu'il y avait une combinaison entre Worksheet_SelectionChange et Worksheet_Change avec une variable globale. Quelque chose comme ça :

Code :

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

1
2
3
4
5
6
7
8
Global maCellule As String
Sub Worksheet_SelectionChange(ByVal Target As Range)
    maCellule = Target.Value
End Sub
 
Sub Worksheet_Change(ByVal Target As Range)
    If maCellule = "" And Target.Column = 1 Then ...
End Sub

Bon, je suis pas sûre à 100% que ça marche, alors à tester...et refais éventuellement des recherches sur developpez.net pour voir si tu trouves pas la conversation qui expliquait cela.