Discussion :

[gg5714]

Bonjour,
J'ai du mal à comprendre le code suivant. Bug de VBA Excel ou alors il y a un truc que je n'ai pas compris dans la propriété Range.
Si quelqu'un peut éclairer ma lanterne, je le remercie d'avance.

Code :

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

1
2
3
4
5
6
Sub Bizarre()
    Dim r As Range
    Set r = Range("$A$1:$C$5, $B$6")
    Debug.Print r.address
    Debug.Print r.count, r.item(16).address, r.item(17).address, r.item(18).address
End Sub

La plage r est constituée d'une plage rectangulaire de 15 cellules à laquelle est accolée une 16ème cellule (B6).
r.count renvoie bien la bonne réponse : 16
Mais r.item(16) a pour résultat $A$6.
Encore plus surprenant : r.item(17) et r.item(18) ne provoquent aucune erreur et renvoient respectivement $B$6 et $C$6.
C'est gênant car je voulais parcourir la plage avec une boucle For i = 1 to r.count ... traiter(r.item(i)... Next i et bien sûr le résultat est erroné.
A noter que la boucle For each cel in r ... traiter(cel) ... Next cel fonctionne normalement.

NB. J'ai pensé un instant que ce serait dû à une mauvaise utilisation de Range. Mais si je refais l'expérience en remplaçant la ligne 3 par

Code :

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

Set r = Selection

et en exécutant la procédure après avoir sélectionné manuellement la région qui m'intéresse, j'obtiens exactement le même résultat !

[jurassic pork]

hello,
c'est normal que tu ais ce résultat car la fonction r.item(x) ne représente pas les éléments de r :

Propriété Range.Item (Excel)
Cette propriété renvoie un objet Range qui représente une plage décalée par rapport à la plage spécifiée.
Syntaxe
. Item (RowIndex, ColumnIndex)

expression Variable représentant un objet Range.

PARAMÈTRES
Nom Requis/Facultatif Type de données Description
RowIndex Obligatoire Variant Si le deuxième argument est fourni, le numéro de ligne relatif de la cellule à renvoyer.

Si le deuxième argument n’est pas fourni, l’index de la sous-range à renvoyer.
ColumnIndex Facultatif Variant Numéro de colonne relatif de la cellule à renvoyer.

Pour balayer les éléments de r tu peux utiliser un For Each
voici un exemple de code qui effectue cette opération , en montrant ce qui se passe avec item(x) :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub PasBizarre()
    Dim r As Range
    Dim x As Integer
    x = 1
    Set r = Range("$A$1:$C$5, $B$6")
    For Each cell In r
    Debug.Print cell.Address, r.Item(x).Address
    x = x + 1
    Next
End Sub

Résultat :

$A$1 $A$1
$B$1 $B$1
$C$1 $C$1
$A$2 $A$2
$B$2 $B$2
$C$2 $C$2
$A$3 $A$3
$B$3 $B$3
$C$3 $C$3
$A$4 $A$4
$B$4 $B$4
$C$4 $C$4
$A$5 $A$5
$B$5 $B$5
$C$5 $C$5
$B$6 $A$6

On voir que pour r.item(16).Address on a $A$6 parce que c'est la première colonne de la ligne 16 bien qu'elle ne fasse pas partie des éléments du Range.

Ami calmant, J.P

[gg5714]

Un grand merci pour ces explications. Pas faciles à comprendre à la première lecture mais après avoir relu cinq fois la doc Microsoft de range.item, j'ai fini par capter (enfin je crois, mais c'est pas tout à fait sûr ).

En fait, ce que j'ai compris, c'est que, comme les arguments représentent un décalage, on peut très bien récupérer ainsi une cellule qui n'est pas dans la plage initiale !

Ainsi par exemple, Range("$B$2:$D$4").Item(10) renvoie la cellule $B$5 !

Cela dit, étant donné que je suis incapable de prévoir le comportement de range.item, même sur un cas simple comme celui ci-dessus, (la doc Microsoft est un modèle de ce qu'il ne faut pas faire en programmation : le résultat dépend de tout un tas de choses, y compris de la structure de la plage ), je retiens donc surtout que je m'abstiendrai de l'utiliser à l'avenir.

Encore merci d'avoir pris le temps de me répondre.

Ami calmant itou, Gg