[vba excel] executer une macro sur un click

Bonjour Ludivine,

Alors voici une solution possible :

Dans un module standard, il te faut déclarer un variable globale
à ton projet de cette façon :

Option Explicit

Public strAdresse As String

voici le code de détection du changement, légèrement modifié :

Option Explicit
'

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Region As Range, Position As Long
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' Capture de l'adresse du changement
    strAdresse = Target.Address
    
    Position = Range("A1:A65535").End(xlDown).Row
    Set Region = Application.Intersect(Range("B1:B" & Position), Target)
    
    If Not (Region Is Nothing) Then
        uf_Saisie.Show
    End If
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    
End Sub
'

et le code qui devra être placé derrière un bouton de validation
de ton [ UserForm ]

Private Sub cmd_Xfr_Click()
    With ActiveSheet
        .Range(strAdresse).Offset(0, 1).Value = Me.tbx_Valeur.Text
    End With
End Sub
'

Voilà, j'espère avoir bien compris ton dilème !

Lupin

Merci Lupin, je pense que ça doit répondre à ma problématique, le code est intéressant. Malheureusement, je n'arrive pas à tester car il ne fait rien, rien de rien du tout. Même pas ouvrir mon userform (dont j'ai bien changé le nom).

re:

Il te faudra faire attention ici, car les évènements sont désactivés par la ligne :

Application.EnableEvents = False

Si la routine ne s'exécute pas jusqu'a la fin -> Application.EnableEvents = True
Il n'y auras plus d'évènement [ Worksheet_Change ]

Dans un module standard, place cette routine :

Sub ActiveEvenement()
Application.EnableEvents = True
End Sub

Tu pourras ainsi réactiver les évènements du classeur.

De plus cette routine s'accroche sur la colonne A pour déterminer
la plage à surveiller en colonne B, avais-tu compris cette approche ?

Connais tu les points d'arrêts ?, le mode "pas à pas" ?

Lupin

Merci Lupin de ta réponse.
C'était effectivement le fait qu'après un premier plantage, il était resté en
Application.EnableEvents = False.
Je voulais justement te demander par la suite que voulait dire cette commande, ben du coup, c'est déjà fait ;-)
Et à propos, en me renseignant, j'ai découvert que Application.ScreenUpdating = False permet une exécution plus rapide... Dans un fichier j'avais une macro qui durait 20 secondes (pour 100 lignes!), et après ajout de ce code, ben ça dure 0,002 secondes!!!! Lupin, je t'adore!!!!!!!!!

Concernant la notion d'index, j'ai compris que s'il y a quelquechose dans la colonne A et quelquechose dans la colonne B, alors il doit afficher mon userform, ce qui évite qu'il mouline à chercher dans toute la feuille. Dans mon cas, je n'aurais pas vraiment ce fonctionnement, car le nombre de ligne n'est pas infini. Je lui demanderais probablement d'arrêter le traitement à une ligne précise. Mais j'hésite, pourquoi pas une colonne genre index. Il devra chercher dans la ligne 10, puis 11, puis 13, 14, 16, 19..... Mais bon, est-ce plus long de chercher dans 50 lignes, que dans 20 lignes? Je ne pense pas (surtout depuis que j'ai découvert Application.ScreenUpdating = False).

Pour les points d'arrêts et le mode pas à pas, je viens de me renseigner sur ces forums (et je suis tombée sur un de tes messages ;-) ). Je ne m'étais jamais renseignée du pourquoi il y a des gros points marrons quand je clique sur la gauche! !-))))) Excellente découverte! Je vais m'en servir!

Bref, je vais m'endormir moins bête ce soir! (et c'est toujours cela de gagné)
Bonne soirée SUPERLupin, merci pour tout!

wow ... lol

je vais etre dépasser par ce que tu veux ;p

donne moi une adresse mail, pour que je t'envoie ce que je fais

voila :

psychoman4us@hotmail.com

a+