[E-07] PB avec Selection

Version imprimable

bonjour,

je souhaite colorier la diagonale d'une plage sélectionnée sous Excel dans le cas où cette plage est carrée mais je rencontre un problème quand je cherche à récupérer les coordonnées de la case en haut à gauche de la selection...

la fonction est_carree fonctionne très bien..

Pourriez-vous m'aider s'il vous plait !??

Merci à tous:lol:

Voici mon code:

Code:

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
 
Function est_carree(plage As Range) As Boolean
    Dim nbcol As Integer
    Dim nblig As Integer
    nbcol = plage.Columns.Count
    nblig = plage.Rows.Count
    est_carree = (nbcol = nblig)
End Function
 
Sub diago_perso()
    Dim i As Integer
    Dim j As Integer
    Dim nbcol As Integer
    Dim haut As Integer
    Dim gauche As Integer
    Dim kase As Range
    nbcol = Selection.Rows.Count
    MsgBox ("nbcol: " & nbcol)
    kase = Selection.End(xlTop).End(xlToLeft).Select
    haut = kase.Row
    MsgBox ("haut: " & haut)
    gauche = Selection.End(xlToLeft)
    If (est_carree(Selection) = True) Then
        For i = gauche To nbcol
            For j = haut To nbcol
                Range(Cells(i, j)).Interior.ColorIndex = 3
                j = j + nbcol
            Next j
            i = i + nbcol
        Next i
    Else
        MsgBox ("La sélection n'est pas carrée")
    End If
End Sub

14/01/2009, 10h19
dadavyvy

Bonjour,

il me semble que la 1ere cellule d'une plage est la cellule en haut a gauche de la plage.

Ainsi as-tu :

Code:

Set CelluleEnHautAGauche = Selection.Cells(1)

De même pour avoir la dernière cellule, qui est celle en bas à droite :

Code:

Set CelluleEnBasADroite = Selection.Cells(Selection.Cells.Count)

Et attention, à compter le nombre de régions si l'utilisateur fait une sélection multiple de plages :

Code:

MsgBox Selection.Areas.Count

Voilà la solution !!

Merci Dadavvvyyy:king:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub diago_perso()
    Dim i As Integer
    Dim j As Integer
    Dim nbcol As Integer
 
    nbcol = Selection.Rows.Count
 
    If (est_carree(Selection) = True) Then
        For i = 0 To (nbcol - 1)
                Cells(Selection.Cells(1).Row + i, Selection.Cells(1).Column + i).Interior.ColorIndex = 3
        Next i
    Else
        MsgBox ("La sélection n'est pas carrée")
    End If
End Sub