Bonjour ! Je suis un peu perdu et j'aurais besoin d'un coup de main !

Bonjour Chtibougnat,

Si ton contrôle est placé dans un formulaire :

Voici un exemple :

'--------------------------
Private Sub CommandButton1_Click()

Dim rg As Range
On Error Resume Next
Set rg = Range(Me.RefEdit1)
If Err = 0 Then
MsgBox PlageEdition(Range(Me.RefEdit1))
Else
Err = 0
End If
End Sub

'--------------------------
Function PlageEdition(rg As Range)
Dim S As Long, Adr As String
Dim Message As String
S = rg.Rows.Count * rg.Columns.Count
Adr = rg.Parent.Name & "!" & rg.Address
Message = "Nombre de lignes : " & rg.Rows.Count & vbCrLf
Message = "Nombre de colonnes : " & rg.Columns.Count & vbCrLf
Message = Message & "nombre de cellules : " & S & vbCrLf
Message = Message & "Adresse de la plage est : " & Adr

PlageEdition = Message

End Function
'--------------------------


Salutations!


"Chtibougnat" <chtibougnat@hotmail.fr> a écrit dans le message de news: Or%23mVIDFFHA.3780@TK2MSFTNGP09.phx.gbl...
Bonjour a tous !

C'est la première fois que je viens sur MPFE mais ça a l'ai bien chaleureux !
Je suis doctorant en génie biochimique et je fais de la modélisation de procédé sous matlab mais mon coeur appartient à
VBA.

Je cherche une façon de déterminer les dimensions d'une matrice sous VBA de façon simple.
Voila le noeud du problème !

R=refedit1.text
range(R).select
dim x as variant
x=selection.value2
' et là comment faire pour avoir les dimensions de x

merci d'avance !

Chtibougnat

Bonjour,

Une fois que tu as mis ta plage dans une matrice ( x=Range(R).Value), les
dimensions d'une matrice X s'obtiennent ainsi:

LBound(X,1) ==> premier indice de 1ère dimension
UBound(X,1) ==> dernier indice de 1ère dimension

LBound(X,2) ==> premier indice de 2eme dimension
UBound(X,2) ==> dernier indice de 2eme dimension

C'était un complément d'info par rapport à la réponse de Denis qui te répondant
en utilisant directement des propriétés de l'object Range (R.Rows.Count)

Salutations,

Daniel M.

"Chtibougnat" <chtibougnat@hotmail.fr> wrote in message
news:Or%23mVIDFFHA.3780@TK2MSFTNGP09.phx.gbl...

Bonjour a tous !

C'est la première fois que je viens sur MPFE mais ça a l'ai bien chaleureux !
Je suis doctorant en génie biochimique et je fais de la modélisation de
procédé sous matlab mais mon coeur appartient à VBA.

Je cherche une façon de déterminer les dimensions d'une matrice sous VBA de
façon simple.

Voila le noeud du problème !

R=refedit1.text
range(R).select
dim x as variant
x=selection.value2
' et là comment faire pour avoir les dimensions de x

merci d'avance !

Chtibougnat

Merci à vous ! Vous avez gagné ma reconnaissance éternelle !!!

Chtibougnat

"Daniel.M" <prenom.maher@bigfoot.inutil.com> a écrit dans le message news:
uNDQJrFFFHA.208@TK2MSFTNGP12.phx.gbl...

Bonjour,

Une fois que tu as mis ta plage dans une matrice ( x=Range(R).Value), les
dimensions d'une matrice X s'obtiennent ainsi:

LBound(X,1) ==> premier indice de 1ère dimension
UBound(X,1) ==> dernier indice de 1ère dimension

LBound(X,2) ==> premier indice de 2eme dimension
UBound(X,2) ==> dernier indice de 2eme dimension

C'était un complément d'info par rapport à la réponse de Denis qui te
répondant

en utilisant directement des propriétés de l'object Range (R.Rows.Count)

Salutations,

Daniel M.

"Chtibougnat" <chtibougnat@hotmail.fr> wrote in message
news:Or%23mVIDFFHA.3780@TK2MSFTNGP09.phx.gbl...

Bonjour a tous !

C'est la première fois que je viens sur MPFE mais ça a l'ai bien
chaleureux !

Je suis doctorant en génie biochimique et je fais de la modélisation de
procédé sous matlab mais mon coeur appartient à VBA.

Je cherche une façon de déterminer les dimensions d'une matrice sous VBA
de

façon simple.

Voila le noeud du problème !

R=refedit1.text
range(R).select
dim x as variant
x=selection.value2
' et là comment faire pour avoir les dimensions de x

merci d'avance !

Chtibougnat