PBs enchainement Macros do while
Bonjour à tous,
Je suis débutant en VBA tout comme nouveau dans ce forum. Cependant, j'aurais grandement besoin de votre aide pour développer une macro.
J'ai un fichier Excel extrait d un sharepoint ou toutes les informations sont contenues dans la colonne A. J essaye de mettre au point une macro qui sépare un groupe de cellule appartenant a une même partie en l'envoyant dans une autre colonne, afin de mettre le tableau en forme. J'ai besoin que cela soit variable car dans une même partie, il peut y avoir 10 lignes comme il peut n'y en avoir que 2. Exemple :
Scope
Cellule1
Cellule2
Cellule3
Status
Cellule1
Cellule2
Sachant qu'il pourrait très bien y avoir 10 cellules dans Scope et 5 dans Status.
J'ai trouve le code suivant (qui ne marche pas bien sur):
---
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
| Sub Status()
Dim i As Integer
Dim status As String
Range("A1").Select
status = Range(Selection, Selection.End(xlDown)).Rows.Count
i = 1
Do While i < status
If UCase(Cells(i, 1)) = "STATUS" Then
Range(Cells(1, 1), Cells(i - 1, 1)).Cut
Range("F1").Select
ActiveSheet.Paste
Cells(i, 1).FormulaR1C1 = "Statuss" (je change de nom pour que cela ne tourne pas en boucle)
i = i - 1
End If
i = i + 1
Loop
Dim o As Integer
Dim scope As String
Range(i+1).Select
scope = Range(Selection, Selection.End(xlDown)).Rows.Count
o = i+1
Do While o < scope
If UCase(Cells(o, 1)) = "Scope" Then
Range(Cells(i+1, 1), Cells(o - 1, 1)).Cut
Range(i+1).Select
ActiveSheet.Paste
Cells(o, 1).FormulaR1C1 = "Scopee"
o = o - 1
End If
o = o + 1
Loop
End Sub |
---
La première macro fonctionne, mais la seconde ne s'enchaine pas. J'aimerais que la seconde macro commence a la ligne suivante ou la précédente s'achève. Comment faire?
Je remercie 10.000 ceux ou celui qui m'aideront.
Merci d'avance,
Cordialement,
