Discussion :

[issoram]

Bonjour,

Je dispose d'une plage de données contenant plusieurs colonnes nommées disons "nom1", "nom2" .... ayant le même nombre de lignes.
Lorsque je veux connaitre le nombre de colonnes de cette plage, le plage.columns.count me renvoie 1 alors que ma plage comprend plusieurs colonnes.
Voilà le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
    Dim toto As Range
    Dim sh As Worksheet
    Set sh = Worksheets("feuille1")
    Set toto = sh.Range("Nom1,Nom2,Nom3,Nom4,Nom5")
    Debug.Print toto.Columns.Count   'renvoie 1
    Debug.Print toto.Cells(1, 5)  'me renvoie bien un élément de la 5ème colonne

Merci pour vos lumières.

[mercatog]

Regarde si tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

toto.rows(1).select

Sinon pour détourner ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Intersect(toto, sh.Rows(1)).Count    'si toutes les plages ont la ligne 1 en commun

[issoram]

Merci pour les pistes

cependant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

toto.rows(1).select

fonctionne
mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Intersect(toto, sh.Rows(1)).Count

me renvoie Variable objet ou variable bloc With non définie (erreur 91)

Merci.

Sinon auriez vous une idée de pourquoi le columns.count ne fonctionne pas (je l'utilise pas mal dans d'autre cas... sans jamais de problème).

[BenjGe]

en fait il compte le nombre de colonnes de Nom1, c'est à dire la première plage du range.
Avec une union c'est pareil.
Quel calcul devez vous faire? compter le nombre de colonnes qu'occuppent ces plages sans doublon?

[rvtoulon]

slt à tous,
j'ai essayé en nommant 5 colonnes avec noms1,noms2 etc....
en utilisant Union il me renvoie bien 5 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set toto = Union([noms1], [noms2], [noms3], [noms4], [noms5])
    MsgBox toto.Columns.Count  'renvoie bien 5

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Intersect(toto, sh.Rows(1)).Count 'si toutes les plages ont la ligne 1 en commun

J'ai bien mis en commentaire que la ligne 1 de la feuille coupe toutes les plages nommées. tu peux modifier le 1 par un numéro de ligne de la feuille commun à toutes tes plages.

[issoram]

Merci pour vos réponses

rvtoulon: j'ai essayé avec union ça marche mais j'aimerais tout de même comprendre pq le columns.count fonctionne pas dans ce cas.

Benjîle: oui ce que je veux faire c'est compter le nombre de colonnes de la plage, mais ce que je ne comprends pas c'est qu' il selectionne bien toutes les colonnes et que pourtant à priori il compte le nbre de colonnes de "nom1"

mercatog: oui j'avais bien vu le commentaire et j'avais essayé avec une ligne qui intersecte toutes les plages