[XL-2007] Nombre de colonnes [Résolu]

[danisoaz]

Bonjour,

Pour trouver mon nombre de colonnes le code ci-dessous fonctionnait tès bien

Code :

vNbCol = vWst.Cells(1, Columns.Count).End(xlToLeft).Column

et hier sans que cette partie du programme, le classeur et les feuilles utilisées n'aient subi de modification la procédure plantait sur cette ligne avec Msgbox "erreur d'automation"
J'ai utilisé successivement 2 autres méthodes

Code :

1
2
3
4
5
6
7
8
9
10
 
Dim vNbCol As Integer
vNbCol = 0
    Do While vWst.Cells(1, vNbCol + 1) <> ""
        vNbCol = vNbCol + 1
    Loop
 
puis,
 
vNbCol = vWst.UsedRange.Columns.Count

qui on fonctionné parfaitement bien. Je les ai remplacées par la formule initiale et tout est redevenu nickel.

Les questions sont :
Qu'a-t-il bien pu se produire ?
Est ce que la formule en cause n'est pas fiable ?
Sachant que les feuilles sont structurées comme une base de données, et que la ligne 1 contient les noms de champ (26 maxi), la méthode Do while ne serait-elle pas la plus fiable ?

Merci

[mercatog]

Code :

vNbCol = vWst.Cells(1, vWst.Columns.Count).End(xlToLeft).Column

[gFZT82]

Bonjour,

Tu ne comptes pas la même chose avec chacun de tes codes.

Avec vWst.Cells(1, vWst.Columns.Count).End(xlToLeft).Column , tu relèves le numéro de la première colonne renseignée en partant de l’extrémité droite de la feuille et en allant vers la gauche.
En clair, tu obtiens le numéro de la dernière colonne renseignée.

Avec la boucle Do While, tu comptes le nombre de cellules renseignées, mais ce comptage s’arrête dès qu’une cellule vide est rencontrée. Si tu n’as aucune cellule vide dans ta plage, le résultat sera le même.

Avec UsedRange.Columns.Count, tu comptes le nombre de colonnes de la plage utilisée. Si ta plage n’est pas décalée, le résultat sera le même. Par contre, si la première colonne est vide par exemple, elle ne sera pas comptée.
Au final, si les 26 premières cellules de ta ligne 1 sont renseignées, tu obtiendras le même résultat avec les 3 codes.

Cordialement.

[danisoaz]

Merci beaucoup à tous les deux.
Cordialement
Daniel