Copier/coller sous conditions

[Demanda]

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

 

[pedrag31]

Re : Copier/coller sous conditions

Bonjour Demanda, bonjour le forum,

Voir exemple dans le fichier joint...

Pour "supprimer" TOUS les doublons (Numeros d'OF) et cumuler les temps de l'OF lors de la copie vers les colonnes D et E, il faut au prealable faire un tri par ordre croissant sur le Numeros d'OF...

En esperant avoir donne une reponse convenable a ta question...

Bonne journee. 🙂