macro

Re : macro

al1000 à dit:

Bonjour,

a$=activesheet.name
if a$="nouveau" then
x=1 else x=2
end if

range("a10").end(xldown).offset(1,0)=x
end if


je veux à la fin de la macro qu'on copie 1 si le nom du fichier s'appelle nouveau si non on inscrit 2


si vous voulez plus de detail, je peux en fournir

a+

Cliquez pour agrandir...

Salut
Sub test()
Range("a65536").End(xlUp).Offset(1, 0) = IIf(ThisWorkbook.Name = "nouveau", 1, 2)
End Sub

Re : macro

bonjour,
merci d'avoir etudie ce probleme

mais avant le sub test il me dit erreur de compilation et il me demande le end sub

pourquoi?


bonne journée

Re : macro

al1000 à dit:

bonjour,
merci d'avoir etudie ce probleme

mais avant le sub test il me dit erreur de compilation et il me demande le end sub

pourquoi?


bonne journée

Cliquez pour agrandir...

re...
J'ai fait une macro indépendante qui s'appelle Test, pour vérifier que ça fonctionnait
Si tu veux l'intégrer dans une macro existante, copie juste la ligne entre Sub et End sub en clair :
Range("a65536").End(xlUp).Offset(1, 0) = IIf(ThisWorkbook.Name = "nouveau", 1, 2)

Quand Excel rencountre un nouveau Sub, il ne comprend plus, parce que sub veut dire début de macro et End sub fin de macro. Tu ne peux pas faire une macro à l'intérieur d'une autre.
A+

Re : macro

bonjour,


un grand merci