Remonter le contenu d'une cellule dans une macro

Bonjour,

Je ne retrouve plus mon poste, alors je vous réexplique mon problème mais sans ce que j'ai déjà résolu.

Dans ma cellule B36, j'ai ceci:

Sub AP()
 ' Macro pourAP
With Selection
      .Interior.ColorIndex = 45
      .FormulaR1C1 = "AP"
      .Font.ColorIndex =-4105
      .HorizontalAlignment = xlCenter
      .Font.Bold = False
End With
End Sub

Mais tout bien dans la même.

Je souhaiterais mettre le contenu dans l'éditeur Visual Basic afin que la macro nommée AP soit fonctionnelle.

Comment pourrais-je faire ?

Bonjour, je n'ai pas trop bien compris mais peut-être que ceci te conviendra. Dès que tu valider le bouton, la macro s'apllique à la cellule sur laquelle tu es.

A+,

cordialement,

Elfi

Bonjour,

j'ai hélas un message d'erreur

Copie de Equipe.xls introuvable

Ta macro n'est pas dans le classeur apparemment ...

Je suis perplexe. Où me suis-je planté? Equipe est un nom de fichier répondant à un autre fil.

Fait Alt F11 et regarde le code. Normalement, il se nomme AP. Sinon, je te reverrai le fichier. Il fonctionne chez moi.

A te relire,

Elfi

Salut,

dans l'éditeur visual basic, je n'ai aucune ligne écrite :p

A+

Problème dans mon envoi, probablement.

Ci-joint nouveau fichier. Tiens moi au courant.

A+,

elfi

Bonjour

Avec la macro de ce fichier, dès que tu sélectionnes une cellule il s'y inscrit AP sur fond orange.

Amicalement

Nad

Bonjour,

@ plabrousse: le problème est toujours le même (je crois que tu as envoyé le même fichier...

Si besoin, copies et colles la macro dans le topic car on va pas s'en sortir ...

@Nad-dan: C'est pas la réponse a ma question

A+

Bonjour à tous,

dans le fichier de plabrousse,

clique droit sur le bouton et réaffecte la macro "AP" en sélectionnant "dans ce classeur"

Bonne journée

Claude

Bonjour,

j'ai essayé ta manip mais en vain. Je n'ai toujours rien....

Peux-tu alors "copier-coller" la macro dans ce sujet afin que je puisse prendre connaissance de celle-ci ?

Cordialement

re,

Sub AP()
 ' Macro pourAP
With Selection
      .Interior.ColorIndex = 45
      .FormulaR1C1 = "AP"
      .Font.ColorIndex = -4105
      .HorizontalAlignment = xlCenter
      .Font.Bold = False
End With
End Sub

Oop la oup; fausse manip (double post)

Sinon, cette macro c'est celle sui est dans B36 -avec les saut de ligne.

Ce que je veux, c'est remonter le contenu dans l'éditeur Visual basic que je veux. Car avec des autres macros, je génére ça dabs B26, puis je souhaiterais recopier le contenu vers l'éditeur.

car en fait l'utilisateur rentre des données dans 2 champs et ça génère la macro dans la cellule B36. je souhaite remonter ces infos là.

J'ai réussi à faire tout sauf ce dernier point.

Pouvez-vous m'aider ?

Cordialement

Bonjour à tous,

désolé, j'arrive en retard, problème de serveur.

Merci à Claude,

Amicalement,

Elfi

Bonjour,

alors je crois que vous n'avez pas compris mon problème alors ...

Je vous envoie un tableau expliquant mon problème:

Cordialement

Bonjour,

alors je crois que vous n'avez pas compris mon problème alors ...

Ton dernier fichier et tes explications ne nous apportent rien de plus,

essaye d'être + clair

Claude

Bonjour,

ton fichier avec le module 1 comme demandé (si j'ai bien compris....).

Amicalement,

Elfi