Problème avec columns.count

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:

---

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.:ccool:

Regarde si tu mets

Code:

---

toto.rows(1).select

---

Sinon pour détourner ceci

Code:

---

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

---

Merci pour les pistes

cependant:

Code:

---

toto.rows(1).select

---

fonctionne
mais

Code:

---

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).:?

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?

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

Code:

---

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

---

Code:

---

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.

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

franchement j'ai fait plein de tests et les résultats sont bizarres. Quand les colonnes n'ont pas le même nombre de lignes, les résultats change même avec l'ordre de plages dans range.

le seul cas où le calcul fonctionne est celui où les plags nommées sont adacentes et de même nombre de lignes.

A mon avis la solution de mercatog est celle qu'il faut essayer d'implémenter, sinon ça va être une fonction VBA plus compliqué

les plages sont bien adjacentes et ont le même nombre de lignes, par contre elles comptent des cellules vides. ça viendrait de ça?

Salut
si Nom1,Nom2,... sont les noms de tes plages :

Code:

---

Set toto = sh.Range("Nom1","Nom2","Nom3","Nom4","Nom5")

---

Salut, issoram

Citation:

---

les plages sont bien adjacentes et ont le même nombre de lignes, par contre elles comptent des cellules vides. ça viendrait de ça?

---

Non, avec Union j'avais aussi essayé avec des cellules vides dans les colonnes et le résultat est toujours 5. :mrgreen:

On dit souvent de se référer à :f1: et voici un extrait de l'aide qui répond à ta question :

Citation:

---

Lorsqu'elle est appliquée à un objet Range constituant une sélection à zones multiples, cette propriété renvoie des colonnes uniquement à partir de la première zone de la plage. Par exemple, si l'objet Range possède deux zones — A1:B2 et C3:D4 — Selection.Columns.Count renvoie la valeur 2, pas 4.

---

dans ton cas l'objet Range posséde 5 zones de 1 colonne chacune, d'où le résultat 1 et pas 5.

Merci pour la sol rvtoulon,

j'avais bien lu l'aide mais trop vite à priori...

En tous cas c'est qd même tordu :?