Retourner un tableau en VBA

[mimy]

Bonjour à tous,

J aurais voulu savoir comment, à partir d une fonction, retouner un tableau de valeur.

Je m explique:
Dans la colonne A j ai des valeurs sur n lignes et j aurais voulu retourner dans la colonne B la différence entre chaque ligne, c est à dire A2-A1........................An-(An-1)
Et pour gagner du temps, retourner un tableau qui fait ce calcul pour chaque ligne.


Merci!!

 

[Matheop]

Re : Retourner un tableau en VBA

Salut mimy.

Et bien je dirais d'aller voir ces liens qui pourraient peut être t'intéresser:

• https://www.excel-downloads.com/threads/fonction-vba-pour-renvoyer-tableau-de-valeurs.68533/
• Forum VriTi Premire gnration

 

[mimy]

Re : Retourner un tableau en VBA

Merci Matichoux

J avais déjà vu mais bon je comprends toujours pas...

 

[tototiti2008]

Re : Retourner un tableau en VBA

Bonjour mimy, Bonjour Matichoux,

Et que veux tu faire du tableau résultant au bout du compte, comment vas-tu l'exploiter ?

peut-être un truc du genre

Function DiffVal(Plage As Range) As Double()
Dim TabloVal, TabloVal2, i As Long, j As Long, Result() As Double
    TabloVal = Plage.Value
    TabloVal2 = Plage.Offset(1, 0).Value
    ReDim Result(1 To Plage.Rows.Count, 1 To Plage.Columns.Count)
    For i = 1 To UBound(Result, 1)
        For j = 1 To UBound(Result, 2)
            Result(i, j) = TabloVal2(i, j) - TabloVal(i, j)
        Next j
    Next i
    Erase TabloVal
    Erase TabloVal2
    DiffVal = Result
    Erase Result
End Function

 

[ROGER2327]

Re : Retourner un tableau en VBA

Bonjour à tous

Un exemple à adapter (puisque nous n'avons pas la chance de disposer d'un classeur modèle).​

ROGER2327
#5697

Samedi 7 Clinamen 139 (La Main de Gloire - Vacuation)
9 Germinal An CCXX, 4,9950h - aulne
2012-W13-4T11:59:17Z

 

[mimy]

Re : Retourner un tableau en VBA

Bonjour tout le monde!!
je vous remercie pour votre rapidité!!! ca marche super bien!! merci encore!!

 

[mimy]

Re : Retourner un tableau en VBA

Bonjour Roger2327, est ce quil est possible d appuyer juste sur le bouton uniquement et pas selectionner la plage de cellules et ensuite appuyer sur le bouton?
Merci

 

[ROGER2327]

Re : Retourner un tableau en VBA

Re...

On fait avec ce qu'on a, c'est-à-dire rien...
Dans le code du bouton (feuille Feuil1) :

Private Sub CommandButton1_Click()
    toto1 Selection 'Plage à traiter
End Sub

j'ai mis Selection car vous ne donner aucune indication sur la structure de votre classeur. Pour adapter à votre cas, il suffit de mettre la plage qui vous convient à la place de Selection, ce qui dispensera de sélectionner manuellement la plage à traiter.

Je ne saurais dire plus sans en savoir plus sur le problème réel...​

ROGER2327
#5700

Samedi 7 Clinamen 139 (La Main de Gloire - Vacuation)
9 Germinal An CCXX, 5,4343h - aulne
2012-W13-4T13:02:32Z

 

[mimy]

Re : Retourner un tableau en VBA

C était juste pour savoir....

Merci mais quand je mets par exemple toto1 ("A1:A50") ca marche pas

Merci

 

[ROGER2327]

Re : Retourner un tableau en VBA

Re...

C était juste pour savoir....

Merci mais quand je mets par exemple toto1 ("A1:A50") ca marche pas

Merci

Essayez avec ça :

toto1 Range("A1:A50")

ROGER2327
#5702

Samedi 7 Clinamen 139 (La Main de Gloire - Vacuation)
9 Germinal An CCXX, 5,5546h - aulne
2012-W13-4T13:19:52Z

 

[mimy]

Re : Retourner un tableau en VBA

Merci!!!!! 😉

 

[ROGER2327]

Re : Retourner un tableau en VBA

Re...

Merci!!!!! 😉

De rien!!!!!!!!


Bonne continuation !


ROGER2327
#5705

Samedi 7 Clinamen 139 (La Main de Gloire - Vacuation)
9 Germinal An CCXX, 5,7887h - aulne
2012-W13-4T13:53:34Z