Macro doublons excel

  • Auteur de la discussion smile67
  • Date de début

smile67

Nouveau membre
bonjour,

je souhaiterai créer une macro sur un fichier excel. J'ai
dans la colonne B de mon ficher des doublons. La
macro doit détecter les doublons dans la colonne B. En première ligne
de chaque doublon détecté insérer une ligne vide, copier le doublon
et le coller sur la cellule de la ligne nouvellement insérer dans la colonne B.

J'ai ça:

Col A----------Col B

1 -------------- AA
2 -------------- AA
3 -------------- AA
4 -------------- BB
5 -------------- CC
6 -------------- CC
7 -------------- CC
8 -------------- DD
9 -------------- DD


Je veux obtenir :
Col A ---------Col B
-------------- AA
1-------------- AA
2 -------------- AA
3 -------------- AA
4 -------------- BB
-------------- CC
5 -------------- CC
6 -------------- CC
7 -------------- CC
-------------- DD
8 -------------- DD
9 -------------- DD

Merci de votre aide.
 

smile67

Nouveau membre
Bonjour,

J'ai reçu de l'aide par rapport à ce point, le problème vient d'être résolu. Du coup je recherche la solution à un autre problème. S'il vous plait, je souhaiterai affecter aux doublons de la colonne C un code générique dans la colonne B. Ce code doit apparaitre également dans la colonne A. C'est un code qui doit s'incrémenter.(ex P1, P2,P3 etc..)

J'ai actuellement ça:
Col A ---------------ColB----------------------------------Col C
-------------------------------------------------------------------
1-------------------------------------------------------------- AA
2 ------------------------------------------------------------- AA
3 ------------------------------------------------------------- AA
4 ------------------------------------------------------------- BB
--------------------------------------------------------------- CC
5 ------------------------------------------------------------- CC
6 ------------------------------------------------------------- CC
7 ------------------------------------------------------------- CC
---------------------------------------------------------------- DD
8 ------------------------------------------------------------- DD
9 ------------------------------------------------------------- DD


Je voudrais obtenir:
Col A --------------ColB-----------------------------------Col C
P1----------------------------------------------------------------
1---------------------P1------------------------------------- AA
2 --------------------P1------------------------------------- AA
3 --------------------P1------------------------------------- AA
4 ------------------------------------------------------------- BB
P2------------------------------------------------------------ CC
5 --------------------P2------------------------------------- CC
6 --------------------P2------------------------------------- CC
7 --------------------P2------------------------------------- CC
P3------------------------------------------------------------ DD
8 --------------------P3------------------------------------- DD
9 --------------------P3------------------------------------- DD

Merci d'avance.
 

zeb

Modérateur
Quelque est la solution au premier point ?
l'intérêt de connaître cette solution est double :
1° Le forum reste cohérent : Question+Réponse
2° On peut rebondir sur la solution pour résoudre le second problème.
 

smile67

Nouveau membre
Voici la solution :

Sub ajDbl()
Dim i As Long
For i = [B65536].End(xlUp).Row - 2 To 1 Step -1
If Cells(i, 2) <> Cells(i + 1, 2) And Cells(i + 1, 2) = Cells(i + 2, 2) Then
Rows(i + 1).Insert Shift:=xlDown
Cells(i + 1, 2) = Cells(i + 2, 2)
End If
Next i
If Cells(1, 2) = Cells(2, 2) Then
Rows(1).Insert Shift:=xlDown
Cells(1, 2) = Cells(2, 2)
End If
End Sub

smile67
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 088
Membres
1 586 286
Dernier membre
petitangebleu1977
Partager cette page
Haut