La copie ne se fait pas malgré bon positionnement sur la cellule
Résolu
Dom.are
Messages postés
16
Statut
Membre
-
Dom.are Messages postés 16 Statut Membre -
Dom.are Messages postés 16 Statut Membre -
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
- Copie disque dur - Guide
- Aller à la ligne dans une cellule excel - 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