J'ai 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 (E.g. Scope) 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 :
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?