W
william68
Guest
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:
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
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:
Code:
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 IfApparemment 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
Dernière modification par un modérateur: