Macro

[françois]

Bonjour,
Est ce que une macro s'execute automatiquent quand on ouvre le fichier excelcontenant cette macro? Sinon, comment on peut faire?
cordialement
François

 

[Simons]

Bonjour Francois,

Ta macro s'effectuera automatiquement si elle est placée dans :

Private Sub Workbook_Open()
[i]'Ton code' par exemple [/i]('sheets2').select [i]qui te selectionne ta feuille 2 au démarrage[/i]End Sub

Sinon tu peux affecter un raccourci a ta macro ou encore lancer ta macro avec un bouton de commande une boite à cocher etc...

Salut.

 

[françois]

J'ai pas trop, je suis desolé.
Ca donne quoi si ma macro est la suivante:

Sub ColorationNuméro()
Dim Cell As Range
Dim CI As Byte
For Each Cell In Range('D28:AA39')
Select Case Cell.Value
Case '1': CI = 43: Case '2a': CI = 44: Case '2b': CI = 44
Case '3': CI = 45: Case '4': CI = 46: Case '5a': CI = 39
Case '5b': CI = 39: Case '6a': CI = 48: Case '6b': CI = 48
Case '7a': CI = 41: Case '7b': CI = 41: Case '8': CI = 50
Case '9a': CI = 42: Case '9b': CI = 42: Case '10': CI = 18
Case '11': CI = 22: Case '12a': CI = 24: Case '12b': CI = 24
Case '13a': CI = 6: Case '13b': CI = 6: Case '14a': CI = 40
Case '14b': CI = 40: Case '15a': CI = 35: Case '15b': CI = 35
Case '16a': CI = 15: Case '16b': CI = 15: Case '17a': CI = 3
Case '17b': CI = 3: Case '': CI = 2:

Case '18': CI = 43: Case '19a': CI = 44: Case '19b': CI = 44
Case '20': CI = 45: Case '21': CI = 46: Case '22a': CI = 39
Case '22b': CI = 39: Case '23a': CI = 48: Case '23b': CI = 48
Case '24a': CI = 41: Case '24b': CI = 41: Case '25': CI = 50
Case '26a': CI = 42: Case '26b': CI = 42: Case '27': CI = 18
Case '28': CI = 22: Case '29a': CI = 24: Case '29b': CI = 24
Case '30a': CI = 6: Case '30b': CI = 6: Case '31a': CI = 40
Case '31b': CI = 40: Case '32a': CI = 35: Case '32b': CI = 35
Case '33a': CI = 15: Case '33b': CI = 15: Case '34a': CI = 3
Case '34b': CI = 3: Case '': CI = 2:

Case '35': CI = 43: Case '36a': CI = 44: Case '36b': CI = 44
Case '37': CI = 45: Case '38': CI = 46: Case '39a': CI = 39
Case '39b': CI = 39: Case '40a': CI = 48: Case '40b': CI = 48
Case '41a': CI = 41: Case '41b': CI = 41: Case '42': CI = 50
Case '43a': CI = 42: Case '43b': CI = 42: Case '44': CI = 18
Case '45': CI = 22: Case '46a': CI = 24: Case '46b': CI = 24
Case '47a': CI = 6: Case '47b': CI = 6: Case '48a': CI = 40
Case '48b': CI = 40: Case '49a': CI = 35: Case '49b': CI = 35
Case '50a': CI = 27: Case '50b': CI = 28: Case '51a': CI = 3
Case '51b': CI = 3: Case '': CI = 2:
End Select
With Cell.Interior
.ColorIndex = CI
.Pattern = xlSolid
End With
Next
End Sub
[quote]

Merci

 

[Simons]

Re,

Ce code défini la couleur de l'intérieur de tes cellules...
Ce code s'exécute (ta cellule change de couleur..) en fonction des numéros qui sont dans les cellules.
Si tu ne veux pas que cela se produise il faut désactiver les macros au démarage. (soit tu as le choix à l'ouverture de ton fichier soit tu maintient Ctrl enfoncé pour désactiver les macros..)

Voila.

 

[françois]

Oui, c'est ca:
en fait, ces numéros peuvent changer automatiquement quand on ouvre la page qui ils sont à un autre fichier excel. Et la mise automatique peut faire changer ces numéros. C'est donc pour que je voulais savoir si macro pouvait s'executer automatiquement quand on ouvre le fichier excel.
Merci

 

[Simons]

Francois,

Il doit manquer quelques mots dans tes phrases 🙂
Peux tu prendre 2 minutes pour me reformer ta demande...

Merci

 

[françois]

oh je suis vraiment désolé, je suis un peu creuvé en fait.
Revoici ce que je disait:

en fait, ces numéros peuvent changer automatiquement quand on ouvre la page parce qu ils sont liés à un autre fichier excel. Et la mise à jour automatique peut faire changer ces numéros. C'est donc pour cela que je voulais savoir si ma macro pouvait s'executer automatiquement quand on ouvre le fichier excel. C'est possible?
Merci beaucoup pour ton aide Simons.
Cordialement

 

[Simons]

Re Francois,

Tu peux effectivement faire fonctionner cette macro au démarage il faut placer ce code dans :
Thisworkbook (a gauche dans l'explorateur de projets).
Le plus simple serait de nous envoyer un ton fichier (zippé sans accents ni espaces ni caractères spéciaux) pour voir la tête de ton classeur.
Si tu peux fais vite car je suis au boulot et je vais bientot me sauver. :side:

 

[francois]

J'ai fais ce que tu m'as dit de faire. En faite je peux pas t'envoyer le fichier car il fait 4Meg.
Merci et A+