Ecrire sur la premiere ligne vide Résolu/Fermé

Question

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

Configuration: Windows 7 / Internet Explorer 10.0

melanie1324 · Answer

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

Zoul67 · Answer

Bonjour, 

Derligne en chaîne de caractères,ça ne colle pas
With sert à ne pas répéter toute la syntaxe et quand on y fait appel, on ajoute un point :
With Worksheets("x") Dim DerLigne As Double DerLigne = .Range("A65536").End(xlUp).Row + 1 .Cells(DerLigne, 1).Value = Worksheets("y").Range("R9").ValueEnd With

A+

gislain99 · Answer

Bonjour,
Ok j'ais corrigé mes erreur le seul souci est que les enregistrement ce font à 
partir de la ligne 21 alors que mon tableau est vide a partir de la ligne 12.
et tous les enregistrement ce font sur la ligne 21 il ne prend pas de ligne vide
pour faire les enregistrement suivant il écrase toujours les données de la ligne 21. 

Ci joint mon code complet
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)Dim extension As StringDim chemin As String, nomfichier As StringDim style As Integer  If [C11] = "" Then     MsgBox "Veuiller saisir le nom de la société", vbExclamation, "Erreur de saisie"     Cancel = False   Exit Sub End If If [A20] = "" Then     MsgBox "Veuiller saisir la désignation", vbExclamation, "Erreur de saisie"     Cancel = False   Exit Sub End IfActiveSheet.Name = ("BL-") & Range("R9").Text 'renome la feuille'Enregistrement info récapitulatif With Worksheets("Récapitulatif") Dim DerLigne As Long Dim Cell As Range   DerLigne = Range("A65535").End(xlUp).Row + 1    .Cells(DerLigne, 1).Value = Worksheets("Dem.").Range("R9").Value    .Cells(DerLigne, 3).Value = Worksheets("Dem.").Range("C11").Value    .Cells(DerLigne, 6).Value = Worksheets("Dem.").Range("N11").Value    .Cells(DerLigne, 9).Value = Worksheets("Dem.").Range("C13").Value    .Cells(DerLigne, 12).Value = Worksheets("Dem.").Range("N13").ValueEnd WithSheets(Array(ActiveSheet.Name)).PrintOut Copies:=1, Collate:=False 'Impression'Sheets(Array("Dem.", "Pré.", ActiveSheet.Name)).PrintOut Copies:=1, Collate:=False 'Impression'Enregistrement du BLApplication.ScreenUpdating = FalseThisWorkbook.ActiveSheet.Copyextension = ".xls"chemin = "C:\Wartsïla"nomfichier = ActiveSheet.Name & extensionRange("N13").Value = Range("N13").Value 'garde uniquement le texte lors de la sauvegarde ne copie pas la formuleWith ActiveWorkbook    .ActiveSheet.DrawingObjects(1).Delete    .SaveAs Filename:=chemin & "\" & nomfichier    .CloseEnd WithRange("n°_BL").Value = Range("n°_BL").Value + 1'Vide toute les cellules[A20] = ""[A21] = ""[C11] = ""[C13] = ""[I30] = ""[I31] = ""[M38] = ""[M39] = ""[N11] = ""[N20] = ""[N21] = ""[O36] = ""[O37] = ""[O38] = ""[O39] = ""[[S39] = ""[S40] = ""[S41] = ""End Sub

gislain99 · Answer

bonjour,
Le seul problème qu'il me reste a gérer est mon souci d'enregistrement sur la première ligne vide de ma feuille "récapitulatif".
les enregistrements commence a la ligne 21 alors que mon tableau est vide à partir de la ligne 12.
et même les enregistrement suivant ne ce range pas sur les lignes suivantes ils écrasent les données de la ligne 21 et ce range a sa place.

J'ai recréer une nouvelle feuille "récapitulatif" mais j'ais toujours le même problème je ne voie pas d'où peut venir mon erreur.

Ci joint mon code 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)Dim extension As StringDim chemin As String, nomfichier As StringDim style As Integer  If [C11] = "" Then     MsgBox "Veuiller saisir le nom de la société", vbExclamation, "Erreur de saisie"     Cancel = False   Exit Sub End If If [A20] = "" Then     MsgBox "Veuiller saisir la désignation", vbExclamation, "Erreur de saisie"     Cancel = False   Exit Sub End IfActiveSheet.Name = ("BL-") & Range("R9").Text 'renome la feuilleWorksheets("Dem.").Range("C11").Value = Feuil1.Range("C11").ValueWorksheets("Dem.").Range("N11").Value = Feuil1.Range("N11").ValueWorksheets("Dem.").Range("C13").Value = Feuil1.Range("C13").ValueWorksheets("Dem.").Range("R9").Value = Feuil1.Range("N°_BL").ValueWorksheets("Dem.").Range("N13").Value = Feuil1.Range("N13").ValueWorksheets("Pré.").Range("C11").Value = Feuil1.Range("C11").ValueWorksheets("Pré.").Range("N11").Value = Feuil1.Range("N11").ValueWorksheets("Pré.").Range("C13").Value = Feuil1.Range("C13").ValueWorksheets("Pré.").Range("R9").Value = Feuil1.Range("N°_BL").ValueWorksheets("Pré.").Range("N13").Value = Feuil1.Range("N13").Value'Enregistrement info récapitulatif With Worksheets("Récapitulatif") Dim DerLigne As Long Dim Cell As Range   DerLigne = Range("A65535").End(xlUp).Row + 1    .Cells(DerLigne, 1).Value = Feuil1.Range("R9").Value    .Cells(DerLigne, 3).Value = Feuil1.Range("C11").Value    .Cells(DerLigne, 6).Value = Feuil1.Range("N11").Value    .Cells(DerLigne, 9).Value = Feuil1.Range("C13").Value    .Cells(DerLigne, 12).Value = Feuil1.Range("N13").ValueEnd WithSheets(Array(ActiveSheet.Name)).PrintOut Copies:=1, Collate:=False 'Impression'Sheets(Array("Dem.", "Pré.", ActiveSheet.Name)).PrintOut Copies:=1, Collate:=False 'Impression'Enregistrement du BLApplication.ScreenUpdating = FalseThisWorkbook.ActiveSheet.Copyextension = ".xls"chemin = "C:\Wartsïla"nomfichier = ActiveSheet.Name & extensionRange("N13").Value = Range("N13").Value 'garde uniquement le texte lors de la sauvegarde ne copie pas la formuleWith ActiveWorkbook    .ActiveSheet.DrawingObjects(1).Delete    .SaveAs Filename:=chemin & "\" & nomfichier    .Close     'Vide toute les cellules Feuil1End WithRange("n°_BL").Value = Range("n°_BL").Value + 1[A20] = ""[A21] = ""[A22] = ""[A23] = ""[A24] = ""[A25] = ""[A26] = ""[A27] = ""[A28] = ""[A29] = ""[A30] = ""[A31] = ""[A32] = ""[A33] = ""[A34] = ""[A35] = ""[A36] = ""[A37] = ""[A38] = ""[A39] = ""[A40] = ""[A41] = ""[A42] = ""[A43] = ""[A44] = ""[C11] = ""[C13] = ""[I20] = ""[I21] = ""[I22] = ""[I23] = ""[I24] = ""[I25] = ""[I26] = ""[I27] = ""[I28] = ""[I29] = ""[I30] = ""[I31] = ""[I32] = ""[I33] = ""[I34] = ""[I35] = ""[I36] = ""[I37] = ""[I38] = ""[I39] = ""[I40] = ""[I41] = ""[I42] = ""[I43] = ""[I44] = ""[M20] = ""[M21] = ""[M22] = ""[M23] = ""[M24] = ""[M25] = ""[M26] = ""[M27] = ""[M28] = ""[M29] = ""[M30] = ""[M31] = ""[M32] = ""[M33] = ""[M34] = ""[M35] = ""[M36] = ""[M37] = ""[M38] = ""[M39] = ""[M40] = ""[M41] = ""[M42] = ""[M43] = ""[M44] = ""[N11] = ""[N20] = ""[N21] = ""[N22] = ""[N23] = ""[N24] = ""[N25] = ""[N26] = ""[N27] = ""[N28] = ""[N29] = ""[N30] = ""[N31] = ""[N32] = ""[N33] = ""[N34] = ""[N35] = ""[N36] = ""[N37] = ""[N38] = ""[N39] = ""[N40] = ""[N41] = ""[N42] = ""[N43] = ""[N44] = ""[O20] = ""[O21] = ""[O22] = ""[O23] = ""[O24] = ""[O25] = ""[O26] = ""[O27] = ""[O28] = ""[O29] = ""[O30] = ""[O31] = ""[O32] = ""[O33] = ""[O34] = ""[O35] = ""[O36] = ""[O37] = ""[O38] = ""[O39] = ""[O40] = ""[O41] = ""[O42] = ""[O43] = ""[O44] = ""[S20] = ""[S21] = ""[S22] = ""[S23] = ""[S24] = ""[S25] = ""[S26] = ""[S27] = ""[S28] = ""[S29] = ""[S30] = ""[S31] = ""[S32] = ""[S33] = ""[S34] = ""[S35] = ""[S36] = ""[S37] = ""[S38] = ""[S39] = ""[S40] = ""[S41] = ""[S42] = ""[S43] = ""[S44] = "" 'Vide toute les cellules Feuil2Feuil2.Range("C11").MergeArea.ClearContentsFeuil2.Range("N11").MergeArea.ClearContentsFeuil2.Range("C13").MergeArea.ClearContentsFeuil2.Range("N13").MergeArea.ClearContentsFeuil2.Range("R9").MergeArea.ClearContents'Vide toute les cellules Feuil3Feuil3.Range("C11").MergeArea.ClearContentsFeuil3.Range("N11").MergeArea.ClearContentsFeuil3.Range("C13").MergeArea.ClearContentsFeuil3.Range("N13").MergeArea.ClearContentsFeuil3.Range("R9").MergeArea.ClearContentsEnd Sub'Oblige la saisie en Majuscule dans la colonne O de la ligne 20 à 44Private Sub Worksheet_()For Each maj In [O20:O44] 'plage a traitéeApplication.ScreenUpdating = FalseIf maj <> "" Thenmaj.Selectmaj = UCase(maj)ActiveCell = majEnd IfNextApplication.ScreenUpdating = TrueRange("O20").SelectEnd Sub

Polux31 · Answer

Slt,

Il manque un point devant Range ici:
DerLigne = Range("A65535").End(xlUp).Row + 1

Tu ne testes pas la dernière ligne vide de la feuille "Récapitulatif" mais celle de la feuille active.

;0)

gislain99 · Answer

Bonjour,

Merci beaucoup sa fonctionne  très bien

J'ais cherché partout mais je n'avait pas vu sa

Ecrire sur la premiere ligne vide

6 réponses

Discussions similaires