Repérer les doublons d'une même ligne et les ventiler
Bonjour à tous,
J'aimerais dans une plage donnée, trouver toutes les lignes contenant des doublons de X, ensuite insérer autant de ligne en dessous que de doublon et distribuer ces doublons sur chacune de ces lignes. Pour au final obtenir une seule valeur par ligne.
La valeur recherchée est toujours X.
Une image vaut mieux qu'un long discours...
Merci d'avance pour votre aide.
Bonjour bobleponge le forum
un petit fichier en PJ et on te fera cela
a+
Papou
Le fichier
C'est assez bluffant gmb !
Je coince depuis un moment...
Pourrait on borner la plage de A7 à CY520 dans ta macro ?
Sub Ventiler()
Application.ScreenUpdating = False
derln = Range("A" & Rows.Count).End(xlUp).Row
For ln = derln To 4 Step -1
nb = WorksheetFunction.CountIf(Rows(ln & ":" & ln), "X")
If nb > 1 Then
dercol = Cells(ln, Columns.Count).End(xlToLeft).Column
Rows(ln + 1 & ":" & ln + 1 + nb - 2).Insert
num = 1
For j = 2 To dercol
If Cells(ln, j) = "X" Then
If num > 1 Then
Cells(ln + num - 1, 1) = Cells(ln, 1)
Cells(ln + num - 1, j) = Cells(ln, j)
Cells(ln, j) = ""
Else
End If
num = num + 1
End If
Next j
End If
Next ln
End Sub
Un grand merci à gmb
Pourquoi pas ?Pourrait on borner la plage de A7 à CY520 dans ta macro ?
Nouvelle version :
Bye !
Encore merci gmb !