insertion lignes aprés comptage doublons en colonne

[alf43]

rebonjour le forum,

j'ai besoin d'aide : je désire insérer des lignes dans un tableau en fonction du nombre de doublons compter dans une colonne.
si qq1 peut essayer de me comprendre avec info dans fichier joint
merci
😕

 

[Excel-lent]

Re : insertion lignes aprés comptage doublons en colonne

Bonsoir Alf43,

Pourquoi ne demande tu pas à la macro de faire le tri?

Si tu le veux, voici un exemple de code :

    Range("A3:B3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("A3") _
        , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal

Dans ta macro, je n'ai pas trouvé où tu insérais tes lignes!
Voici un exemple de code :

Dim NbLigneRajoute as byte 'variable indiquant combien il faut rajouter de ligne 1 - 2 ou 3 
Dim OuRajoute as Integer    'variable contenant le numéro de la première ligne à partir d'où insérer la(es) ligne(s)

   Rows(OuRajoute & ":" & OuRajoute + NbLigneRajoute - 1 ).Select
   Selection.Insert Shift:=xlDown

 

[alf43]

Re : insertion lignes aprés comptage doublons en colonne

slt excel lent ,

pour le tri j'ai déjà mis en forme dans mon fichier en dévelloppement:

Worksheets(x).Select
Rows("3:200").Select
Selection.Sort Key1:=Range("C3"), Order1:=xlAscending, Key2:=Range("B3") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom

par contre pour l'insertion je nage. j'essaie de jumeler un code de comptage de doublons avec un code Insert Shift:=xlDown mais je n'arrive pas à lui donner la variable calculée pour le nb de ligne.

seul pour un nbre et encore je plante :
nb = Application.WorksheetFunction.CountIf(Range("D1😀65536"), "6")

For i = Range("D65536").End(xlUp).Row To 2 Step -(4 - nb)

If Cells(i - 1, 4) <> Cells(i, 4) Then
ActiveSheet.Rows(i).Insert shift:=xlDown
End If
Next i

la logique de ton code est idem à la mienne en expliquant à la macro de boucler sur tous les doublons et de comparer avec mon nb de ligne max=4

en fait le but suivant est d'associer un publipost word avec ces données car je ne suis pas arrivé à créer des poules s'aggrémentant automatiquement en fonction du nombre nécessaire et se remplissant correctemnt en fonction du numéro de poule.

comme tu vois je m'amuse comme un fou !! loll🙂🙂🙂
donc je vais essayer d'utiliser ton code d'adresse ...durdur!!

 

[alf43]

Re : insertion lignes aprés comptage doublons en colonne

bonjour le forum

 

[skoobi]

Re : insertion lignes aprés comptage doublons en colonne

Bonjour alf43, Excel-lent,


le "résultat désiré" ne correspond pas à ce que tu dis:

3- c'est là que je butte : je voudrais insérer un ligne vierge si le nombre de doublons est inférieur à 4 de la sorte : nb doublons=3 alors j'insère une ligne

tu parles bien de doublons de poids?
ou alors j'ai rien compris 😕

 

[alf43]

Re : insertion lignes aprés comptage doublons en colonne

slt skoobi !!
non je m'exprime peut etre mal.
il s'agit de doublons dans la colonne des N° de poule
en fait la macro me donne un tri puis me classe les poids des poules conditionnée avec 4 valeurs au max puis change le N°.
pour réaliser mon publipostage ensuite j'ai fait au plus "simple" pour remplir, il cherchera les 4 premiers noms et ainsi de suite donc je dois décaler mes cellules pour qu'il trouve toujours 4 valeurs même nulle avec un même N° de poule .
oupsss! dur à expliquer!!

 

[skoobi]

Re : insertion lignes aprés comptage doublons en colonne

Re,

Je te propose un autre code:

Sub test()
Dim ancpoids As Long, poids As Long, poule As Long, nbpoule As Long
poids = Range("A34").Value
poule = 1
nbpoule = 0
poids = Range("A3").Value
nouvpoids = Range("A3").Value
lig = 3
Do Until Cells(lig, 1).Value = ""
    If lig > 3 Then nouvpoids = Cells(lig, 1).Value
    If nouvpoids <= 1.1 * poids And nbpoule < 4 Then
        Cells(lig, 1).Offset(0, 1).Value = poule
        nbpoule = nbpoule + 1
        lig = lig + 1
    ElseIf nbpoule < 4 Then
        For I = 1 To 4 - nbpoule
            Cells(lig, 1).EntireRow.Insert
            Cells(lig, 1).Offset(0, 1).Value = poule
        Next
        lig = lig + 4 - nbpoule
        poids = Cells(lig, 1).Value
        poule = poule + 1
        nbpoule = 0
    Else
        poids = Cells(lig, 1).Value
        poule = poule + 1
        Cells(lig, 1).Offset(0, 1).Value = poule
        nbpoule = 1
        lig = lig + 1
    End If
Loop
End Sub

Bon test 🙂

 

[alf43]

Re : insertion lignes aprés comptage doublons en colonne

skoobi,
20/20 pour toi !!!
tu n'imagine pas l'épine que tu m'enlèves!!!
les premiers tests semblent ok
il me reste à valider avec plus de données.
je te remercie

je nageais avec des rows et xldown. je réussissais seulement a inserer une ligne et jamais une seconde si nécessaire.
enfin je vais pouvoir enchainer
au plaisir de t'avoir.
alf