Insérer un tableau à la suite

[Sophie11]

Bonjour,
Je voudrais mettre un tableau à la suite de mes données pour cela je crée une variable "derniere_ligne" qui m'inserera mes données juste aprés mes données existante, comme indiqué dans le code ci-dessous.
Problème quand il n'y a aucune donnée existante j'obtiens une erreur... puisque il ne trouve plus "derniere ligne"

derniere_ligne = Worksheets("Valo").Range("A3").End(xlDown).Row
With Sheets(1)
.Range(.Cells(1 + derniere_ligne, 1), .Cells(UBound(tableau) + derniere_ligne, 5)) = tableau
End With

Pouvez-vous svp m'indiquer comment palier ce problème? Je suis à cours d'idée... Merci 🙂 🙂

 

[Compte Supprimé 979]

Re : Insérer un tableau à la suite

Bonsoir Sophie11

Merci de mettre le code entre balises [ code] et [/ code] (sans les espaces) - Clique sur le bouton #

Pour palier à ce problème, tu peux essayer ceci

derniere_ligne = Worksheets("Valo").Range("A" & Rows.Count).End(XlUp).Row
If derniere_ligne<3 then derniere_ligne = 3
With Sheets(1)
.Range(.Cells(1 + derniere_ligne, 1), .Cells(UBound(tableau) + derniere_ligne, 5)) = tableau
End With

A+

 

[Sophie11]

Re : Insérer un tableau à la suite

problème résolu 🙂 🙂 😛
merci beaucoup Bruno 😛