Discussion :

[Funcky222]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!



Je travaille sous Excel 2007.

Merci d'avance pour votre aide.

[patbou]

bonjour
comment les procédures sont appelées

fait voir le classeur eventuellement

[Funcky222]

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.

[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
Tu peux préciser ta dernière volonté

[patbou]

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

remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set CurrSel = activecell

Mais tu peux te contenter de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

activecell.value = Range(rMod)

[Funcky222]

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

remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Funcky222]

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
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 !