Discussion :

[lackam]

Bonjourr,

Je sais que ce problème a été énoncé de nombreuses fois mais j'ai un petit soucis dans mon code.:'(
Alors voila, j'ai une série de données dans une colonne et je souhaiterais redimensionner un tableau dynamique dans une autre feuille à partir de ces données.

Je m'explique:
j'ai ma colonne B avec mes données (sachant qu'il y a des cellules vides dans ma colonne):

dilatos
"cellulle vide"
pompe
dilatos
chaussures

A partir de la, Et je souhaiterais que mon code repère 4 valeurs uniques et par conséquent dimensionne un tableau de 2 dimensions dynamiques avec 4 lignes.

Voici mon ébauche de code:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
 
Option Explicit
Option Base 1
Private Sub commande_fin()
 
Dim commande() As Variant
ReDim Preserve commande(1, 2)
Dim i As Integer, j As Integer, t As Integer
Dim endcell As Range
Dim nb As Integer
 
 
 
Set endcell = Feuil3.Range("B" & Rows.Count).End(xlUp).Rows
nb = endcell.Row
 
For i = 1 To nb
    For j = 1 To nb
        If Range("B" & i).Value <> Range("B" & j) Then
            ReDim Preserve commande(i, 2)
            commande(i, 2) = Range("B" & i).Value 'erreur d'execution ici
 
        End If
    Next
Next
 
 
For t = 1 To nb
    Feuil5.Cells(17 + t, 2) = commande(t, 2)
Next
 
End Sub

Il y a une erreur d'execution que je comprends pas.... En utilisant un espion je ne comprends pas pourquoi mon code s'arrete aux deux premieres lignes de ma colonne B...

Si vous pouviez m'aider je vous en serais éternellement reconnaissant

[Invité]

Bonjour,

Lorsque vous redimensionnez une matrice avec le mot clé Preserve, seule la dernière dimension peut être modifiée : Command(I,2) ne peut pas fonctionner. Il faut inverser les dimensions et écrire Command(2,I).

Je n'ai pas regardé le reste du code.

[lackam]

Bonjour,

Lorsque vous redimensionnez une matrice avec le mot clé Preserve, seule la dernière dimension peut être modifiée : Command(I,2) ne peut pas fonctionner. Il faut inverser les dimensions et écrire Command(2,I).

Je n'ai pas regardé le reste du code.

Je souhaitais redimensionner seulement sur le nombre de lignes et non sur le nombre de colonnes.
N'est-il pas possible de faire cela?https://www.developpez.net/forums/im...s/sontfous.gif

Sinon la seule possibilité qui me vient à l'esprit serait de juxtaposer deux tableaux à une dimensions côte à côte

[Invité]

La représentation d'une colonne ou d'une ligne dans une matrice n'est qu'une vue de l'esprit... Une dimension peut donc représenter aussi bien une ligne qu'une colonne, il y a juste un petit effort intellectuel à faire.

[lackam]

J'ai modifié mon code en essayant de suivre tes indications:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Option Explicit
Option Base 1
Private Sub commande_fin()
 
Dim commande() As Variant
ReDim Preserve commande(2, 1)
Dim i As Integer, j As Integer, t As Integer
Dim endcell As Range
Dim nb As Integer
Dim endline As Integer
 
 
 
Set endcell = Feuil3.Range("B" & Rows.Count).End(xlUp).Rows 'problème ici
nb = endcell.Row
 
For i = 1 To nb
    For j = 1 To nb
        If Range("B" & i).Value <> Range("B" & j) Then
            ReDim Preserve commande(2, 1 To i)
            commande(2, i) = Range("B" & i).Value
 
        End If
    Next
Next
 
endline = UBound(commande, 2)
 
For t = 1 To endline
    Feuil5.Cells(17 + t, 2) = commande(2, t)
Next
 
 
 
 
End Sub

Rien ne s'affiche sur ma feuille.
Avec les espions et l'éxécution pas à pas détaillé, je remarque que je ne sors jamais de la boucle for.
Est-ce dû à la ligne 10 ou ma variable endrow ne prend peut-être pas le numéro de la ligne mais la variable de la cellule en B10 (qui est un string)?

Sinon je ne comprends pas

[Invité]

Peux-tu mettre un classeur exemple non confidentiel en ligne ?

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
Sub test()
With CreateObject("AdoDb.Connection")
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;"""
    ThisWorkbook.Sheets("commande").Range("A17").CopyFromRecordset .Execute("Select DISTINCT * from 
[liste_sur_chantier$B2:" & Replace(ThisWorkbook.Sheets("liste_sur_chantier").Cells(Cells.Rows.Count, "B").End(xlUp).Address, "$", "") & "] Where [composants DN diamètre (DN)et plage de mesure]<>'composants DN diamètre (DN)et plage de mesure' and [composants DN diamètre (DN)et plage de mesure] is not null")
     .Close
End With
End Sub

[lackam]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
Sub test()
With CreateObject("AdoDb.Connection")
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;"""
    ThisWorkbook.Sheets("commande").Range("A17").CopyFromRecordset .Execute("Select DISTINCT * from 
[liste_sur_chantier$B2:" & Replace(ThisWorkbook.Sheets("liste_sur_chantier").Cells(Cells.Rows.Count, "B").End(xlUp).Address, "$", "") & "] Where [composants DN diamètre (DN)et plage de mesure]<>'composants DN diamètre (DN)et plage de mesure' and [composants DN diamètre (DN)et plage de mesure] is not null")
     .Close
End With
End Sub

Merci de votre aide, je vais travailler sur les codes que vous et Eric m'ont donné