Discussion :

[Oliv-]

Bonjour,
Je m'interroge sur la façon d'obtenir le nombre de colonnes d'une selection !

Ca parait simple lorsque les cellules sont connexes mais dans le cas contraire le résultat est quelque peu étonnant!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub nbcolonnes()
Dim MaSelection As Range
Dim MaSelection2 As Range
 
Set MaSelection = Union(Range("g9"), Range("i6"), Range("i13"), Range("k14"), Range("l7"))
MaSelection.Interior.Color = 10498160
 
MsgBox "Columns.count =" & MaSelection.Columns.Count _
& vbCr & "Areas count = " & MaSelection.Areas.Count, , "Maselection : " & MaSelection.Address
Debug.Print "Columns.count =" & MaSelection.Columns.Count _
& " Areas count = " & MaSelection.Areas.Count & " Maselection : " & MaSelection.Address
 
Set MaSelection2 = Range("$B$9:$C$10")
MsgBox "Columns.count =" & MaSelection2.Columns.Count _
& vbCr & "Areas count = " & MaSelection2.Areas.Count, , "Maselection2 : " & MaSelection2.Address
Debug.Print "Columns.count =" & MaSelection2.Columns.Count _
& " Areas count = " & MaSelection2.Areas.Count & " Maselection 2: " & MaSelection2.Address
 
 
Set MaSelection2 = Union(Range("B9"), Range("C10"))
MsgBox "Columns.count =" & MaSelection2.Columns.Count _
& vbCr & "Areas count = " & MaSelection2.Areas.Count, , "Maselection2 : " & MaSelection2.Address
Debug.Print "Columns.count =" & MaSelection2.Columns.Count _
& " Areas count = " & MaSelection2.Areas.Count & " Maselection 2: " & MaSelection2.Address
 
End Sub

donne

Columns.count =1 Areas count = 5 Maselection : $G$9,$I$6,$I$13,$K$14,$L$7 alors que j'ai 4 colonnes distinctes

Columns.count =2 Areas count = 1 Maselection 2: $B$9:$C$10
Columns.count =1 Areas count = 2 Maselection 2: $B$9,$C$10

Quelqu'un a-t-il une méthode "globale" ?

[Oliv-]

Je me répond avec une fonction que je viens de créer mais si quelqu'un a une autre méthode ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function NbcolDistinctes(maselection As Range) As Integer
    Dim nbcol As Integer
    Dim MonDico_Ou As Object
    nbcol = 0
    Set MonDico_Ou = CreateObject("Scripting.Dictionary")
    MonDico_Ou.CompareMode = vbTextCompare
    For a = 1 To maselection.Areas.Count
        For Each Macol In maselection.Areas(a).Columns
            If Not MonDico_Ou.Exists(Macol.Column) Then MonDico_Ou.Add Macol.Column, Macol.Column
            nbcol = nbcol + maselection.Areas(a).Columns.Count
        Next Macol
    Next a
    NbcolDistinctes = MonDico_Ou.Count
End Function

[EngueEngue]

J'étais parti sur un tableau...

Code :

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

1
2
3
4
5
Set MaSelection = Union(Range("g9"), Range("i6"), Range("i13"), Range("k14"), Range("l7"))
For Each c In MaSelection.Cells
tablo(i) = c.Column
i = i + 1
Next c

Il suffit de trouver le nombre d'élements distincts dans le tableau..

[PMO2017]

Bonjour,

Une autre piste avec une fonction employant les Collections

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub nbColonnesLignes()
Dim MaSelection As Range
Dim MaSelection2 As Range
'---
Set MaSelection = Union(Range("g9"), Range("i6"), Range("i13"), Range("k14"), Range("l7"))
MaSelection.Interior.Color = 10498160
MsgBox "Columns.count =" & RangeColumsOrRowsCount(MaSelection, xlByColumns) & vbCrLf & _
      "Rows.count =" & RangeColumsOrRowsCount(MaSelection, xlByRows)
'---
Set MaSelection2 = Range("$B$9:$C$10,b13,e20")
MaSelection2.Interior.Color = vbBlue
MsgBox "Columns.count =" & RangeColumsOrRowsCount(MaSelection2, xlByColumns) & vbCrLf & _
      "Rows.count =" & RangeColumsOrRowsCount(MaSelection2, xlByRows)
End Sub
 
Function RangeColumsOrRowsCount(Plage As Range, Sens As XlSearchOrder) As Long
Dim collRows As New Collection
Dim collColumns As New Collection
Dim C As Range
Dim A$
Dim B$
'---
On Error Resume Next
Set Plage = Plage.Offset(1, 1)
For Each C In Plage
  A$ = C.Address(False, False, xlR1C1, Range("a1"))
  '--- Lignes ---
  B$ = CStr(Mid(A$, 2, InStr(1, A$, "]") - 1))
  collRows.Add B$, B$
  '--- Colonnes ---
  B$ = CStr(Mid(A$, InStrRev(A$, "[")))
  collColumns.Add B$, B$
Next C
On Error GoTo 0
'---
If Sens = xlByColumns Then
  RangeColumsOrRowsCount = collColumns.Count
ElseIf Sens = xlByRows Then
  RangeColumsOrRowsCount = collRows.Count
End If
End Function

Je ne vois pas quel usage on peut en tirer ???
Merci de m'éclairer sur ce point.

Bonne journée et à plus.

[ctac_]

Bonjours,
1 petite copie de l'aide.
Cordialement
Ctac

Référence du développeur Excel
Range.Columns, propriété
Cette propriété renvoie un objet Range qui représente les colonnes figurant dans la plage spécifiée.
Syntaxe

expression.Columns

expression Variable qui représente un objet Range.

Remarques


L'utilisation de cette propriété sans qualificateur d'objet correspond à celle de ActiveSheet.Columns.

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 C34 — Selection.Columns.Count renvoie la valeur 2, pas 4. Pour utiliser cette propriété sur une plage susceptible de contenir une sélection à zones multiples, essayez Areas.Count pour déterminer si la plage contient plusieurs zones. Si c'est le cas, effectuez une boucle sur chaque zone de la plage.


Exemple


Cet exemple montre comment affecter la valeur 0 (zéro) à chaque cellule de la colonne 1 dans la plage « myRange ».

Visual Basic pour Applications
Range("myRange").Columns(1).Value = 0

Cet exemple montre comment afficher le nombre de colonnes dans la sélection de la feuille Sheet1. Si plusieurs zones sont sélectionnées, cet exemple montre comment faire une boucle sur chaque zone.

Visual Basic pour Applications
Worksheets("Sheet1").Activate
areaCount = Selection.Areas.Count
If areaCount <= 1 Then
MsgBox "The selection contains " & _
Selection.Columns.Count & " columns."
Else
For i = 1 To areaCount
MsgBox "Area " & i & " of the selection contains " & _
Selection.Areas(i).Columns.Count & " columns."
Next i
End If

[Oliv-]

Salut à tous et merci pour vos contributions.

Je n'avais pas pensé à regarder simplement dans l'aide !

Ce qui me rassure c'est que c'est un comportement "normal"

[PMO2017]

Bonjour,

Je précise que l'exemple de l'aide compte les colonnes qu'occupe chaque cellule de la sélection.
Cas 1 (cellules dans colonnes distinctes) :
Sélection = A1,C1,E1 donnera 3 colonnes.
Cas 2 (avec effet pernicieux) :
Sélection = A1,C1,E1,A3 donnera 4 colonnes alors que la colonne A qui est compté 2 fois ne devrait l'être qu'une seule fois.
****
La piste que je propose dans le message #4 indique le nombre de colonnes (ou de lignes) occupées soit, pour le Cas 2 (avec effet pernicieux), 3 colonnes.
J'avais cru comprendre que c'était cela qui était demandé.

[nibledispo]

Bonjour Engue Engue.

C'est précisément ce que fait le code Mercatog qu'au demeurant je n'ai toujours pas réussi à comprendre.

Je vois bien au pas à pas ce que fait le code mais les lignes de ce code m'échappent encore.

Cordialement,

[EngueEngue]

Euh... toutes nos méthodes essaient d'arriver au même point donc c'est normal que ce soit exactement la même chose. Sauf que la méthode n'est pas du tout la même. Mercatog joue sur les propriétes des ensembles. Union et intersection (ce qui est brillant) alors que moi j'ai rempli bêtement un tableau, évincé les doublons et compter le nombre d'éléments.

[mercatog]

Je vois bien au pas à pas ce que fait le code mais les lignes de ce code m'échappent encore.

Tu fais une projection (orthogonale) des plages sur la première ligne de la feuille. ça fait longtemps la géométrie . Tu obtiendras des cellules que tu vas compter en fin de compte.

Je rejoins Eugene. Tous les chemins mènent à Rome du moment où la logique était cernée.