Erreur 1004

sousou

XLDnaute Barbatruc

• 30 Janvier 2013

• #2

Re : Erreur 1004

Bonjour
je pense qu'il te manque la définition pour la colonne1
ActiveCell.Copy Sheets(Prof).Range(activecell.parent.Columns(1).Find(Jour), ActiveCell.Column - 2)

 

Vote positif 0 Vote négatif

oasis_ck

XLDnaute Nouveau

• 31 Janvier 2013

• #3

Re : Erreur 1004

Bonjour Sousou,

J'ai toujours la même erreur.

 

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 31 Janvier 2013

• #4

Re : Erreur 1004

Bonjour

Je remarque que ta variable jour est une chaine de type string a quoi est égale cette valeur car cela doit être un entier de la manière que tu l'utilise sur la ligne qui bug.et je pense qu'il faut mettre .cells et non .range
ensuite sans voir le fichier ou un exemple difficile de t'aider.
A+

 

Dernière édition: 31 Janvier 2013

Vote positif 0 Vote négatif

oasis_ck

XLDnaute Nouveau

• 31 Janvier 2013

• #5

Re : Erreur 1004

Bonjour fhoest, le forum,

J'ai essayé de changer le type de données ou de mettre .cells, celà me donne incompatibilité de type 13.

Voilà le fichier. Pour faire simple c'est un planning sur différente forme. L'action se passe exclusivement sur l'onglet "planning" en cliquant sur les boutons du haut. Ces boutons sont des cours et déclenche d'autres macro pour placer le cours dans le planning semainier (lundi,mardi,..., macro 'couleurs') et chez les profs (macro 'Recopie'). La macro erronée se trouve dans le module "macro" 😱

Tout marche impeccable sauf cette dernière macro, donc pas la peine de se pencher sur le reste 😛

Merci à vous.

 

Pièces jointes

• Planning_Test.xlsm

  186.7 KB · Affichages: 41

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 31 Janvier 2013

• #6

Re : Erreur 1004

Très bien mais quelle est l'action a faire pour lancer la macro
1 position de la cellule active sur l'onglet planning oui mais quelle cellule prendre pour exemple car quand je fais le test il va me chercher la colonne clement de la feuille clement et apparemment cette colonne n'existe pas
Merci

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 31 Janvier 2013

• #7

Re : Erreur 1004

salut

voir Si... cela convient

Code:

Sub Recopie()
  Dim Prof As String, Jour As String
  Dim L As Byte, C As Byte
  Prof = Range("C" & ActiveCell.Row)
  Jour = Application.Proper(Format(Range("B" & 4 + 10 * Int(ActiveCell.Row / 12)), "dddd"))
  With Sheets(Prof)
    L = .Columns(1).Find(Jour).Row
    C = .Rows(2).Find(Cells(3, ActiveCell.Column)).Column
    ActiveCell.Copy .Cells(L, C)
  End With
End Sub

 

Vote positif 0 Vote négatif

oasis_ck

XLDnaute Nouveau

• 31 Janvier 2013

• #8

[Résolu] Erreur 1004

Salut Si... Re fhoest, sousou, le forum,

Bingo pour Si... 😎 !
La macro marche impeccable ! Je vais l'étudier maintenant car je vois que la syntaxe est différente de ce que je vois habituellement.

Merci à tous, le forum !

 

Vote positif 0 Vote négatif