Discussion :

[MB830]

Bonjour à tous,

Je souhaite créer une fonction de type integer sur VBA qui retourne une matrice carrée. Celle-ci permettrait de calculer les coordonnées des cellules entre A1 et D4 (Exemple : Cellule B2 : 2 + 2 = 4). Je dois pouvoir l'utiliser sur Excel comme une fonction matricielle.

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
Option Explicit
 
Function createMatrix(Compteur() As Double) As Integer
 
Dim I As Long
Dim J As Long
 
createMatrix = 0
 
For I = 1 To 4
    For J = 1 To 4
    Compteur(1 + I, 1 + J) = createMatrix + 1
    Next J
Next I
 
createMatrix = Compteur(I, J)
 
End Function

Je ne sais pas du tout comment m'y prendre pour avoir une valeur..

Merci pour vos explications,

[Patrice740]

Bonjour,

Fonction :

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
Function XXX(rng As Range) As Variant
Dim tbl As Variant
Dim cel As Range
Dim col&, lig&
  tbl = rng.Value  ' pour dimensionner le résultat
  If IsArray(tbl) Then
    For col = LBound(tbl, 2) To UBound(tbl, 2)
      For lig = LBound(tbl, 1) To UBound(tbl, 1)
        tbl(lig, col) = rng.Row + rng.Column + lig - 1 + col - 1
      Next lig
    Next col
  Else
    tbl = rng.Row + rng.Column
  End If
  XXX = tbl
End Function

Utilisation :
Sélectionner la plage résultat, saisir :

Code :

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

=XXX(A1:D4)

Valider par Ctrl+Maj+Entrée

[MB830]

Bonjour Patrice, merci pour votre réponse rapide !!

J'ai essayé votre code et suivi vos instructions cependant j'ai un message d'erreur qui apparaît lorsque je fais la manip, je ne comprends pas pourquoi..



Merci par avance..

[patricktoulon]

re
vu le resultat attendu voir meme le resultat proposé j'en conclu que c'est l'index que tu souhaite,pas les cordonnées par exemple B2 c'est la 4 ememe cellules du sheet
perso je m'ennuie pas la chose est simple

reprenons l'exemple de la celluleb B2

Code :

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

MsgBox Range(Cells(1, 1), "B2").Cells.Count

nul besoins de matrice lignes/colonnes

[MB830]

Bonjour Patrick,

Merci pour votre complément,

Je ne comprends pas comment l'implémenter dans le code..
En effet, celui-ci doit calculer par exemple pour D3 : Colonne 4 + Ligne 3 soit faire apparaître un chiffre de 7.

Je comprends l'idée du range car il s'agit d'un tableau mais pourquoi Msgbox ?

Merci !!

[Patrice740]

Bonjour Patrice, merci pour votre réponse rapide !!

J'ai essayé votre code et suivi vos instructions cependant j'ai un message d'erreur qui apparaît lorsque je fais la manip, je ne comprends pas pourquoi..

La matrice résultat ne doit pas être la plage testée (référence circulaire).

[Patrice740]

Re,

Le plus simple est de mettre une formule non matricielle :

Code :

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

1
2
3
Function XXXX(rng As Range) As Variant
  XXXX = rng.Column + rng.Row
End Function

Et en A1 :
=XXXX(A1)
à tirer sur la plage désirée

Edit ; et si tu tiens à pour la formule matricielle :

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
Function XXX(rng As Range) As Variant
Dim tbl As Variant
Dim col&, lig&
   ReDim tbl(1 To rng.Rows.Count, 1 To rng.Columns.Count)
  If IsArray(tbl) Then
    For col = LBound(tbl, 2) To UBound(tbl, 2)
      For lig = LBound(tbl, 1) To UBound(tbl, 1)
        tbl(lig, col) = rng.Row + rng.Column + lig - 1 + col - 1
      Next lig
    Next col
  Else
    tbl = rng.Row + rng.Column
  End If
  XXX = tbl
End Function

[MB830]

Merci Patrice,

Il est vrai que cela est plus simple sans faire une fonction matricielle, le problème est que je dois pouvoir me positionner sur la plage entière entre les cellules A1 et D4 et faire fonctionner ma fonction, donc avec la matrice...
Y a t'il un moyen de contourner la "référence circulaire" afin de faire fonctionner le code entre A1 et D4 ?

J'ai réussi à le faire en faisant un Sub mais on me demande une fonction malheureusement..

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub XXX()
    Dim i As Integer, j As Integer
 
    For i = 1 To 4
        For j = 1 To 4
            Cells(i, j) = i + j
        Next j
    Next i
 
End Sub

Merci d'avance,