determiner la première cellule non vide d'une feuille excel vb.nRésolu

Question

salut 
j'utilise vb.net avec excel 
je veux parcourir les colonnes de la feuille excel jusqu'à arriver à une cellule non vide 
voici mon code 
  With xlWorkSheet
            y = .Cells(.Rows.Count, 1).End(Excel.XlDirection.xlDown).Row
            x = .Cells(1, .Columns.Count).End(Excel.XlDirection.xlToRight).Column
        End With

EDIT: Ajout de la coloration syntaxique.

ucfoutu · Answer

Bonjour,
Sans autre précisions, je supposes que tu n'as pas de formules et uniquement des saisies ===>> 
 MsgBox Cells.SpecialCells(xlCellTypeConstants).Row & vbCrLf & Cells.SpecialCells(xlCellTypeConstants).Column

pamelatheo · Answer

bonjour 
j'ai un erreur de cet objet , il n'est pas declaré 
xlCellTypeConstants

ucfoutu · Answer

Ah ? Oui ?
C'est d'autant plus désolant que specialcells n'est pas un objet, mais une méthode !
Montre donc le code que tu as écrit !!!!

PS : pour ton info : ce code, testé chez moi, fonctionne sans faille.

ucfoutu · Answer

Ce que tu montres n'est pas du code VBA !
Si tu pilotes VBA depuis VB.Net, il te faut :
- déclarer (dans une variable) l'application Excel
- déclarer (dans une variable) un objet classeur
- déclarer (dans une variable) un objet Feuille
appliquer mon code à cet objet feuille.
Le code que je t'ai montré est le code VBA à appliquer à un objet feuille Excel, qu'il faut donc avoir initialisé/créé au préalable.
La partie VB.Net, qui consiste à déclarer les objets à piloter, relève d'un autre aspect, qu'il s'agisse de faire ceci, cela ou autre chose dans l'objet Excel créé.  
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

ucfoutu · Answer

Comment as-tu déclaré (code) :
 - l'objet applicfation Excel
- l'objet classeur utilisé
- l'objet feuille à traiter

ucfoutu · Answer

Ce n'est pas tout cela que je te demandais !
J'ignore (je ne connais pas VB.Net) si ta détermination de xlWorkSheet est orthodoxe.
Tes réponses assez "à côté de la question" ou "superflues" ne m'intéressent pas. 
Je vais donc partir de l'hypothèse selon laquelle xlApp, xlWorkBook et xlWorkSheet sont les bons objets ===>>

 xlWorkSheet.SelectMsgBox xlApp.cells.specialcells(2).row & vbCrLf & xlApp.cells.specialcells(2).Column

Pourquoi ai-je mis 2 et pas xlCellTypeConstants, selon toi  ?
Réfléchis-y donc (ce sera un premier pas intelligent).

EDIT : j'attends également de toi que tu me dises ce que tu as exactement compris de la nécessité d'ajouter xlApp devant ma ligne de code.  Il est très important de le comprendre. Comme il est (et c'est un indice) très important de bien comprendre ce qu'est un objet, ce qu'est une propriété, ce qu'est une routine, ce qu'est une fonction et ce qu'est une méthode. La remarque que je t'ai faite par mon message du  8 mars 2015 à 13:43 n'était pas (loin de là) une remarque anodine.

ucfoutu · Answer

"il" ne te donne pas un nombre. "il" t'en donne deux.
Le premier est le rang de la cellule et le second sa colonne.
Si tu ne t'en sors toujours pas avec cela, c'est que tu ne connais pas Excel non plus (que tu veux pourtant piloter). !
Et si tu veux directement la cellule elle-même (donc un objet range)  plutôt que son rang et sa colonne, tu as vraiment tout en main (en réfléchissant un peu, car la chose est on ne peut plus simple).
Je ne t' "expliquerai" et n'irai plus loin que lorsque tu auras répondu à ma question et à mon "edit". Car aucune "explication" ne serait comprise (sauf à faire tout un cours de débutant VBA/Excel) sans que tu n'aies d'abord "cerné" ces points primordiaux.

ucfoutu · Answer

Allez va ===>>
 .....
.....
 Set feuille = xlApp.worksheets("Feuil1")  feuille.Select  Dim toto As Object  Set toto = xlApp.cells.specialcells(2) '===>> la totalité de la plage des constantes  Set toto = toto(1, 1) ' ===>> la 1ère cellule de cette plage  MsgBox toto.address '===>> pour te le prouver !ù

pamelatheo · Answer

bonjour 
Cette discussion m'a bien aidé
Merci pour vos explications.

ucfoutu · Answer

Si ta difficulté est résolue : discussion à libérer par un clic sur le tag RESOLU au niveau de ton premier message.

Je regrette (c'est bien dommage) par ailleurs que tu aies éludé mes deux questions.

Bon...
D'autres passeront par là et seront peut-être intéressés ===>>
- pourquoi 2 et pas xlCellTypeConstants ===>> tout simplement pour éviter d'aller en plus fouiller dans les constantes de VBA. On donne directement la valeur de cette constante.
- pourquoi avoir ajouté "xlApp" devant le code ===>>> tout simplement parce que specialcells est une méthode de l'application  et non la méthode (ni un des objets, ni l'une des propriétés) de l'un des autres objets que nous avons créés (le classeur, la feuille ...). Nous devons  donc dire à l'application qui "pilote" où aller chercher cette méthode (dans l'application Excel elle-même).
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

pamelatheo · Answer

salut::
j'ai un autre problème 
je veux calculer la somme de mon tableau excel 
voici mon code : 
Dim lastrow As Integer 
Dim lastcol As Integer, thiscol As Integer = CInt(j) 
xlWorkSheet =CType(xlWorkBook.Sheets(ComboBox1.Text),Excel.Worksheet) 
xlWorkSheet.Activate() 
xlApp.Visible = True 


With xlWorkSheet 
xlWorkSheet.Select() 
j = (xlApp.Cells.SpecialCells(2).Row + 1 & vbCrLf & xlApp.Cells.SpecialCells(2).Column) 
lastrow = .Cells(.Rows.Count, 1).End(Excel.XlDirection.xlUp).Row 
lastcol = .Cells(1, .Columns.Count).End(Excel.XlDirection.xlToLeft).Column 
For thiscol = j To lastcol 
.Cells(lastrow + 1, thiscol).Value = _ 
xlApp.Sum(.Range(.Cells(1, thiscol), .Cells(lastrow, thiscol))) 
Next 
End With 
je veux utiliser le variable 'j' as integer non string pour que je peux calculer la somme

ucfoutu · Answer

Autre question ===>> autre discussion.
C'est ici une règle.
Merci de t'y conformer et de libérer la présente discussion.

Determiner la première cellule non vide d'une feuille excel vb.n

12 réponses

Votre réponse

Discussions similaires