imbriquer des for each

Version imprimable

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:

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

valeurs

Bonjour Delphine,

En adaptant, car je n'ai pas repris l'ensemble de ton code,

Code:

1
2
3
4
5
6
7
Public Sub essai()
Lastlig = 50
For Each c In Range("C2:C" & Lastlig).SpecialCells(xlCellTypeVisible)
         c.Value = UCase(c.Offset(0, -2).Value) & UCase(c.Offset(0, -2).Value)
Next c
 
End Sub

09/02/2011, 21h23
delphine1987

merci bcp pour ta réponse
mais mon plus gros problème est de mettre plusieurs code dans un.
Je ne sais pas vraiment ou je dois le mettre dans mon code.

Merci pour ta réponse
Bonne soirée

concaténation

Bonjour le Forum, Bonjour Delphine,

Si ta concaténation concerne la 3ème colonne de ta feuille "datas", alors tu peux insérer dans ta boucle

Code:

Sh.Cells(NewLig, 3).Value = UCase(Sh.Cells(NewLig, 1).Value) & UCase(Sh.Cells(NewLig, 1).Value)

ce qui dans son contexte donne
Code:

1 2 3 4 5 6 7 8 ... Sh.Cells(NewLig, 1).Value = .Cells(c.Row, 7).Value Sh.Cells(NewLig, 2).Value = .Cells(c.Row, 8).Value Sh.Cells(NewLig, 3).Value = UCase(Sh.Cells(NewLig, 1).Value) & UCase(Sh.Cells(NewLig, 1).Value) Sh.Cells(NewLig, 5).Value = .Cells(c.Row, 10).Value ...

10/02/2011, 11h03
delphine1987

bonjour à tous, ça fonctionne super bien

j'ai juste changer dans le newlig n°3:

Code:

UCase(Sh.Cells(NewLig, 1).Value)

j'ai modifier le 1 par 2 (car je veux concaténer la colonne A et B

Encore merci!!

Bonne journée