Remplir toute les cellules d'une feuille excel [Résolu/Fermé]

Signaler
Messages postés
22
Date d'inscription
mercredi 19 septembre 2012
Statut
Membre
Dernière intervention
29 mars 2016
-
Messages postés
29567
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
19 septembre 2020
-
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

Messages postés
29567
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
19 septembre 2020
337
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