Afficher le Résultat d'un MsgBox dans une cellule

Bonjours à toutes et à tous nouveau sur le forum et ne connaissant rien au vba je me tourne vers vous pour un peu d'aide.

Voici mon problème j'ai trouvé un bout de code que je veux utiliser sur un tableau que je prépare mais mon souci c'est que le résultat de ce bout de code s'affiche dans un MsgBox et que je le voudrais dans une cellule par exemple A3 qui ce situe dans un entête fige.

Voici mon bout de code et si besoin je peu poster le fichier que je suis entrain de faire avec des annotation pour expliquer ce que je voudrais réaliser:

Sub ligne_1()

MsgBox Split(ActiveWindow.VisibleRange.Address, "$")(2)

End Sub

Si une âme charitable à une solution je suis preneur merci d'avance à toutes et à tous.

Bonjour,

Je te déconseille de te lancer dans du VBA sans te former un minimum au préalable (voir sections de cours du site).

Concernant ton problème :

Sub ligne_1()
    Range("A3") = Split(ActiveWindow.VisibleRange.Address, "$")(2)
End Sub

Merci pour le conseil mais je suis entrain de lire le livre vba pour les nuls et de regarder un peu partout toutes les infos que je peux trouver mais il faut ce lancer à un moment donné et voila.

Merci pour le code je vais tester de suite et reviens pour dire ce qu'il en est.

Désolé mais cela ne fonctionne pas j'ai bien un affichage en cellule 3

mais le résultat est 0 hors le bon résultat doit est l'adresse de la première ligne afficher à l’écran ce qui fonctionne bien avec le résultat du msgbox.

je joint mon fichier exemple si vous pouviez y jeter un œil

Merci encore.

Ta msgbox renvoie "5:", c'est bien ce qui est inscrit dans la cellule A3 par la macro. Excel interprète ça comme une heure, qu'il convertie alors en valeur numérique : 5/24 = 0,21

Commence déjà par préciser le but exact de la manip', que l'on voit ce qu'il est possible de faire.

PS : si c'est la valeur 5 qui t'intéresse, voilà le code adapté :

Sub ligne_1()
    Range("A3") = Replace(Split(ActiveWindow.VisibleRange.Address, "$")(2), ":", "")
End Sub

Désolé non ce que je cherche à faire c'est d'afficher l'adresse de la première ligne active du tableau dans la cellule A3 dans le fichier joint, si vous le regardez, la première ligne active est la ligne 5 si on fait défiler le tableau avec la flèche vers le bas et que l'on s’arrête sur la ligne 10 par exemple en relançant la macro le msgbox affiche bien 10.

Le but recherché est d'avoir en permanence le numéro de la 1ere ligne active en haut du tableau soit celle qui ce trouve juste sous les cellules figées affichées dans la cellule A3.

Encore un grand merci de vous penchez sur mon problème.

As-tu testé le dernier code ? Il me semble bien que c'est le résultat attendu...

Merci je viens de modifier le code et cela fonctionne l'adresse de la ligne s'affiche bien en A3 encore merci, puis je me permettre de vous solliciter encore un peu comment dois je faire pour que cela fonctionne en permanence sans être obliger de relancer la macro a chaque déplacement du tableau vers le haut ou vers le bas ?

Désole de vous solliciter et encore merci.

Une macro qui se lance automatiquement après une action s'appelle une macro événementielle (voir evenements_classeur et evenements_feuille). Mais à ma connaissance, il n'existe pas d’événement lié au déplacement de la fenêtre...

Merci pour les renseignement je vais aller voir cela, mais peut être ai je mal formulé la macro peut elle démarrer à l'ouverture du fichier et tourner en boucle en permanence de façon à avoir toujours le numéro de la ligne affiché ?

marco472002 a écrit :

Merci pour les renseignement je vais aller voir cela, mais peut être ai je mal formulé la macro peut elle démarrer à l'ouverture du fichier et tourner en boucle en permanence de façon à avoir toujours le numéro de la ligne affiché ?

ça ressemble à une usine à gaz...

Oui tout à fait mais bon quand on une idée autant essayer de la réaliser avant de passer à autre chose et surtout sans les usines à gaz les choses n'avanceraient peut être pas si vite.

Bonne journée et merci.