Discussion :

[Henri1830]

Bonjour,

Je dois exécuter une série de traitement sur un fichier.
Au début du processus l'utilisateur choisis et ouvre son fichier et ensuite, il doit faire un choix dans une liste déroulante.
Voici la méthode que j'utilise pour cette liste:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="BIAC CDF ,BIAC USD ,RAW USD ,TMB CNF ,TMB USD "
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "Vos comptes"
        .ErrorTitle = ""
        .InputMessage = "Choisissez un compte en cliquant sur la flèche"
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Je souhaite que la macro reprenne automatiquement son cours une fois que l'utilisateur a fait son choix.

Quelqu'un aurait-il une idée ?

Merci d'avance.

Henri

[joe.levrai]

Bonjour,

tu vas devoir couper ta procédure en plusieurs morceaux pour ça.

peux-tu nous montrer l'intégralité de cette procédure ?


à titre d'exemple, une piste (possible suivant ce que contient ta procédure actuelle) :

1) première procédure, qui s'arrête à la création de la liste de validation, avec un message invitant l'utilisateur à faire son choix
2) seconde procédure, sur l'évènement Change de la feuille, pour vérifier que l'utilisateur a fait son choix. Si le choix est ok, appel de la procédure 3
3) la fin du traitement de ta procédure initiale.

[Henri1830]

Bonjour Joe.Levrai,

Merci pour la réponse.
En fouinant avant de poser la question, j'ai trouvé une procédure qui utilise effectivement cette fonction CHANGE, mais je ne sais pas comment l'utiliser.
Voici ce qui était proposé :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Not Application.Intersect(Target, Range("E1")) Is Nothing Then
        Call ListeDesPaiementsSuite
    End If
 
End Sub

J'ignore si le code est correct, mais je ne vois pas où le placer ni comment y faire appel.

Merci d'avance pour ta réponse.

Henri

PS: au besoin, je peux envoyer le code, pas de soucis.

[joe.levrai]

C'est exactement ce type de procédure dont je parlais dans le point 2

oui il faut montrer ton code complet, le morceau que tu as montré ne présente pas certaines choses indispensables.

[Henri1830]

Désolé, mais il y a un problème avec l'ajout des fichiers sur Developpez.com.
Je peux te l'envoyer par mail ?

[joe.levrai]

tu as juste à faire un copier coller de tes lignes de code dans un message, de la même façon que la procédure que avais montré dans ton message précédent