selection premiere ligne vide d'une colonne et y mettres des infos

[william68]

Bonjour,

Comme indique dans le titre je cherche a faire un bout de macro qui me selectionne la premiere ligne vide d'une certaine feuille et y met les informations que je veux.

Ce qui me permettra par la suite d'ajouter des infos par le meme procede pour constituer un tableau.

Voici le code que j'ai commence a faire:

If CheckBox1.Value = True Then
    If Sheets("BD").Cells(3, 1).Value <> "(All)" Then
    Dim Line As Long
    Sheets("Charttable").Select
    Line = (Sheets("Charttable").Range("A1").End(xlDown).Row + 1)
    [B]Sheets("Charttable").Cells(Line, 1).Value = Sheets("BD").Cells(3, 1).Value[/B]
    Sheets("Charttable").Cells(Line, 2).Value = "(All)"
    Sheets("Charttable").Cells(Line, 3).Value = "(All)"
    Sheets("Charttable").Cells(Line, 4).Value = "(All)"
    End If
End If

Apparemment il y a un petit probleme, lors du debug il me met une valeur de line a 65537 soit la derniere ligne de la feuille si je ne me trompe pas.

Le code foire a partir de la ligne en gras.

Si quelqu'un a une idee merci d'avance.

Je precise que ma feuille Charttable est vide au demarrage

 

[Robert]

Re : selection premiere ligne vide d'une colonne et y mettres des infos

Bonjour William, bonjouir le forum,

Essaie comme ça :

Line = (Sheets("Charttable").Range("A65536").End(xlUp).Row + 1)

 

[william68]

Re : selection premiere ligne vide d'une colonne et y mettres des infos

Bonjour,

Prendre le probleme a l'envers c'etait tres bien vu et ca fonctionne nikel.

Merci encore