Toujours un problème de copie de cellule
Dom.are
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
-
Dom.are Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
Dom.are Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je reviens vers vous car je sélectionne 2 cellules dans une feuille et je veux les copier dans une autre feuille sous la cellule contenant la date du jour.
J'arrive bien à me positionner sur la bonne cellule mais la copier ne se fait pas malgré avoir suivi le conseil de faire la copie en utilisant activesheet.
Range("C1").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[3]C:R[59]C,""=a"")"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[3]C:R[59]C,""=m"")"
Range("C1:C2").Select
selection.Copy
Workbooks.Open "D\Comptage.xlsm"
Sheets("feuil1").Activate
Dim Celtbord As Range
Set Celtbord = Cells.Find(what:=Date).Offset(1, 0).Select
C'EST A CET ENDROIT QUE JE BLOQUE
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Encore merci à vous pour votre aide.
Je reviens vers vous car je sélectionne 2 cellules dans une feuille et je veux les copier dans une autre feuille sous la cellule contenant la date du jour.
J'arrive bien à me positionner sur la bonne cellule mais la copier ne se fait pas malgré avoir suivi le conseil de faire la copie en utilisant activesheet.
Range("C1").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[3]C:R[59]C,""=a"")"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[3]C:R[59]C,""=m"")"
Range("C1:C2").Select
selection.Copy
Workbooks.Open "D\Comptage.xlsm"
Sheets("feuil1").Activate
Dim Celtbord As Range
Set Celtbord = Cells.Find(what:=Date).Offset(1, 0).Select
C'EST A CET ENDROIT QUE JE BLOQUE
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Encore merci à vous pour votre aide.
2 réponses
-
Bonjour,
Je n'ai pas lu vos messages précédents, mais en regardant votre code j'observe qu'il manque le deux-points : après D dans le nom du classeur que vous ouvrez.
Workbooks.Open "D\Comptage.xlsm -
Bonjour,
merci pour votre réponse, et désolé de ne répondre qu'aujourd'hui mais j'ai été absent quelques jours.
J'avais trouvé l'erreur mais malgré tout j'en suis toujours au même point.
Encore merci malgré tout.
