Ecrire sur la premiere ligne vide

Résolu
gislain99 -  
Bonjour,
j'ai une feuille Excel qui me sert de bon de livraison elle se numérote se nome
s'imprime et se range automatiquement j'ai crée une feuille "Récapitulatif" ou j'archive 5 données .

Ce code fonctionne très bien 


'Worksheets("Récapitulatif").Range("A12").Value = Worksheets("Dem.").Range("R9").Value
'Worksheets("Récapitulatif").Range("C12").Value = Worksheets("Dem.").Range("C11").Value
'Worksheets("Récapitulatif").Range("F12").Value = Worksheets("Dem.").Range("N11").Value
'Worksheets("Récapitulatif").Range("I12").Value = Worksheets("Dem.").Range("C13").Value
'Worksheets("Récapitulatif").Range("L12").Value = Worksheets("Dem.").Range("N13").Value


je voudrais juste que l'enregistrement de ces 5 données prenne la première ligne vide c'est la que sa coince.

Ci joint mon code que je n'arrive pas a faire fonctionner 


 'With Worksheets("Récapitulatif")
' Dim DerLigne As String
 'Dim Cell As Range
  ' DerLigne = Range("A65536").End(xlUp).Row + 1
   ' Cell(DerLigne, 1).Value = Worksheets("Dem.").Range("R9").Value
'End With

L'erreur est sur la ligne surligné

D'avance merci pour votre aide

6 réponses

  1. melanie1324
    Bonjour,

    il y a une erreur de syntaxe, tu as oublié le s à cell :

    With Worksheets("Récapitulatif")
    Dim DerLigne As String
    Dim Cell As Range
    DerLigne = Range("A65536").End(xlUp).Row + 1
    Cells(DerLigne, 1).Value = Worksheets("Dem.").Range("R9").Value
    End With
    0

    Discussions similaires

    masquer l'écran pendant Traitements par macros Excel
    yvlaurent

    2 réponses
    Tester si une cellule contient un mot
    Osefa

    3 réponses
    copier une plage de cellule ( range) sur un autre fichier excel
    abdou-éco

    14 réponses
    Type d'argument ByRef incompatible
    Inspiralex

    2 réponses
    Supprimer contenu partiel de cellule texte
    Yoakim

    3 réponses
    Erreur de Compilation : Else sans If
    data_traveler

    2 réponses