[OK] Erreur dans l'exécution d'un code de macro.

Bonsoir à tous,

dans le micro hebdo de cette semaine, il y a un tuto pour automatiser la création d'un emploi du temps :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Sub Affecter(rMod As String) Dim CurrSel As Range Set CurrSel = Selection Range(rMod).Select Selection.Copy CurrSel.Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=x1None, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Range("A1").Select End Sub   Sub AE() Affecter "E3" End Sub   Sub Campagne() Affecter "E5" End Sub   Sub JrneBlche() Affecter "E7" End Sub   Sub Formation() Affecter "E9" End Sub   Sub Absence() Affecter "E11" End Sub

---

Mais lorsque je l'utilise, j'ai ce message d'erreur qui m'irrite !!!

http://img227.imageshack.us/img227/7...urexcelvv3.jpg

Je travaille sous Excel 2007.

Merci d'avance pour votre aide.

;)

bonjour
comment les procédures sont appelées

fait voir le classeur eventuellement

J'ai mis le fichier en PJ.

Je maîtrise que très peu le "codage" donc il faut être le plus "explicite" possible pour que je ne réponde pas à côté !

Par ex. : "comment les procédures sont appelées", je ne peux que répondre je ne sais pas.

La seule chose faite est :

nouveau fichier excel, création d'un planning dedans (tableau avec horaire et personne), puis, Outils, Macro, VBA et je tape le texte, j'associe la macro au bouton de couleur au dessus du tableau et hop j'enregistre, quand je teste pour remplir le tableau ça me met ce message d'erreur...

Merci de ton aide.

;)

Selection est le bouton... je ne comprends pas ce que tu veux faire. Ton code semble vouloir dire que tu veux coller le bouton sur la cellule 8O
Tu peux préciser ta dernière volonté ;)

en fait cette macro doit fonctionner sous une autre version d xl

remplace

Code:

---

1 2 3

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationNone, _ 'operation =xlnone c sous xl 97 je crois SkipBlanks:=False, Transpose:=False

---

testé avec xl 2003 : OK

Code:

---

Set CurrSel = activecell

---

Mais tu peux te contenter de

Code:

---

activecell.value = Range(rMod)

---

Citation:

---

Envoyé par patbou

en fait cette macro doit fonctionner sous une autre version d xl

remplace

Code:

---

1 2 3

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationNone, _ 'operation =xlnone c sous xl 97 je crois SkipBlanks:=False, Transpose:=False

---

testé avec xl 2003 : OK

---

En effet, en changeant ce bout de code, cela fonctionne à merveille !
Merci encore pour votre efficacité à tous.

:king:

Citation:

---

Envoyé par ouskel'n'or

Selection est le bouton... je ne comprends pas ce que tu veux faire. Ton code semble vouloir dire que tu veux coller le bouton sur la cellule 8O
Tu peux préciser ta dernière volonté ;)

---

Le but de cette 'macro' est de remplir de façon rapide et simplifié un planning d'activité en fonction des couleurs et des mises en forme choisit au préalable.

Donc le code permet de coller en effet le 'bouton' choisit sur une zone du planning déterminée au préalable.

Voilà l'explication !

:D