Problème dans une macro

[pierre1340]

Bonjour le forum,

J'ai adapté cette macro que j'ai trouvé sur micro hebdo, mais il y a un paramètre que je n'arrive pas à mettre en forme.
Merci de votre aide.

 

[SergiO]

Re : Problème dans une macro

Bonsoir Pierre,

J'ai corrigé et simplifié ton code:

Sub Affecter(rMod As String)
Dim currSel As Range
    Set currSel = Selection
    Range(rMod).Copy Destination:=currSel
    Range("A2").Select
End Sub

@+

 

[pierre1340]

Re : Problème dans une macro

Salut sergio,

Merci c'est exactement cela.
Merci et bon week end
pierre1340

 

[pierre1340]

Re : Problème dans une macro

Bonjour le forum,

J'ai encore un petit bug, voila lorsque je sélectionne les cellules dans le calendrier et que je clic sur domicile ou nounou ça me rempli bien le tableau avec le nom la couleur mais également le bouton auquel est affecté la macro, dernier souci lorsque je clic sur la croix pour effacer les tableaux la couleur reste.
Merci de votre aide.

 

[pierre1340]

Re : Problème dans une macro

Bonjour le forum,
Personne n'a la réponse?

 

[SergiO]

Re : Problème dans une macro

Bonjour Pierre,

Voici le code corrigé:

Sub Affecter(rMod As String)
Dim CurrSel As Range
    Set CurrSel = Selection
    Range(rMod).Copy
    CurrSel.PasteSpecial Paste:=xlPasteAll
    Application.CutCopyMode = False
    Range("A2").Select
End Sub

@+

 

[pierre1340]

Re : Problème dans une macro

Salut Sergio,

Le code ne fonctionne qu'avec le nom, il n'efface pas la couleur as-tu une solution?

Pierre1340

 

[SergiO]

Re : Problème dans une macro

Bonsoir Pierre,

Il faut rajouter cette ligne:

Selection.Interior.ColorIndex = xlNone

@+