macro

[al1000]

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+

 

[Gorfael]

Re : macro

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+

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

 

[al1000]

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

 

[Gorfael]

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...
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+

 

[al1000]

Re : macro

bonjour,


un grand merci