Lancer une macro.

[guy72]

Bonjour,
Encore besoin de vos services.

Un mot est saisie en "F24"
en faisant "Entrée", il faudrait lancer la macro "Solution"
qui copie avec interval les lettres du mot en G6:
Qui remplacerais le bouton "ok".
Merci de votre aide.

Fichier Exemple :

 

[BERRACHED said]

Re : Lancer une macro.

Salut,guy72

il fallait associer le bouton a la macro

Cordialement

 

[CB60]

Re : Lancer une macro.

Bonsoir

de cette façon:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F24")) Is Nothing Then
Rows("6:6").ClearContents
  y = 1
  For X = 1 To Len([F24])
  Cells(6, 1 + y) = Mid([F24], X, 1)
  y = y + 2
  Next
  End If
End Sub

Faire un click droit sur l'onglet et copier le code dans le VBA de cette feuille


Edit bonsoir a Tous, JC c'est Guy qui avait fais tous le boulot, il ni avait qu'a adapter

 

[Cousinhub]

Re : Lancer une macro.

Bonsoir,

modifie le code ainsi :

dans le module :

Sub Solution()
Rows(6).ClearContents
  y = 1
  For X = 1 To Len([F24])
  Cells(6, 1 + y) = Mid([F24], X, 1)
  y = y + 2
  Next
End Sub

et dans l'évènement de la feuille (clic droit sur le nom de l'onglet, "Visualiser le code")

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Address = "$F$24" And Target <> "" Then
        Call Solution
        Target.Select
    End If
End If
End Sub

 

[JCGL]

Re : Lancer une macro.

Bonjour à tous,

Cela nécessite l'utilisation de :

SendKeys (......{Enter}"), True

Mais je n'ai pas trouvé le code qui va bien.

Si j'ai bien compris que tu souhaitais lancer le code à la fin de la saisie en F24 et de la validation par Enter.

A+

 

[JCGL]

Re : Lancer une macro.

Bonjour à tous,
Salut Bruno,
Salut BH²,

Bravo, vos codes fonctionnent à merveille

A++
A+ à tous

 

[guy72]

Re : Lancer une macro.

Bonsoir,
Merci à tous.
Je n'arrivais pas à trouver ce qui ne colait pas.
Merci encore et peut être à une autre fois ?