bonjour,
Je souhaite enrichir mon code en:

mettant les deux premières colonnes en majuscules et concaténer dans la colonne c (sans espace). Mais je ne parviens pas à faire ça à partir de mon code de départ (je suis débutante )

Voici mon code, merci pour votre aide
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
Sub Reporter()
Dim Sh As Worksheet
 
Dim LastLig As Long, NewLig As Long
Dim c As Range
Dim Valeur As String
 
 
Valeur = InputBox("Entrée période", "Choix de la période")
If Valeur <> "" Then
Application.ScreenUpdating = False
With Workbooks("2010 STD Activities status.xls").Sheets("2010")
   .AutoFilterMode = False
   LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
   With .Range("A4:X" & LastLig)
      .AutoFilter field:=17, Criteria1:=Valeur
      .AutoFilter field:=24, Criteria1:=">0"
   End With
   If .Range("A4:A" & LastLig).SpecialCells(xlCellTypeVisible).Count > 1 Then
      Set Sh = Worksheets("datas")
      NewLig = Sh.Cells(Sh.Rows.Count, "A").End(xlUp).Row + 3
      For Each c In .Range("A5:A" & LastLig).SpecialCells(xlCellTypeVisible)
         Sh.Cells(NewLig, 1).Value = .Cells(c.Row, 7).Value
         Sh.Cells(NewLig, 2).Value = .Cells(c.Row, 8).Value
         Sh.Cells(NewLig, 5).Value = .Cells(c.Row, 10).Value
         Sh.Cells(NewLig, 7).Value = .Cells(c.Row, 12).Value
         Sh.Cells(NewLig, 15).Value = .Cells(c.Row, 17).Value
         Sh.Cells(NewLig, 11).Value = .Cells(c.Row, 24).Value
         NewLig = NewLig + 1
 
 
      Next c
      Set Sh = Nothing
      .AutoFilterMode = False
   End If
End With
End If
End Sub