[MH n°493 - P.34] Excel : Automatiser votre emploi du temps

xavq51 le 26 septembre 2007 à 15h01

Bonjour à tous et toutes,
J'ai bien aimé cette macro, mais ce que j'aimerais, c'est de pouvoir sélectionner la fonction (appui sur une cellule-bouton-macro)puis d'affecter cette fonction aux cellules sur lesquelles je clique. En gros, le contraire de celle proposée, où l'on sélectionne les cellules, puis on y affiche une fonction en allant cliquer sur la cellule-bouton-macro.

Je ne sais pas si je suis suffisamment clair?

-->Message édité par Labbaipierre le 26/09/2007 17:14:48<--

répondre

cemp le 26 septembre 2007 à 19h04

Salut,

j'ai bien compris ce que tu demandes, mis je ne peux malheureusement pas t'aider, cela ne fonctionne pas chez moi, j'ai un message d'erreur :

< inclued picture >

Je mets le code que j'ai recopié :

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

Si quelqu'un peut m'aider, d'avance merci...

-------
- Cemp -
"C'est au pied du mur, qu'on voit le mieux le mur" (J.M. Bigard).

répondre

cemp le 26 septembre 2007 à 19h54

Au fait xavq51,

va voir plutôt ce forum de développeurs qui maitrise pas mal le sujet, il pourront surement t'aider a faire la fonction que tu recherches :

http://www.developpez.net/forums/

-------
- Cemp -
"C'est au pied du mur, qu'on voit le mieux le mur" (J.M. Bigard).

répondre

Labbaipierre le 26 septembre 2007 à 20h12

Cemp :

7è ligne, efface le "_" final.

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=x1None,

Vérifie si c'est bon, sinon clique sur "Débogage".

-------
ASSEZ DE SE MOQUER DE NOUS AVEC CE FORUM ! STOP
On doit dire Windows Sept et pas Windows Seven ! Nous sommes en France…
N'oubliez pas mon blog-euh - Invitations Google Wave : MP.

répondre

cemp le 26 septembre 2007 à 21h36

J'ai trouvé la soluce (merci le forum de developpez.com)

Pour ma version de excel 2007, c'est ce code à utiliser :

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

Tout simplement !

Merci pour votre aide et @ très bientôt.

-------
- Cemp -
"C'est au pied du mur, qu'on voit le mieux le mur" (J.M. Bigard).

répondre

geluc le 29 septembre 2007 à 08h55

Bonjour,
Pour la version Excel 2002 c'est le même code que pour celle de 1997 à savoir :
Sub Affecter(rMod As String)
Dim CurrSel As Range
Set CurrSel = Selection
Range(rMod).Select
Selection.Copy
CurrSel.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
End Sub
Allez bonne journée à tous

répondre