Bonjour le Forum / Mapomme,
Je n'arrive pas à faire fonctionner cette procédure avec les éléments indiqués ci dessous et pense que mon explication sur le résultat escompté n'est pas claire.
Pour faciliter la chose, j'annexe en fichier joint mon tableau Excel sur lequel se trouve sur le premier onglet l'importation des cotations boursières de MSN.
La feuil1 comporte les résultats de la macro à obtenir avec un explicatif pour chacunes des 2 cellules concernées. J'espère être plus compréhensible ainsi.
Dernière chose : par défaut, Excel effectue l'actualisation automatique des données toutes les 60 minutes et il faudra éventuellement la ramener à 1 minute pour faciliter la vérification du bon fonctionnement du code. Ceci ce fait dans les propriétés du menu Connexions (j'ai indiqué ceci en détail dans les explicatifs du fichier).
Encore merci infiniment pour votre aide.
winlost
> Contenu du message :
> ***************
> Bonsoir winlost et bienvenue sur XLD
>
> Voir une piste à adapter à votre cas. La macro se base sur la méthode End appliquée à l'objet range().
> Le code dans le module de Feuil1:
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Not Intersect(Target(1, 1), Range("g11")) Is Nothing Then
> Range("a" & Rows.Count).End(xlUp).Offset(-Not IsEmpty(Range("a" & Rows.Count).End(xlUp))) = [g11]
> End If
> End Sub
>
> ***************
>
> Il peut y avoir eu d'autres réponses, mais vous ne recevrez pas de nouvelle notification avant votre prochaine visite du forum.
>
> Cordialement,
> L'équipe Excel Downloads Forums