Remplir toute les cellules d'une feuille excel

Résolu/Fermé
cs_manlaurent
Messages postés
22
Date d'inscription
mercredi 19 septembre 2012
Statut
Membre
Dernière intervention
29 mars 2016
- 11 févr. 2014 à 22:52
jordane45
Messages postés
35506
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
28 mai 2022
- 11 févr. 2014 à 23:20
bonjour,
j'espère être dans le bon forum cette fois ci

je suis sous visual studio 2010, et je commande une feuille excel (2010). je voudrais vérifier et remplir si il y a besoin toute les cellules vide de la dernière rangée de ma feuille excel, par "ok" par exemple.
j'ai pas trouvé sur le net, des exemples qui fonctionnent. Ou je remplie toute la feuille, ou partiellement.
Voici mon code:

Dim oExcel As Excel.Application

oExcel = CreateObject("Excel.Application")
oExcel.Visible = False
oWk = oExcel.Workbooks.Open("C:\charge\chargeEssai.xlsx")



For Each cellule As Excel.Range In oWk.Sheets(1).range("A1048576:H1048576").End(Excel.XlDirection.xlUp).Offset(1, 0).Rows.cells
If cellule.Value = Nothing Then


cellule.Value = "ok"

merci

1 réponse

jordane45
Messages postés
35506
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
28 mai 2022
356
Modifié par jordane45 le 11/02/2014 à 23:27
Bonjour,
Il semble que la réponse t'ai été donnée ici :
http://codes-sources.commentcamarche.net/forum/affich-10019713-remplir-toute-les-cellules-d-un-tableau-excel#1;



PS: pour tes prochains messages, merci de bien vouloir utiliser les balises de code. (voir ICI : http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code)


Avant de poser une question, merci de lire la charte du site.
Cordialement, Jordane
0