Discussion :

[Adrien0634]

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 :

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
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,

[rjamin]

Bonjour,

Si la deuxième partie de la procédure ne s'exécute pas il y a un raison.

En plaçant un point d'arrêt ou une instruction Stop après le Loop de la première boucle l'exécution va s'arrêter en continuant l'exécution Pas à Pas en appuyant sur F8 chaque ligne de la procédure sera exécutée à chaque pression sur F8 cela vous permettra de voir ce qui se trouve dans les variables à ce moment là et ainsi comprendre pourquoi ça ne fonctionne pas comme vous voulez.