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.
A voir également:
- Toujours un problème de copie de cellule
- Copie cachée - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie écran samsung - Guide
- Copie disque dur - Guide
- Excel cellule couleur si condition texte - Guide
