Bonjour
je suis nouvelle sur ce forum ainsi qu'en VBA j'ai une petit souci et ça sera trop aimable de votre part si vous pourriez m'aider:
voilà , j'ai fait une macro en vba qui me recherche une valeur dans ma feuille de calcul. En trouvant cette valeur j'aligne la ligne à laquelle elle appartient et toutes les lignes qui suivent jusqu'à ce qu'il retrouve cette valeur de nouveau, là il fait la mème opération pour m'afficher les lignes qui suivent sur une seule ligne et ainsi de suite jusqu'à la fin de ma feuille,
voilà ce que j'ai fais:

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
Sub postraitement()
Dim ligne As Long, lig As Long
With ActiveSheet
derlig = .Range("A65536").End(3).Row
For ligne = 1 To derlig Step 1
 
FirstCar = Left(Range("A" & ligne).Value, 1)
 
If FirstCar = "I" Or FirstCar = "M" Or FirstCar = "E" Then
 
PMField = Mid(Range("A" & ligne).Value, 17, 8)
 'jusq'ici j'ai trouver ma valeur et je l'ai ranger dans PMField mnt il faut  
 
'copier la 1ère ligne
'tant que ligne ++ ne contient pas PMfield, copier
'sinon retourner au début du for et grouper les lignes qui suivent sur une autre ligne
 
 
End If
Next ligne
End With
End Sub
J'aimerais que mon résultat soit lu sur une autre feuille de mon classeur.
Je vous remercie d'avance.