Extraire des valeurs d'une matrice vers une autre [Résolu]
fluffiou
- Messages postés
- 4
- Date d'inscription
- dimanche 3 avril 2016
- Dernière intervention
- 4 avril 2016
- Messages postés
- 4
- Date d'inscription
- dimanche 3 avril 2016
- Dernière intervention
- 4 avril 2016
A voir également:
- Vba matrice
- Dateadd vba - Meilleures réponses
- Matrice word - Meilleures réponses
- Extraire des valeurs de l'url - Codes sources - Javascript (Divers)
- Extraire des valeurs d'un tableau ✓ - Forum - VB.NET
- Copier coller valeurs d'une feuille vers une autre feuille à partir de la premiè ✓ - Forum - Visual Basic 6
- Extraire une valeur décimale et l'utiliser ensuite pour calculer une valeur ✓ - Forum - C++ & C++ .NET
- Extraire une valeur dans xml ✓ - Forum - PHP
5 réponses
- Messages postés
- 4
- Date d'inscription
- dimanche 3 avril 2016
- Dernière intervention
- 4 avril 2016
ucfoutu,
C'est ma première expérience avec une matrice. Je m'excuse de ne pas réussir à m'exprimer de façon très claire.
On me demande de faire une matrice/array. Comme tu peux t'en rendre compte, j'ai essayé de le remplir avec la façon que je connais, ce qui visiblement ne convient pas.
J'avais comme premières lignes à compléter :
J'ai aussi une autre ligne pour pouvoir finaliser
En fait à partir de cette macro, je dois obtenir au final une seule colonne qui correspond aux dates des derniers jours des mois précédents (par rapport aux dates de la première colonne) qui sont supérieurs à 2016, qui sont dans la seconde colonne.
J'espère avoir été claire... Je crois que je confonds tout ... !
C'est ma première expérience avec une matrice. Je m'excuse de ne pas réussir à m'exprimer de façon très claire.
On me demande de faire une matrice/array. Comme tu peux t'en rendre compte, j'ai essayé de le remplir avec la façon que je connais, ce qui visiblement ne convient pas.
J'avais comme premières lignes à compléter :
Sub TestArray()
Dim Array_Temp() As Variant
End Sub
J'ai aussi une autre ligne pour pouvoir finaliser
Dim Array_Final() As Variant
En fait à partir de cette macro, je dois obtenir au final une seule colonne qui correspond aux dates des derniers jours des mois précédents (par rapport aux dates de la première colonne) qui sont supérieurs à 2016, qui sont dans la seconde colonne.
J'espère avoir été claire... Je crois que je confonds tout ... !
- Messages postés
- 4
- Date d'inscription
- dimanche 3 avril 2016
- Dernière intervention
- 4 avril 2016
J'ai changé quelques infos dans ma macro.
est ce que cela correspond mieux au language de la matrice ? Ou il y a t'il d'autres modifications à faire ?
de plus je reste bloquée à la phase où je dois extraire (ce qui correspond pour le moment à ma dernière boucle for) pour redimensionner la matrice
Sub TestArray()
Dim Array_Temp(1 To 1000, 1 To 2) As Variant
Dim i As Integer
Dim iets As Date
Do Until i = UBound(Array_Temp)
i = i + 1
Array_Temp(i, 1) = DateAdd("d", i, "04/02/2016")
Cells(i, 1) = Array_Temp(i, 1)
Loop
For i = 1 To UBound(Array_Temp)
iets = Cells(i, 1)
Array_Temp(i, 2) = DateAdd("d", -1, DateSerial(Year(iets), Month(iets), 1))
Cells(i, 2) = Array_Temp(i, 2)
Next i
For i = 1 To UBound(Array_Temp)
If Array_Temp(i, 2) > #12/31/2016# Then
Cells(i, 3) = Array_Temp(i, 2)
End If
Next
'Dim Array_Final() As Variant
End Sub
est ce que cela correspond mieux au language de la matrice ? Ou il y a t'il d'autres modifications à faire ?
de plus je reste bloquée à la phase où je dois extraire (ce qui correspond pour le moment à ma dernière boucle for) pour redimensionner la matrice
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
1) Quel besoin de passer par des matrices ? Je n'en vois aucun
2) tout ce bazar n'est finalement rien d'autre que ceci :
Et la preuve ? ===>>
EDIT : on se demande même à quoi peut bien servir ton remplissage de la colonne C !
Nul besoin de passer par un tel tremplin ===>>>
suffit !
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
2) tout ce bazar n'est finalement rien d'autre que ceci :
For i = 1 To 1000
la_date = DateAdd("d", i, "04/02/2016")
Cells(i, 1) = la_date
Cells(i, 2) = DateSerial(Year(la_date), Month(la_date), 0)
If Year(Cells(i, 2)) > 2016 Then Cells(i, 3) = Cells(i, 2)
Next
array_final = Columns(3).SpecialCells(xlCellTypeConstants)
Et la preuve ? ===>>
For i = 1 To UBound(array_final)
MsgBox array_final(i, 1)
Next
EDIT : on se demande même à quoi peut bien servir ton remplissage de la colonne C !
Nul besoin de passer par un tel tremplin ===>>>
Dim trouve As Long
For i = 1 To 1000
la_date = DateAdd("d", i, "04/02/2016")
Cells(i, 1) = la_date
Cells(i, 2) = DateSerial(Year(la_date), Month(la_date), 0)
If Year(Cells(i, 2)) > 2016 And trouve = 0 Then trouve = i
Next
array_final = Range("B" & trouve & ":" & "B1000")
suffit !
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
- Messages postés
- 4
- Date d'inscription
- dimanche 3 avril 2016
- Dernière intervention
- 4 avril 2016
ucfoutu,
Alors concernant ta question : "1) Quel besoin de passer par des matrices ? Je n'en vois aucun " : ça m'est imposé !! tout simplement, tout comme faire la première boucle Until ainsi que la function qui m'était déjà donné.
Sinon je suis passée par la colonne C seulement pour trouver les valeurs que je devais extraire.
Merci pour ton edit, j'ai pu améliorer ma macro !
Je te remercie pour ta contribution.
Alors concernant ta question : "1) Quel besoin de passer par des matrices ? Je n'en vois aucun " : ça m'est imposé !! tout simplement, tout comme faire la première boucle Until ainsi que la function qui m'était déjà donné.
Sinon je suis passée par la colonne C seulement pour trouver les valeurs que je devais extraire.
Merci pour ton edit, j'ai pu améliorer ma macro !
Je te remercie pour ta contribution.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.