1 pièce(s) jointe(s)
découper un tableau de donnée à vague de référence variable
Bonjour chers fourimistes ,
Je suis entrain de dévlopper un MACRO d'élaboration de donnée je suis arrivé à la phase finale de mon projet, qui consiste à créer à base d'un grand tabelau de donnée de petit tableaux dont la taille dépend du nombre de référence *_* ..
j'ai commencé par ce petit code la ou j'ai mis un draft des varriable que j'en vais avoir recours... j'ai pas le concepte pour en finaliser .. :(
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 découper()
Dim j, i, nb, k, cr As Variant
Dim nblig, nball As Variant
Dim head As Object
head = Range(Cells(1, 1), Cells(3, 8))
nblig = TextBox1.Value
nball = Sheets(1).Range("A14").End(xlDown).Row
If nblig <= 5 Then
For i = 3 To Sheets(2).Range("C1").End(xlDown).Row
Sheets(2).Range("K" & i).Resize(3, 9) = head
i = i + 9
Next i
'Au secouuuuuuuuuuuuuuuuuuuuuuuuuuurs ... je me suis bloqué Iciii :(:(:(:(:(
End If
End If
End Sub
' (pas de select ^^ ) |
Pour résumer .... le fichier joint contient ce que j'ai ... et ce que je veux avoir ...
je suis là pour toute éventuelle question :)
merci beacoup d'avance pour votre aide .. !!
