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 38144 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 avril 2024 - 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 38144 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 avril 2024 344
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
Rejoignez-nous