Connaître le nombre de colonnes d'un tableau

[Magic_Doctor]

Bonsoir,

C'est curieux, mais je n'ai pour l'instant rien trouvé de satisfaisant à ce sujet.
Supposons que j'ai 36 tableaux sur ma feuille. Tous ces tableaux sont séparés les uns des autres d'au moins 1 ligne ou 1 colonne, autrement dit ils ne sont jamais contigus (collés).
En sélectionnant l'une quelconque des cellules de l'un de ces tableaux (pourquoi pas la 1ère si ça peut simplifier par la suite), je voudrais connaître le nombre de colonnes du tableau en question.
Les tableaux pouvant être dynamiques ne sont pas nommés (sinon ce serait très simple).

Merci pour l'aide.

 

[BOISGONTIER]

Re : Connaître le nombre de colonnes d'un tableau

Bonsoir,

n = ActiveCell.CurrentRegion.Columns.Count

JB

 

[job75]

Re : Connaître le nombre de colonnes d'un tableau

Bonsoir Magic_Doctor,

Ceci peut fonctionner (ou mal fonctionner) :

Sub NombreColonnes()
Dim n%
n = ActiveCell.CurrentRegion.Columns.Count
MsgBox n 'pour tester
End Sub

Il vaut donc mieux que la cellule active soit sur la 1ère ligne (ligne des titres normalement).

Edit : salut JB, désolé pas rafraîchi...

A+

 

[Magic_Doctor]

Re : Connaître le nombre de colonnes d'un tableau

Bonsoir BOISGONTIER, job,

Merci à vous deux. Apparemment ça a l'air d'enfin marcher sans problème.
J'avais trouvé, par exemple :

nbcol = Cells([Date_Inventaire].Row + 1, Columns.Count).End(xlToLeft).Column

et ça marchait quand ça voulait bien...

Bonne soirée à vous.