[XL-2010] Sélection valeur de cellule et agrégation

1 pièce(s) jointe(s)

Sélection valeur de cellule et agrégation

Bonjour à tous,

J'ai un petit blocage dans l'édition d'une macro excel.

Extrait de mon fichier Excel:
Pièce jointe 290952

Je souhaiterais insérer une colonne et y ajouter le numéro de journal et le libellé (encadré en rouge).

Voici l'ébauche de code:

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
39
Sub testsage()
'
' testsage Macro
 
 
    'Etape 7
 
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight
    DLigne = Range("A1000000").End(xlUp).Row + 10
    GL = Range("A9:R" & DLigne)
 
Dim U As Range
 
    For i = 1 To UBound(GL)
 
    If GL(i, 1) > 915011101 Then
    Compte2 = GL(i, 1) & " - " & GL(i, 4)
    GoTo SUITE
    End If
 
     = Compte2
       ' Select Case i
         '   Case Is > 915011101
          '      If U Is Nothing Then
           '         Set U = i
          '          Else
          '          Set U = Union(U, i)
          '      End If
       ' End Select
 
  ' Next
    'U.Select
 
SUITE:
    Next i
 
 
End Sub

Merci pour toutes les propositions de façon de faire (algorithimique) et/ou de code!!!

En supposant que la cellule en haut à gauche de ton image soit A9.

Code:

1
2
3
4
5
Dim Lig As Long
Columns(4).Insert
For Lig = 9 To Cells(Rows.Count, 2).End(xlUp).Row
    If IsNumeric(Cells(Lig, 2).Value) Then Cells(Lig, 4).Value = CStr(Cells(Lig, 2).Value) & " - " & Cells(lig,5)
Next Lig

Mille mercis

Un conseil pour l'avenir : évite au maximum les "Selection" et surtout jamais JAMAIS de GoTo.