Bonjour à tous,
J'ai un fichier excel contenant 2 colonnes : l'une contenant un numéro d'OF (colonne A) et l'autre un temps (colonne B)
Je voudrais copier/coller ces deux colonnes sur les colonnes D:E par exemple, mais pas tel quel.
En fait, je souhaiterai n'avoir que des numéros d'OF uniques. Actuellement, j'ai dans la colonne A plusieurs numéros d'OF. Et dans le même temps, je voudrais sommer les temps de ces OF.
Exemple : OF 10 temps 2 ; OF 10 temps 3 ; OF 11 temps 4.
Ca donnerait après copier/coller : OF 10 temps 5; OF 11 temps 4
Ci-joint, mon début de programme
Merci d'avance pour vos réponses
Sub somme()
Dim plage, cell As Range
Dim i, j As Integer
i = 2
j = i + 1
Set plage = Range("A" & Sheets(1).[A65536].End(xlUp).Row + 1)
For Each Cells In plage
If Cells(j, 1).Value = "" Then
Else
If Cells(i, 1) <> Cells(j, 1) Then
Cells(i, 1).Copy Range("D" & Sheets(1).[D65536].End(xlUp).Row + 1)
Cells(i, 1).Copy Range("E" & Sheets(1).[E65536].End(xlUp).Row + 1)
Else
End Sub
J'ai un fichier excel contenant 2 colonnes : l'une contenant un numéro d'OF (colonne A) et l'autre un temps (colonne B)
Je voudrais copier/coller ces deux colonnes sur les colonnes D:E par exemple, mais pas tel quel.
En fait, je souhaiterai n'avoir que des numéros d'OF uniques. Actuellement, j'ai dans la colonne A plusieurs numéros d'OF. Et dans le même temps, je voudrais sommer les temps de ces OF.
Exemple : OF 10 temps 2 ; OF 10 temps 3 ; OF 11 temps 4.
Ca donnerait après copier/coller : OF 10 temps 5; OF 11 temps 4
Ci-joint, mon début de programme
Merci d'avance pour vos réponses
Sub somme()
Dim plage, cell As Range
Dim i, j As Integer
i = 2
j = i + 1
Set plage = Range("A" & Sheets(1).[A65536].End(xlUp).Row + 1)
For Each Cells In plage
If Cells(j, 1).Value = "" Then
Else
If Cells(i, 1) <> Cells(j, 1) Then
Cells(i, 1).Copy Range("D" & Sheets(1).[D65536].End(xlUp).Row + 1)
Cells(i, 1).Copy Range("E" & Sheets(1).[E65536].End(xlUp).Row + 1)
Else
End Sub