Recherche si condiition (si doublon, couper coller)

Bonjour,

J'aurais besoins d'aide concernant une macro qui en fonction d'une condition (ici doublon de numéro dans la colonne NA) me coupe l'information câble et paire et les colle dans deux nouvelle colonne (câble et paire).

Le but est d'avoir le numéro sur une seule ligne (un circuit télécom est créer entre un câble et paire et un autre câble et paire).

La ligne en doublon est ensuite supprimer.

Si le numéro est répéter plus de deux fois (triplon) , l'information câble et paire est également couper coller dans deux nouvelles colonne "câble" et "paire".

Dans le fichier Excel, et pour simplifier ma demande dans ce forum, il y a 3 onglets : 1 onglet original , dans le second onglet ce sont les déplacement que je fais à la main si doublon, dans le 3ieme onglet, je supprime les lignes en doublons (avec la fonction Excel supprimer les doublons).

Il faudrait que la macro réalise tout dans l'onglet "Abonnés câbles"

Aujourd'hui je fait ce travail à la main

Merci beaucoup pour votre aide.

Bonjour,

Tu pourrais tester la macro suivante :

Sub Abonnes()
Dim i As Long
Dim der As Long
der = Sheet1.Cells(Application.Rows.Count, "A").End(xlUp).Row
    For i = der To 3 Step -1
        If Cells(i, 1) = Cells(i - 1, 1) Then
          Range("C" & i & ":D" & i).Cut Destination:=Range("E" & i - 1)
          Rows(i & ":" & i).Delete Shift:=xlUp
        End If
    Next i
End Sub

En espèrant que cela t'aide ...