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 ..![]()
Pour résumer .... le fichier joint contient ce que j'ai ... et ce que je veux avoir ...
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 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 ^^ )
je suis là pour toute éventuelle question
merci beacoup d'avance pour votre aide .. !!
Partager