Sélectionner, transfèrer, nommer

Bonjour à toutes et à tous,

Mon problème n’est pas facile à expliquer je vais donc essayer d’être le plus clair possible.

J’ai deux onglets nommés f1 et f2, f2 étant le modèle.

Dans un module une macro pour créer et nommer une copie de f2.

Pour nommer la copie je me réfère au contenu de deux cellule de f2.

 ActiveSheet.Name = [B2] & Format([B1], "-dd-mm-yy")

Ce que j’essaie de faire, c’est de lancer la macro en sélectionnant une cellule choisie au hasard dans f1 et que le contenu de cette cellule ce place en B2 de f2.

J’ai pensé utiliser quelque chose comme

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Mais je bloc , si quelqu’un pouvais m’aiguiller.

Cdlt,

Re,

J’ai trouvé ceci sur un autre fil, ce qui résous en partie mon problème.

Bonjour

Tes macros ne se lancent pas seules car, comme tu le dis, elles sont placées dans des modules.

Pour que l'évènement se fasse à la validation d'une cellule, il faut appeler le code dans ta feuille. C'est à dire que quand tu es sous VBA tu doubles cliques sur la feuille concernée et tu mets ce code :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

Call MaMacro

End Sub

Tu remplaces "MaMacro" par le nom que tu as dans ton module après le "Sub"

Amicalement

Nad

Merci Nad

Reste à transférer le contenu de la cellule.

Cdlt,

Salut le forum

Billanne, regarde du côté de ActiveCell

Mytå

Salut Mytå,

Tu as retrouvé ton compteur?

J’ai essayé sans succès à tout hasard tu le placerai ou ? Moi je l’ai mis en B2 de f2 ça me donne cette erreur

 ='f1'!ActiveCell 

 #nom ?

Cdlt,

Bonjour,

Mon problème est réglé, pour ceux que cela intéresse, j’ai un 2ème module

'copy la cellule active dans f2 B1
Sub copy_dansf2()
    ActiveCell.Copy Destination:=[f2!B1]
End Sub

que j’appelle en même temps que le premier.

Private Sub Worksheet_Change(ByVal Target As Range)
Call copy_dansf2
Call Créat
End Sub

Cdlt,