Problème dans une macro

SergiO

XLDnaute Accro

• 26 Septembre 2008

• #2

Re : Problème dans une macro

Bonsoir Pierre,

J'ai corrigé et simplifié ton code:

Code:

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

@+

 

Vote positif 0 Vote négatif

P

pierre1340

Guest

• 26 Septembre 2008

• #3

Re : Problème dans une macro

Salut sergio,

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

 

Vote positif 0 Vote négatif

P

pierre1340

Guest

• 27 Septembre 2008

• #4

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.

 

Pièces jointes

• Taxi.xls

  39.5 KB · Affichages: 58
• Taxi.xls

  39.5 KB · Affichages: 57
• Taxi.xls

  39.5 KB · Affichages: 55

Vote positif 0 Vote négatif

P

pierre1340

Guest

• 29 Septembre 2008

• #5

Re : Problème dans une macro

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

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 29 Septembre 2008

• #6

Re : Problème dans une macro

Bonjour Pierre,

Voici le code corrigé:

Code:

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

@+

 

Vote positif 0 Vote négatif

P

pierre1340

Guest

• 29 Septembre 2008

• #7

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

 

Pièces jointes

• Taxi.xls

  35 KB · Affichages: 66
• Taxi.xls

  35 KB · Affichages: 65
• Taxi.xls

  35 KB · Affichages: 64

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 29 Septembre 2008

• #8

Re : Problème dans une macro

Bonsoir Pierre,

Il faut rajouter cette ligne:

Code:

Selection.Interior.ColorIndex = xlNone

@+

 

Vote positif 0 Vote négatif