Macro automatique

[benjamin.prade]

Bonjour à tous,

Dans un de mes fichiers excel j'ai une macro qui me permet de copier le contenu d'une zone de texte pour le mettre dans une cellule :

Range("A1") = Feuil1.Shapes.Range(Array("ZoneTexte 1")).TextFrame2.TextRange.Characters.Text

Explication : Le texte contenu dans la "ZoneTexte 1" sur la "Feuil1" de mon fichier vient se coller dans la cellule A1.

Cette formule marche très bien grâce à un bouton.

Ma question est la suivante:
Est-il possible que cette macro se déclenche toute seule dès lors que quelque chose est saisi dans ma "ZoneTexte 1" sans que j'ai à appuyer sur le bouton?

Pour l'instant j'ai utilisé :

Sub Infos_produit(ByVal Target As Range)

If Not Intersect([Feuil9.Shapes.Range(Array("ZoneTexte 37"))], Target) Is Nothing Then

On Error Resume Next

Range("H30") = Feuil9.Shapes.Range(Array("ZoneTexte 37")).TextFrame2.TextRange.Characters.Text

End If

End Sub

Mais ça ne fonctionne pas.

Si vous avez une solution je suis preneur.

Merci d'avance !

 

[néné06]

Re : Macro automatique

Bonjour Benjamin

C'est possible en passant par l' évènement "Selection Change", mais avec une petite pièce-jointe, ce serait plus facile pour nous!

A+

René

 

[gilbert_RGI]

Re : Macro automatique

Bonjour,

à la sortie de la textbox de la feuille

Private Sub TextBox1_LostFocus()
'le nom de votre macro
End Sub

 

[benjamin.prade]

Re : Macro automatique

Merci pour ta réponse René. Je t'ai joint un fichier simplifié avec la macro.

Merci Gilbert mais ça n'a pas l'air de fonctionner malheureusement.

Je vais continuer à chercher je vous tiens ua jus si je trouve quelque chose.

 

[gilbert_RGI]

Re : Macro automatique

voilà ça marche avec le bouton et en sortant de la textbox

 

[néné06]

Re : Macro automatique

Re,

Une autre methode "en direct"

A+

 

[gilbert_RGI]

Re : Macro automatique

ou sur un zoneTexte formulaire mais avec ce code

Range("A1") = Feuil1.Shapes("ZoneTexte 1").TextFrame2.TextRange.Characters.Text

 

[benjamin.prade]

Re : Macro automatique

Merci messieurs pour vos solutions qui m'ont bien aidé.

Cela convient à mes attentes et j'espère que la prochaine fois je serais en mesure de vous aider si vous rencontrez également des difficultés.

Bon week-end.