Transposition avec macro ?
Bonjour à tous, voici mon code.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Sub sélectionner_des_lettres_dans_colonne_C()
Dim i As Long, j As Long, n As Long, oList
oList = Array("D") ' Liste des lettres à sélectionner.
j = 325
For n = 0 To UBound(oList)
For i = 1 To 200
If Sheets("passage").Cells(i, 6).Value = oList(n) Then
j = j + 1
Sheets("Feuil2").Range(Sheets("Feuil2").Cells(j, 1), Sheets("Feuil2").Cells(j, 10)).Value = _
Sheets("passage").Range(Sheets("passage").Cells(i, 1), Sheets("passage").Cells(i, 10)).Value
Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End If
Next i
Next n
End Sub |
Il fonctionne pour ce que je veux en faire mais j'ai un soucis.
Il me copie bien les lignes désirées, cette macro sera utilisée chaque jours et donc j'ai constaté qu'en changeant la date qui se trouve à la fin de chaque ligne il m'efface la date précédemment collée. Je voudrais donc que quand la date est différente qu'il me copie les lignes en dessous des autres. Sachant que la date est sous format (standard) 03/10 et en colonne 10.
