La copie ne se fait pas malgré bon positionnement sur la cellule
Résolu
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,
C'est surement rien, mais je n'y arrive pas.
Dans une feuille je copie les cellules C1 et C2 que je veux copier dans une autre feuille dans les cellules situées en dessous d'une cellule sélectionnée d'après une date. j'arrive bien sur la cellule mais la copie ne s"effectue pas.
Range("C1:C2").Select
selection.Copy
Workbooks.Open ("D:\ESSAI\comptage TBORD.xlsx")
Dim Celtbord As Range
Set Celtbord = Cells.Find(what:=Date, after:=ActiveCell).Offset(1, 0).Select
selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Merci d'avance si quelqu'un peu me donner un peu d'aide.
C'est surement rien, mais je n'y arrive pas.
Dans une feuille je copie les cellules C1 et C2 que je veux copier dans une autre feuille dans les cellules situées en dessous d'une cellule sélectionnée d'après une date. j'arrive bien sur la cellule mais la copie ne s"effectue pas.
Range("C1:C2").Select
selection.Copy
Workbooks.Open ("D:\ESSAI\comptage TBORD.xlsx")
Dim Celtbord As Range
Set Celtbord = Cells.Find(what:=Date, after:=ActiveCell).Offset(1, 0).Select
selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Merci d'avance si quelqu'un peu me donner un peu d'aide.
A voir également:
- La copie ne se fait pas malgré bon positionnement sur la cellule
- Copie cachée - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie écran samsung - Guide
- Aller à la ligne dans une cellule excel - Guide
- Copie disque dur - Guide
4 réponses
Bonjour,
Pour un copier-coller, vous ne pouvez pas faire en vba "Cells(...).Paste", il faut passer par ActiveSheet :
Cdt,
Pour un copier-coller, vous ne pouvez pas faire en vba "Cells(...).Paste", il faut passer par ActiveSheet :
Cells(...).Select
ActiveSheet.Paste
Cdt,
Bonjour,
Dangereux !
1) à l'ouverture tu ne sais pas quelle feuille sera active, ni quelle cellule.
Il faut désigner la feuille à utiliser et la plage de recherche sur celle-ci.
2) tu ne testes pas le résultat du .find. Si non trouvé =Nothing et tu plantes...
eric
Set Celtbord = Cells.Find(what:=Date, after:=ActiveCell).Offset(1, 0).Select
Dangereux !
1) à l'ouverture tu ne sais pas quelle feuille sera active, ni quelle cellule.
Il faut désigner la feuille à utiliser et la plage de recherche sur celle-ci.
2) tu ne testes pas le résultat du .find. Si non trouvé =Nothing et tu plantes...
eric