Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

[macro excel] parcourir un tableau

Dernière réponse le 18 jan 2006 à 16:45:21 bombadilom, le 18 jan 2006 à 15:08:36

Signaler ce message aux modérateurs

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. tombé du lit . . . Fauché en plein rêve
par la sonnerie du reveil

Meilleures réponses pour « [macro excel] parcourir un tableau » dans :

Probleme boucle for macro excel (Résolu) Voir

Macro excel :selection d'une plage de cellule Voir

[VBA]Macro excel Voir

Macro excel envoi email avec piéce jointe (Résolu) Voir

Macro Excel recherche multiple (Résolu) Voir

[VBA] Ouvrir un PDF depuis une macro Excel. (Résolu) Voir

Exécuter une macro VoirExécuter une macro Excel et Calc proposent plusieurs façons d’exécuter une macro : en la sélectionnant dans une liste, dans la boîte de dialogue Macro ; par un raccourci clavier ; en l’attachant à un bouton de la barre d’outils ; ...

Bonjour, un regard rapide sur ton code : 1) pour Lire la suite

Posez votre question Répondre

JvDo, le 18 jan 2006 à 16:33:45

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"

Répondre à JvDo

bombadilom, le 18 jan 2006 à 16:45:21

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 :) tombé du lit . . . Fauché en plein rêve
par la sonnerie du reveil

Répondre à bombadilom

Posez votre question Répondre