aide sur calcul dans les élements contenus dans un tableau en VBA

Bonjour à toutes et a tous,

je suis novice en VBA j'ai lu les cours et tutoriels contenus dans ce forum sur les tableaux et boucles imbriquées mais afin de mieux appréhender le concept des tableaux que je ne visualise pas trop bien peut être, je sollicite votre aide sur un exemple précis qui, à mon avis me permettra de mieux contextualiser les choses.

Je m'explique : je veux créer une fonction avec une seule variable d'entrée qui est un tableau. A partir de cette variable d'entrée je veux faire des calculs entre les différents éléments du tableau (voir image ci-joint en jaune le tableau d'entrée et le texte en couleur les calculs que je veux faire).
Pièce jointe 235755

Je n'ai pas fait de code comme je ne sais pas du tout comment faire. Merci de vos aides pour me permettre d'avance dans mon apprentissage des tableaux sous vba.

Par ailleurs j'ai cru lire que debug.print ne fonctionne pas pour les tableaux. Existe-t-il un autre moyen pour vérifier les éléments d'un tableau au cours de la réalisation d'un code.


Milles remerciements par avance.

---------------------------------------------------------------------------------------------------------------------
La connaissance s’acquiert par l’expérience, tout le reste n’est que de l’information. – Albert Einstein

Bonjour !

Aucun souci avec Debug.Print pour afficher un élément d'une variable tableau !

Autre moyen : suivre le code en mode pas à pas via la touche F8 (ou via un point d'arrêt)

    et contrôler le contenu de la variable dans la fenêtre Variables locales …

Pour la création de la variable tableau tout dépend déjà où se trouvent les données !

Voir le tutoriel Utiliser les variables tableaux en VBA Excel …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Je ne comprends pas vraiment quelle est la logique de tes combinaisons (s'il y en a une).

Tu ne peux pas créer une fonction qui renvoie plusieurs valeur. Une fonction ne renvoie qu'une valeur.
Par contre, il est possible de faire une procédure Sub qui rempliera des cases précises.

Si tu transmets un tableau sous forme de paramètre, il faut que ce paramètre soit déclaré de type Range.
Tu pourras atteindre chaque élément à l'aide de la propriété Item.
https://msdn.microsoft.com/fr-fr/lib.../ff841096.aspx

Bonjour
Non il ny a aucune logique hormis le sens fait de pouvoir contextualiser les choses de mieux les apprehender. Je suis d'accord avec le fait que la fonction ne donne qu ine seul valeur mais je peux les sortir en array sur plusieurs cellules.

Code:

---

1 2 3 4 5 6 7

Sub Demo1() VT = [{"x","P";0.5,150}] For R& = LBound(VT) To UBound(VT) Debug.Print VT(R, 1), VT(R, 2) Next Debug.Print VT(2, 1) * VT(2, 2) End Sub

---

Voir le résultat dans la fenêtre Exécution du VBE …

Citation:

---

Envoyé par delphine63000

Je suis d'accord avec le fait que la fonction ne donne qu ine seul valeur mais je peux les sortir en array sur plusieurs cellules.

---

Une fonction est dans une cellule dans laquelle elle place son résultat.
C'est la même chose que n'importe quelle fonction Excel.

Si tu veux placer plusieurs valeurs dans plusieurs cellules, il faudra créer une procédure Sub qui se lancera avec un bouton ou un raccourci clavier mais qui ne sera pas aussi dynamique qu'une fonction (sauf si on la place dans une macro évènementielle, mais ça c'est une autre histoire).

Bonjour Marc
Merci pr ton aide. Je precise ma pensee a propos de debug.print pour afficher tous le tableaux entierement n'est pas possible? Cest vrai que comme tu fais si jai bien compris tu affiches tous les elements un à un.

Sinon comme déjà évoqué voir la fenêtre Variables locales
ou encore affecter une plage de cellules par le contenu de la variable tableau (cf tutoriel) …

Bonjour,

Voici ma proposition (en inscrivant bien les opérateurs)
Pièce jointe 235778

et donc le code suivant
voir nouvelle réponse plus bas !

bonjour Menhir,

Voici un code en format function qui permet de sortir 3 valeurs en même temps

Code:

---

1 2 3 4

Function toto(x, y) toto = Array(x + y, x * y, x / y)   End Function

---

avant de lancer la function tu selectionnes 3 cellules en même temps ensuite tu lances la function et tu entres tes variables au moment de sortir les résultats il faut entrée CRTL+ALT+ENTREE en même temps
Pièce jointe 235788

slt EBRAG,

Merci pour ta proposition mais je pourrais avoir les commentaires s'il te plait. Je la lis mais je comprend pas grand chose.

désolé ! me suis trompé de procédure :mouarf:

avec celle-ci, tu comprendras peut-être mieux (par rapport au tableau de ma première réponse, donc à adapter !

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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

Sub Tableau() Dim Tbl() Dim oCell As Range Dim i As Long Dim sOp1 As String Dim sOp2 As String Dim lNum1 As Long Dim lNum2 As Long Dim sOperateur As String Dim stest As String Tbl() = Range("C3:E5") For Each oCell In Range("B7:B12") sOperateur = "" sOp1 = "" sOp2 = "" For i = 1 To VBA.Len(oCell) stest = VBA.Mid(oCell, i, 1) Select Case stest Case "0" To "9" If sOperateur = "" Then lNum1 = stest Else lNum2 = stest End If Case "+", "-", "*", "/" sOperateur = stest Case Else If sOperateur = "" Then sOp1 = sOp1 & stest Else sOp2 = sOp2 & stest End If   End Select Next   Select Case sOperateur Case "+" oCell.Offset(0, 1) = Tbl(lNum1, Application.WorksheetFunction.Match(sOp1, Range("C2:E2"), 0)) + _ Tbl(lNum2, Application.WorksheetFunction.Match(sOp2, Range("C2:E2"), 0)) Case "-" oCell.Offset(0, 1) = Tbl(lNum1, Application.WorksheetFunction.Match(sOp1, Range("C2:E2"), 0)) - _ Tbl(lNum2, Application.WorksheetFunction.Match(sOp2, Range("C2:E2"), 0)) Case "*" oCell.Offset(0, 1) = Tbl(lNum1, Application.WorksheetFunction.Match(sOp1, Range("C2:E2"), 0)) * _ Tbl(lNum2, Application.WorksheetFunction.Match(sOp2, Range("C2:E2"), 0)) Case "/" oCell.Offset(0, 1) = Tbl(lNum1, Application.WorksheetFunction.Match(sOp1, Range("C2:E2"), 0)) / _ Tbl(lNum2, Application.WorksheetFunction.Match(sOp2, Range("C2:E2"), 0)) End Select Next   End Sub

---

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub essai() Tbl = [A2:C4] [A2:C4] = Tbl x1p1 = Tbl(1, 1) * Tbl(1, 2) x2p1 = Tbl(2, 1) * Tbl(1, 2) x3M1 = Tbl(3, 1) * Tbl(1, 3) x1P3 = Tbl(1, 1) * Tbl(3, 2) x2M2 = Tbl(2, 1) * Tbl(2, 3) [E2] = x1p1 [E3] = x2p1 [E4] = x3M1 [E5] = x1P3 [E6] = x2M2 End Sub

---

Boisgontier
http://boisgontierjacques.free.fr

Bonjour,

Merci pour vos aides à vous tous. très sincères remerciements et bonne journée à tous.

Bonjour,

N'étant pas habitué à ce genre d'exercice, je suis quand même arrivé a faire une fonction quasi comme le résultat en exemple dans le post 1
1 -j'ai aussi utilisé un champ nommé pour la plage regroupant les chiffres mais on peut aussi sélectionné la plage dans la limites de la fonction, sinon il faudra la faire évolué
2 - pour les calculs, les opérateurs sont obligatoires et doivent être mis entre guillemets
3 - Les valeurs et opérateurs peuvent être optionnel lors de l'écriture de la formule (cf Capture)

La formule se présente (schématisé) :

=Calcul(MaPlage;Xn;Opérateur1;Pn;Opérateur2;Mn)

Voilà ce que cela donne en capture d'écran, on peut surement faire mieux mais je le fait avec mon niveau

PS : les pro toutes remarques sont les bienvenues - merci d'avance pour ceux qui se manifestent

capture :

Pièce jointe 236253

le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Function Calcul(Plage As Range, Optional Xn, Optional OPE1, Optional Pn, Optional OPE2, Optional Mn) As String Dim X, P, M, Val_X$, Val_P$, Val_M$, Val_OPE1$, Val_OPE2$, XPM$   X = Application.Transpose(Application.Index(Plage, 0, 1)) 'Tab Valeurs de X P = Application.Transpose(Application.Index(Plage, 0, 2)) 'Tab Valeurs de P M = Application.Transpose(Application.Index(Plage, 0, 3)) 'Tab Valeurs de M   If IsError(Xn) Then Val_X = "" Else Val_X = X(Xn) 'Position de la valeur choisie dans X If IsError(OPE1) Then Val_OPE1 = "" Else Val_OPE1 = OPE1 'Opérateur 1 If IsError(Pn) Then Val_P = "" Else Val_P = P(Pn) 'Position de la valeur choisie dans P If IsError(OPE2) Then Val_OPE2 = "" Else Val_OPE2 = OPE2 'Opérateur 2 If IsError(Mn) Then Val_M = "" Else Val_M = M(Mn) 'Position de la valeur choisie dans M   XPM = Val_X & Val_OPE1 & Val_P & Val_OPE2 & Val_M   'RESULTAT de type String Calcul = IIf(Val_X = "", "", "X" & CStr(Xn)) & IIf(Val_OPE1 = "", "", Val_OPE1) & _ IIf(Val_P = "", "", "P" & CStr(Pn)) & IIf(Val_OPE2 = "", "", Val_OPE2) & _ IIf(Val_M = "", "", "M" & CStr(Mn)) & _ " = " & Evaluate(XPM)   End Function

---

Edit : Quand je parlais da limite de la fonction, ici 'est par rapport au nombre de colonne contenu dans la plage qui est de 3 , après faut modifier la fonction.

Je voulais faire qq chose de dynamique, mais pas trop le temps, en plus il faut voir si c'est possible, et si ca l'ai, on devra sûrement passer par des boucles

Bonsoir Delphine,

En attendant ton retour j'ai fait une correction j'ai tenté une opération avec virgule qui ne marchait pas, en fait le calcul de la fonction se fait avec un point "." (ex : 2.5)
Mais c'est pas un problème avec un Replace de la virgule par le point dans la fonction c'est arrangé (tu peux utilisé autant le point que la virgule dans tes valeurs)

Donc voilà le code modifié :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Function Calcul(Plage As Range, Optional Xn, Optional OPE1, Optional Pn, Optional OPE2, Optional Mn) As String Dim X, P, M, Val_X$, Val_P$, Val_M$, Val_OPE1$, Val_OPE2$, XPM$   X = Application.Transpose(Application.Index(Plage, 0, 1)) 'Tab Valeurs de X P = Application.Transpose(Application.Index(Plage, 0, 2)) 'Tab Valeurs de P M = Application.Transpose(Application.Index(Plage, 0, 3)) 'Tab Valeurs de M   If IsError(Xn) Then Val_X = "" Else Val_X = Replace(X(Xn), ",", ".") 'Position de la valeur choisie dans X If IsError(OPE1) Then Val_OPE1 = "" Else Val_OPE1 = OPE1 'Opérateur 1 If IsError(Pn) Then Val_P = "" Else Val_P = Replace(P(Pn), ",", ".") 'Position de la valeur choisie dans P If IsError(OPE2) Then Val_OPE2 = "" Else Val_OPE2 = OPE2 'Opérateur 2 If IsError(Mn) Then Val_M = "" Else Val_M = Replace(M(Mn), ",", ".") 'Position de la valeur choisie dans M   XPM = Val_X & Val_OPE1 & Val_P & Val_OPE2 & Val_M   'RESULTAT de type String Calcul = IIf(Val_X = "", "", "X" & CStr(Xn)) & IIf(Val_OPE1 = "", "", Val_OPE1) & _ IIf(Val_P = "", "", "P" & CStr(Pn)) & IIf(Val_OPE2 = "", "", Val_OPE2) & _ IIf(Val_M = "", "", "M" & CStr(Mn)) & _ " = " & Evaluate(XPM)   End Function

---

Edit : il me semble que avoir lu qu'une conversion en Cdbl peut marcher a la place du Replace, je testerais dès que j'ai un moment

N'hésite pas pour toutes questions ou problème rencontrés auxquels je n'aurais pas pensé

Bonsoir a toutes et a tous,
Alors me revoila avec mes tableaux. Alors je veux remplir mon tableau à partir des valeurs entrées et quelques opérations sur ces valeurs (voir capture d'écran ci-dessous).
Pièce jointe 236983
Voici la fonction que j'ai créer mais bon elle n'est pas fameuse à mon avis.

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

Function calculmatrice(x As Range) Dim i As Variant 'pour parcourir les lignes de la matrice Dim j As Variant 'pour parcourir les colonnes de la matrice Dim n As Single 'taille de la matrice Dim matrice() As Range   k = Application.CountA(x) 'nombre de valeur contenu dans x n = k - 1   ReDim matrice(i, j)   For i = 1 To n For j = 1 To n If i = j Then matrice(i, j) = 2 * (x(i) + x(i + 1)) ElseIf i > 1 And i <= j Then matrice(i, j) = x(i + 1) ElseIf j > 1 And j < i Then matrice(i, j) = x(j + 1) End If   Next Next   calculmatrice = matrice(1, 1) 'valeur à changer pour obtenir toute les valeurs de la matrice   End Function

---

et je voudrais aussi pouvoir intercaler des colonnes supplémentaires ou en remplacer les idées ou une documentation sur ce point particuliers ne serait pas refus en plus de mon problème de construction du table
A titre d'exemple voici une capture d'image par un exemple numérique.
Pièce jointe 236993

MERCI DE VOS AIDES.

Bonjour,

ce sont des calculs à la fois basiques, mais surtout reposant sur un motif/pattern en escalier
ce n'est pas la panacée pour étirer des formules Excel, mais ça n'empêche pas de s'aider du VBA pour les utiliser


la restitution exacte de ta dernière copie écran peut se remplir avec deux simples formules :

- "=A1+A2" // "=2*(Xi + Xi+1)"
- "=A2" // "=Xi"

en partant de ça, on va les écrire dynamiquement "au bon endroit" en fonction du nombre de valeurs
l'avantage, c'est que les formules te permettent de faire varier ton tableau de résultat, en changeant les valeurs d'entrée

Ecrit à partir de A1 une liste de valeurs sur la colonne A sans ligne vide
Et utilise ce code, qui contient une variable LIMITE pour ta propre sécurité, si tu étais trop gourmande en quantité

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

Sub toto() Dim LIMITE As Integer, NbVal As Integer, i As Integer LIMITE = 10 ' la sécurité NbVal = Cells(1, 1).CurrentRegion.Columns(1).Cells.Count ' le nombre de valeurs If NbVal < 1 Or NbVal > LIMITE Then Exit Sub ' on veut un nombre de valeurs compris entre 2 et LIMITE   ' on se met 4 lignes en dessous des valeurs With Cells(NbVal + 4, 1) ' on efface un peu .CurrentRegion.ClearContents ' on boucle sur la taille que feront les côtés du carré final For i = 1 To NbVal - 1 ' quoi qu'il arrive, le "=2*(Xi + Xi+1)" .Offset(i - 1, i - 1).Formula = "=2*(A" & i & "+A" & i + 1 & ")" ' à partir de 3 valeurs If i > 1 Then ' "=Xi" au dessus et sur la gauche de là où on a écrit la formule du dessus .Offset(i - 1, i - 2).Formula = "=A" & i .Offset(i - 2, i - 1).Formula = "=A" & i End If Next i 's'il reste des cellules vides, on met 0 On Error Resume Next If NbVal > 2 Then .Resize(NbVal - 1, NbVal - 1).SpecialCells(xlCellTypeBlanks).Value = 0 On Error GoTo 0 End With End Sub

---

c'est pas super optimisé, mais vu le peu de temps que j'y ai consacré, on devrait s'en tirer pas trop mal

Bonjour,

Pour rester sous forme de fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Function calculmatrice(x As Range) Dim i As Long 'pour parcourir les lignes de la matrice Dim j As Long 'pour parcourir les colonnes de la matrice Dim n As Single 'taille de la matrice Dim matrice() As Double   n = Application.CountA(x) - 1 ReDim matrice(1 To n, 1 To n) For i = 1 To n For j = 1 To n If i = j Then matrice(i, j) = 2 * (x(i) + x(i + 1)) ElseIf i > 1 And i <= j Then matrice(i, j) = x(i + 1) ElseIf j > 1 And j < i Then matrice(i, j) = x(j + 1) End If Next Next calculmatrice = matrice 'valeur à changer pour obtenir toute les valeurs de la matrice End Function

---

Comme la taille de ta matrice dépend de la taille de x sélectionne la plage résultat à la bonne taille avant de valider en matriciel.

Sinon tu peux fixer la taille à 4x4 avec ReDim matrice(1 To 4, 1 To 4), mais les colonnes/lignes inutilisées se mettent à 0, même en déclarant matrice As Variant. A voir le plus pratique pour toi.
eric

Re Delphine,

je voulais savoir si la 1ère fonction que j'ai fait en post 17, allait te servir

sinon sur ton 2ème problème (en réactualisant j'ai eu la surprise de voir le code de Eriic proche du mien, il y a qd meme des différences)

le voilà

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Function CalculMatrice(Plage As Range, Lig&, col&) As Variant Dim VA   VA = Application.Transpose(Application.Index(Plage, 0, 1))   If Lig > UBound(VA) - 1 Or col > UBound(VA) - 1 Then CalculMatrice = "Error => n maxi = " & UBound(VA) - 1: Exit Function End If   If Lig = col Then matrice = 2 * (VA(Lig) + VA(Lig + 1)) ElseIf Lig > 1 And Lig <= col Then matrice = VA(Lig + 1) ElseIf col > 1 And col < Lig Then matrice = VA(col + 1) End If   CalculMatrice = matrice   End Function

---

Edit : selon ton tableau il y a des 0 (zéro), mais selon les conditions comment obtient t on ces zéro ?

bonsoir,

merci a vous tous.
Joe levrai ta routine fonctionne parfaitement mais comme c'est un quelques chose que j utilise dans plusieurs fichiers avec des données variantes je préfère l'avoir en function plutôt qu'en sub bref c'est un détail en tout cas mille mercisss.
ERIIC merci beaucoup c'est super mais il y'a un probleme avec la deuxième ligne et première colonne. en effet elle devrait donner la valeur x(i+1) alors qu'on a 0 c'est de même que la deuxieme colonne et la première ligne j'essaie de résoudre le problème et je posterai la solution si j'y arrive.
EN tout milles mercis.
A PLUS..

Si je respecte les conditions cité dans ton code, voilà ce que j'obtiens :

Pièce jointe 237008

les conditions ne devraient pas être modifiées ?? voir peut être en rajouter ??

Bonsoir RYU
merci bcp oui ta première ma été fonction pour de ma première question m'a beaucoup servi pour faire la base de celle-ci mais je me suis améliorée sur l'utilisation de redim qui n'etait pas super top mais bno on apprend avec l'experience comme disait l'autre.
En tout pour cette fonction on a le même problême que ERIC je pense qu'il manque une condition ou bien que je devrait revoir mes conditions en tout le code de JOE.LEVRAI fonctionne super bien même s'il me limite à 10 valeurs mdrrrrrr... (jaime).

EN tout cas je m'éclate franchement l'apprentissage de la VBA qui est didacticiel et l'aide dans ce forum est supeerrrrrr TOOPPPP.
merci merci j'arrive même pas a dormir encore tellement je veux trouver la solution.

sur la deuxieme ligne colonne 1 tu devras avoir 15 et pas 0 si je me trompe pas. mille excuses si c'est le cas

Re

J'ai modifié les conditions dans mon code afin d'avoir le même résultat présenté dans le post 18
j'ai fais aussi un 2ème tableau reprenant les valeurs mais sur 6 lignes au lieu de 5
Est ce que les nouvelles conditions dans mon code donneront toujours le bon résultat quelque soit le nombre de ligne ??

Capture :

Pièce jointe 237022

Code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Function CalculMatrice(Plage As Range, Lig&, col&) As Variant Dim VA   VA = Application.Transpose(Application.Index(Plage, 0, 1))   If Lig > UBound(VA) - 1 Or col > UBound(VA) - 1 Then CalculMatrice = "Error => n maxi = " & UBound(VA) - 1: Exit Function End If   If Lig = col Then matrice = 2 * (VA(Lig) + VA(Lig + 1)) ElseIf Lig > col And Lig - col = 1 Then matrice = VA(Lig) ElseIf col > Lig And col - Lig = 1 Then matrice = VA(col) End If   CalculMatrice = matrice   End Function

---

Edit : je l'ai alors la solution ci dessus :mrgreen: alors?

Edit 2 :

Citation:

---

sur la deuxieme ligne colonne 1 tu devras avoir 15 et pas 0 si je me trompe pas

---

en effet en reprenant les conditions dans ton code ça me donne bien 0 dans mon ancien code, mais pas le nouveau (modifié)

oui elle fonctionne j'etais partie dans un délire avec plein de elseif.
merci bcpp

Ma nouvelle fonction présenté comme ceci :

CalculMatrice(Plage ; ligne; colonne)

te convient ??

ou tu préfère un tableau qui se fait automatiquement ??

PS : en jouant avec les formules excel il y a moyen d'étirer la formule comme je l'ai fait en mettant la formule en A1 (pour simplifier) et en l'étirant :

Citation:

---

=CalculMatrice($I$1:$I$6;LIGNE();COLONNE())

---

Comme on est parti dans la même direction avec Eriic avec des petites différences
- Dans mon code on peut cibler avec lignes / colonnes
- Dans le sien sous forme matricielle donne l'ensemble des valeurs mais il faut bien sélectionner le nb de lignes et de colonnes

Eriic : m'n veut pas j'ai corrigé ton code ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Function calculmatriceEriic(x As Range) Dim i As Long 'pour parcourir les lignes de la matrice Dim j As Long 'pour parcourir les colonnes de la matrice Dim n As Single 'taille de la matrice Dim matrice() As Double   n = Application.CountA(x) - 1 ReDim matrice(1 To n, 1 To n) For i = 1 To n For j = 1 To n If i = j Then matrice(i, j) = 2 * (x(i) + x(i + 1)) ElseIf i > j And i - j = 1 Then matrice(i, j) = x(i) ElseIf j > i And j - i = 1 Then matrice(i, j) = x(j) End If Next Next calculmatriceEriic= matrice 'valeur à changer pour obtenir toute les valeurs de la matrice End Function

---

Edit : Delphine : avec mon code tu peux étirer la formule de cette manière :

Code:

---

=CalculMatrice($I$1:$I$6;LIGNES($A$16:$A16);COLONNES($A$16:A$16))

---

Donc tu peux aussi bien cibler que faire le tableau, et si tu dépasses mon code te rappellera à l'ordre :mouarf: ;)

Bonjour,

Citation:

---

ERIIC merci beaucoup c'est super mais il y'a un probleme avec la deuxième ligne et première colonne. en effet elle devrait donner la valeur x(i+1) alors qu'on a 0 c'est de même que la deuxieme colonne et la première ligne j'essaie de résoudre le problème et je posterai la solution si j'y arrive.

---

Je ne m'étais occupé que de la partie fonction pour que tu aies une matrice complète en retour, pas des calculs que tu y faisais que j'ai supposés justes.

Citation:

---

Eriic : m'n veut pas j'ai corrigé ton code

---

Pas de soucis, il faut bien avancer :-)
eric

Citation:

---

Envoyé par delphine63000

le code de JOE.LEVRAI fonctionne super bien même s'il me limite à 10 valeurs mdrrrrrr... (jaime).

---

Bonjour,

LIMITE est modifiable dans la procédure, il suffit de modifier le chiffre 10

Bonjour,

ERIIC c'est ce que je me suis dite quand j'ai vu la function. En tout cas merci bcp

Bonjour JOE oui j'avais compris lool tes commentaires on beaucoup aidé.
MErci encore.
ET RYU c'est super cool de ta part .

S'il faut nécessairement passer par une fonction plutôt qu'une procédure, il est préférable de l'utiliser en matriciel plutôt que d'ajouter des paramètres pour gérer les lignes et les colonnes


par exemple :

- de A1 à A5 on écrit 5 valeurs
- on sélectionne une plage vide matérialisée par un carré 4*4 (NbValeurs-1)*(NbValeurs-1)
- dans la barre de formule on met =calculmatriceEriic(A1:A5)
- on valide la formule par Ctrl+Maj+Entrée
- la matrice de résultat est maintenant remplie dans le carré

Pièce jointe 237102

Si par mégarde on a sélectionné un carré "trop grand" alors les cellules supplémentaires recevront une erreur #N/A

hi,
Exactement Joe, c'est ce que j'ai fait quand j'ai corrigé le code de Eriic puisque à peu de chose près nos codes sont similaire ici

Après il y a qd même un avantage avoir les lignes et colonnes si on a besoin seulement d'obtenir une valeur précise, après tout dépend dont sont gérés les informations

et comme je le disais en utilisant les formules LIGNES et COLONNES avec les valeurs relatives et absolues notre tableau on l'a aussi
Ex : =CalculMatrice($I$1:$I$6;LIGNES($A$16:$A16);COLONNES($A$16:A$16))

on pourrait même automatiser Lignes et colonnes avec 2 champs nommés que l'on pourrait appelé LIG e COL

OUi JOE c'est comme ca que je vais faire merci bcp pour toutes ces explications.

bonjour,

Dans la suite de mon post initiale, comment je fais pour remplacer une seule ligne ou une seule colonne de mon tableau.
j'ai vu dans les tutoriels avec redim preserve mais on met quoi après j'ai vu dans le tutoriel

Code:

---

1 2	'--- Redéfinit la taille de la dernière dimension du tableau ReDim Preserve Tableau(1 To 2, 1 To x)

---

comment ca marche dans mon cas si je reprend la fonction de ERIIC et je veux remplacer une seule ligne ou colonne???

Re,

Redim Preserve est là juste pour redimensionné le tableau tout en conservant les données, si tu mets pas Preserve tu perds tes données

si tu veux remplacer des données (code à voir selon le contexte) sur une ligne ou une colonne,
il faudra faire une boucle soit en ligne soit en colonnes :

Ex si veux changer les données en ligne 10 de ton tableau :

Code:

---

1 2 3

For j = 1 to Ubound(MonTab, 2) MonTab(10, j) = TOTO(j) 'ou autre, c'est fictif Next

---

Mais tout cela (le code) est à déterminé selon le contexte

Edit : petite erreur dans le code corrigé

J'ai pas trop compris par exemple si je fais :

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 CalculMatrice2(x As Range) Dim i As Long 'pour parcourir les lignes de la matrice Dim j As Long 'pour parcourir les colonnes de la matrice Dim n As Single 'taille de la matrice Dim matrice() As Double Dim rot As Double 'matrice ligne à remplacer rot = Array(2, 2, 2)   n = Application.CountA(x) - 1 ReDim matrice(1 To n, 1 To n) For i = 1 To n For j = 1 To n If i = j Then matrice(i, j) = 2 * (x(i) + x(i + 1)) ' ElseIf i > 1 And i <= j Then ' matrice(i, j) = x(i + 1) ElseIf i > j And i - j = 1 Then matrice(i, j) = x(i) ElseIf j > 1 And j - i = 1 Then matrice(i, j) = x(j) ' Debug.Print matrice(i, j) End If   For k = 1 To UBound(matrice) matrice(1, j) = rot Next k Debug.Print matrice(i, j) Next Next       CalculMatrice2 = matrice End Function

---

dsl moi non plus je vois pas trop ou tu veux en venir, juste à part que tu as un array (Tab. une dimension) don tu veux donner les valeurs à ta matrice
mais il faudrait être plus clair sur ce que tu veux faire

en plus un Array de base commence à zéro, et si tu veux donner chaque valeur de ton Array il va falloir lui dire quelle valeur
Rot(0) puis Rot(1) ...

Code:

---

1 2 3 4

TOTO = Array("MaValeur 1", "MaValeur 2", "MaValeur 3", 4, 5) For i = Lbound(TOTO) to Ubound(TOTO) Debug.Print TOTO(i) Next

---

ou

Code:

---

1 2 3 4

TOTO = Array("MaValeur 1", "MaValeur 2", "MaValeur 3", 4, 5) For Each V in TOTO Debug.Print V Next

---

RUY,

Alors j'ai mis un array comme je veux changer la ligne 1 par exemple en appliquant la fonction à 4 valeurs soit un tableau (3,3) juste pour voir. C'est compliqué de percevoir les choses comment elles fonctionnent réellement. mais bon avec un peu d'aide ca va aller.

re,

le 1er code met les valeurs directement dès le 1er passage dans la matrice :

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

Function calculmatriceEriic(x As Range) Dim i As Long 'pour parcourir les lignes de la matrice Dim j As Long 'pour parcourir les colonnes de la matrice Dim n As Single 'taille de la matrice Dim matrice() As Double   rot = Array(2, 2, 2) 'Tableau à une dimension dont le 1er indice est 0, on aura donc 0, 1, 2 => rot(0) -> 2 - rot(1) -> 2 - rot(2) -> 2 'Si l'indice du tableau matrice commence à 1 => i = 1 => on aura alors rot(i-1) pour obtenir la 1è valeur du tableau rot (i-1=0) et ainsi de suite   n = Application.CountA(x) - 1 ReDim matrice(1 To n, 1 To n) For i = 1 To n For j = 1 To n If i = 1 Then matrice(i, j) = rot(j - 1) ElseIf i = j Then matrice(i, j) = 2 * (x(i) + x(i + 1)) ElseIf i > j And i - j = 1 Then matrice(i, j) = x(i) ElseIf j > i And j - i = 1 Then matrice(i, j) = x(j) End If Next Next calculmatriceEriic = matrice 'valeur à changer pour obtenir toute les valeurs de la matrice End Function

---

le 2ème code remplace les valeurs de la ligne 1 de matrice :

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

Function calculmatriceEriic2(x As Range) Dim i As Long 'pour parcourir les lignes de la matrice Dim j As Long 'pour parcourir les colonnes de la matrice Dim n As Single 'taille de la matrice Dim matrice() As Double   rot = Array(2, 2, 2) 'Tableau à une dimension dont le 1er indice est 0, on aura donc 0, 1, 2 => rot(0) -> 2 - rot(1) -> 2 - rot(2) -> 2 'Si l'indice du tableau matrice commence à 1 => i = 1 => on aura alors rot(i-1) pour obtenir la 1è valeur du tableau rot (i-1=0) et ainsi de suite   n = Application.CountA(x) - 1 ReDim matrice(1 To n, 1 To n) For i = 1 To n For j = 1 To n If i = j Then matrice(i, j) = 2 * (x(i) + x(i + 1)) ElseIf i > j And i - j = 1 Then matrice(i, j) = x(i) ElseIf j > i And j - i = 1 Then matrice(i, j) = x(j) End If Next Next   For j = 1 To UBound(matrice, 2) matrice(1, j) = rot(j - 1) Next   calculmatriceEriic2 = matrice 'valeur à changer pour obtenir toute les valeurs de la matrice End Function

---

Edit : ajout titre

Merci bcp RYU decidement jai du chemin a faire

bonsoir RYU

Franchement merci j'étais entrain de regarder le probleme de laminedu63 mais merci quand même.
Moi je vais aller faire dodo je commence a m'endormi devant le clavier.