Discussion :

[Damss]

Bonjour, je souhaite convertir un tableau de données, or je ne connais pas la taille de ce tableau :

voila le code que j'ai écrit...

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
Sub dams()
 
Dim nbrelignesX, nbrelignesY, nbremaillesX, nbremaillesY, nombrelignescolonnes, tampon2, tampon3 As Double
 
nbremaillesX = Sheets("charm").Cells(1, 8)
nbremaillesY = Sheets("charm").Cells(2, 8)
 
nbrelignesX = nbremaillesX + 1
nbrelignesY = nbremaillesY + 1
 
nbrelignescolonnes = nbremaillesX * nbremaillesY
 
For i = 1 To nbrelignescolonnes - 1
 
Cells(1, i).Select
 Selection.TextToColumns Destination:=Range("Cells(1, i)"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(2, 1), Array(4, 1)), TrailingMinusNumbers:= _
        True
 
Next i
End Sub"

En fait mes problèmes apparaissent quand j'affecte la conversion des données à la celullie (1,i), il ne la reconnait pas et m'affiche une erreur 1004.

que puis-je faire ?

merci d'avance !

[zandru]

que puis je faire ?

mettre les balises #CODE# ! (merci jacques_jean)

Et modifier :

Code :

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

Range("Cells(1, i)"),

en :

Code :

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

Cells(1, i),

a première vue

[Invité]

Bonjour,

Avec "Range" vous pouvez utiliser :

Code :

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

1
2
3
4
5
-Range("H1")
 
ou
 
-Range(Cells(1, 8), cells(1, 8))

[Damss]

Merci Zandru ca marche !

sinon en poursuivant mes essais j'en arrive à

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
Sub dams()
 
Dim nbrelignesX As Double, nbrelignesY As Double, nbremaillesX As Double, nbremaillesY As Double, nombrelignescolonnes As Double, tampon1 As Double, tampon2 As Double
 
nbremaillesX = Sheets("charm1").Cells(1, 8)
nbremaillesY = Sheets("charm1").Cells(2, 8)
 
nbrelignesX = nbremaillesX + 1
nbrelignesY = nbremaillesY + 1
 
nbrelignescolonnes = nbremaillesX * nbremaillesY
 
For i = 1 To nbrelignescolonnes - 1
 
Cells(i, 1).TextToColumns Destination:=Cells(i, 1), DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(2, 1), Array(4, 1)), TrailingMinusNumbers:=True
 
Next i
 
Cells(nbrelignescolonnes, 1).TextToColumns Destination:=Cells(nbrelignescolonnes, 1), DataType:=xlFixedWidth _
        , FieldInfo:=Array(Array(0, 1), Array(2, 1), Array(5, 1)), TrailingMinusNumbers _
        :=True
 
 
For i = 1 To nbrelignescolonnes
tampon1 = Sheets("charm1").Cells(i, 1).Value
tampon2 = Sheets("charm1").Cells(i, 2).Value
 
Cells(i, 3).Value.Copy
 
 
Sheets("charm1").Cells(10 + tampon1, 10 + tampon2).Paste
 
Next i
 
End Sub

au niveau de cells(i,3).Value.copy il me déclare une erreur de type 424 ? pourquoi un objet est requis, je ne comprends pas ?

merci d'avance .

[zandru]

suis ce LIEN

et remplace :

Cells(i, 3).Value.Copy
Sheets("charm1").Cells(10 + tampon1, 10 + tampon2).Paste

par :

Code :

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

Sheets("charm1").Cells(10 + tampon1, 10 + tampon2) = Cells(i, 3)