Sujet Précédent Sujet Suivant

[macro excel] parcourir un tableau

Fermé
bombadilom Messages postés 232 Date d'inscription mercredi 4 septembre 2002 Statut Membre Dernière intervention 5 décembre 2012 - 18 janv. 2006 à 15:08
bombadilom Messages postés 232 Date d'inscription mercredi 4 septembre 2002 Statut Membre Dernière intervention 5 décembre 2012 - 18 janv. 2006 à 16:45
Bonjour,
a partir d'une feuille excel, j'ouvre un autre document contenant un tableau. Je veux ajouter une ligne à la fin de ce tableau.
Voici mon code

Private Sub CommandButton1_Click()
Dim Numligne As Integer
Numligne = 17
Workbooks.Open ("c:\test.xls")
While Cells.Value(Numligne, 5) <> ""
Workbooks("test.xls").Worksheets("feuil1").Cells(Numligne, 5).Activate
Numligne = Numligne + 1
Wend
Cells.Value(Numligne, 5) = "bonjour"
End Sub

cela me génère un message excel.exe doit fermer. Et puis plus rien ce qui me plonge dans l'expectative.

merci de l'aide que vous pourriez m'apporter.
A voir également:

1 réponse

Réponse 1 / 1
JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856
18 janv. 2006 à 16:33
bonjour,

un regard rapide sur ton code :

1) pour Cells.Value(Numligne, 5) = "bonjour" :
met plutôt Cells(Numligne, 5) .Value= "bonjour"

2) il est possible aussi d'éviter la boucle while :

While Cells.Value(Numligne, 5) <> ""
Workbooks("test.xls").Worksheets("feuil1").Cells(Numligne, 5).Activate
Numligne = Numligne + 1
Wend
Cells.Value(Numligne, 5) = "bonjour"

par :

ActiveSheet.Range("E17").Offset(ActiveSheet.Range("E17").CurrentRegion.Rows.Count, 0).value="bonjour"
3
bombadilom Messages postés 232 Date d'inscription mercredi 4 septembre 2002 Statut Membre Dernière intervention 5 décembre 2012 16
18 janv. 2006 à 16:45
euh . . . Comment dire. MERCI. Et oui je le cris, je le hurle même. Merci infiniment pour ce petit morceau de code qui va grandement me simplifier et qui me montre en passant l'ampleur de mon incompétence dans ce domaine. J'ai bien fait de pas faire développeur comme métier moi :)
0