Résultats pour "gestion doublons"

2'034 résultats pour cette recherche

Bonjour,

Savez-vous pour une raison ou une autre, dans quel cas la fonctionnalité "Supprimer les doublons" ne reconnait pas de doublons alors que toutes les cellules de deux différentes lignes sont identiques ?

Merci d'avance

Bonjour,

J'ai un petit soucis au niveau de mon programme je pense, alors que je vous explique, je veux obtenir dans la colonne A les données sans doublons mais pour les doublons je veux que dans la colonne D on y ajoute la valeur de la cellule. lorsqu'il ya doublons rajouter la données du doublons de la colonne D dans la colonne D du 1er doublons et supprimer la ligne doublons.ca ca fonctionne mais ca me supprime aussi les lignes non doublons et je ne vous pas pourquoi c'est peut etre pas trés clair mais avec le fichier joint ca le sera un peu plus.

je vous remet le code aussi on sais jamais !

si vous avez une autre méthode ou que vous voyez pourquoi ca me donne pas ce que je souhaite je suis prennante !

bonne saint valentin à tous

Sub sup()

Dim dp As Integer, dp2 As Integer
'supprimer les doublons dans id et rajout dans dependtgates

                            For dp2 = 1 To Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
                              For dp = 2 To Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row - 1

                                    If Worksheets("Feuil1").Cells(dp2, 1).Value = Worksheets("Feuil1").Cells(dp, 1).Value Then

                                      dependentgates = Worksheets("Feuil1").Cells(dp2, 5).Value
                                      dependentgates = dependentgates & "," & Worksheets("Feuil1").Cells(dp, 5).Value
                                      Worksheets("Feuil1").Cells(dp2, 5).Value = dependentgates

                                      Worksheets("Feuil1").Rows(dp).EntireRow.Delete

                                    End If

                                Next dp

                                Next dp2

End Sub

Bonjour,

Voici mon soucis : J'ai créé une liste d’interprètes sur Excel, et je dois compter le nombre d’interprètes par conté.

J'ai commencé par utiliser le filtre élaboré pour extraire tous les "County" sans doublons. (Filtre élaboré, copier vers un autre emplacement, Plage : B2 a B544, copier dans H3, extraction sans doublon). Seulement j'ai toujours quelques doublons : Dublin, Limerick.

Et lorsque je poursuit ma tache : j'utilise la fonction NB.SI('Full interpreter list'!B$2:B$544,Data!D3), et j'obtiens deux résultats différents pour les deux entrées...

Je vous met le fichier en pièce jointe.

37aide-excel.xlsx (31.09 Ko)

Je ne comprend pas l'origine de l'erreur. Avez-vous une explication ?

Merci beaucoup !

Bonjour,

ma question peut sembler vague avec la portion "autres types de doublons" mais voilà plus de détails...

J'ai une liste qui contient jusqu'à présent environ 2000 lignes, soit 2000 adresses courriels.

Ce sont des adresses pour une Liste Blanche dans notre serveur anti-spam.

Je dois éliminer les doublons (il n'y a pas de réel doublon techniquement...)

Voici un exemple de courriel "doublon", que je dois éliminer ou filtrer d'une quelconque manière.

  • shane123@compagnie-abc.com
    samuel45@compagnie-abc.com
    *@compagnie-abc.com
    samuel45@business-xyz.ca
    shane123@business-xyz.ca
    *@youpidoo.ru

Je dois éliminer toutes adresses ayant le même nom de domaine ET qui possède l'un des préfix "*" en avant du "@domaine.com". Celui-ci ne devant pas être supprimé.

Si aucun *@domaine.com n'existe pour ce domaine, alors conserver toutes les autres adresses portant ce domaine.

Si aucune adresses n'existe autre que le *@domaine.com lui-même, le conserver tout simplement.

J'ai essayé à mainte reprises avec Excel différentes formules jointe, en plusieurs étapes, sans succès... j'imagine que j'ai absolument besoin d'un script mais je suis nul en programmation

Le résultat pour la liste du haut devrait être ceci.

  • *@compagnie-abc.com
    samuel45@business-xyz.ca
    shane123@business-xyz.ca
    *@youpidoo.ru

Pourriez-vous me guider ou même créer un code qui me permetterait de filtrer tout cela rapidement?

Je dois le faire mensuellement et jusqu'à présent, même à la main je n'y arrive pas avec les formules.

Merci d'avance à tous!

Bonjour,

je suis à la recherche d'une formule pour révéler les doublons dans une colonne,mais seulement les chiffres dans les cellules,pas de doublons de cellule avec du texte ou autres.

Si vous pouvez m'éclairer sur ce sujet.

Merci à l'avance.

Cordialement

Vitalis77480

Hello a tous,

J'ai beau chercher je ne trouve pas, ou je ne cherche pas bien.

Voila dans une feuille excel je rapatrie une multitude d'information concernant des articles. Je fais un tri par N°d'article, et la j'ai des doublons.

J'aurai voulu savoir si il est possible de faire le total de ces doublons et de les supprimer ensuite.

Un fichier joint va vous aider un peu plus je pense.

https://www.excel-pratique.com/~files/doc/7PWhsresumer_accesoires.xls

Amicalement et merci d'avance pour votre aide

Bonjour à toutes et à tous,

J’ai un tableau qui gère des résultats Sportif.

Les compèt. se déroulent sur 2 jours (Samedi & Dimanche)

Il y a des joueurs qui jouent les 2 jours. ("doublons")

Je voudrais faire une récap. des 2 jours cumulés

en gérant les " doublons" (ne garder que le meilleur score des 2 jours)

(Fichier ci-dessous avec explications))

Merci d’avance.

Labret

Bonjour à tous,

besoin d 'aide pour gérer des doublons sur une colonne mais que je souhaiterai conserver si et seulement si la 3eme colonne est différente .j' espère être assez clair mais je joint un exemple dans le fichier .

par avance un grand merci

3aide.xlsx (9.86 Ko)

Bonjour à tous !

Je dois m'occuper d'un tableau excel pour, au final, créer un planning pour un rallye organisé dans 2 semaines.

Mon but étant au final d'avoir un planning par heures définies en me mentionnant le nom des équipes qui partent à l'heure dite.

Je me retrouve avec un petit soucis de doublons à gérer.

En effet, j'ai attribué des numéros aux équipes. J'ai dû en grouper certaines pour avoir le bon nombre de personnes dedans. Du coup, je me retrouve avec quelques équipes qui ont le même numéro.

J'aurai aimé dire à excel que : si deux équipes ont le même numéro (par exemple le "1") il faut en renommer une "1a" et l'autre "1b" dans une autre colonne.

Auriez-vous une solution à me proposer ?

Sachant que j'ai actuellement 16 équipes différentes réparties en 10 numéros.

D'avance un grand merci pour votre aide !

Bonjour,

J'ai établi un code pour empêcher de rentrer des doublons dans une banque de données via un userform.

Jusqu'ici il marche, néanmoins lorsque les valeurs ne sont exprimées qu'en chiffres, là le doublon n'est pas détecté et est quand même rentré dans la base de données.

Voici mon code :

Private Sub CommandButton1_Click()

Dim n As Integer
  For n = 2 To 400
  If TextBox1.Value = Sheets("Banque_de_données").Range("I" & n).Value Then
  MsgBox "Ce nom existe déjà dans la liste !"

    Unload Me
  AjoutCalBdd.Show

  Exit Sub
End If
  Next n

If Sheets("Banque_de_données").Range("I2") = "" Then
Sheets("Banque_de_données").Range("I2") = TextBox1.Value

Else
Sheets("Banque_de_données").ListObjects(4).ListRows.Add

dlt = Sheets("Banque_de_données").Range("I1048576").End(xlUp).Row
Sheets("Banque_de_données").Range("I" & dlt) = TextBox1.Value
End If

MsgBox ("Calibre rentré dans la BDD")

Suivi d'une fonction de tri croissant.

Merci pour votre aide, Tom

Bonsoir le forum,

Après des heures de recherche, je n'arrive toujours pas a résoudre mon problème.

Je sollicite donc votre aide, voici mon problème :

Je souhaite contrôler les dates de vente de certains produits en affichant "oui" si deux dates qui se suivent sont identique, et afficher " non" le cas contraire.

La recherche se fera uniquement sur la colonne " D " du fichier joint et le résultat de recherche "oui" ou "non" dans la colonne "E"

Si un membre pourra m'aider.....formule ou code VBA.

Je vous remercie d'avance pour votre aide.

Cordialement,

24doublons.xlsx (9.99 Ko)

Bonjour à tous

Nouveau sur le forum et plus que Junior en VBA.

J essaye de faire une macro, qui pour toutes les colonnes si en colonne 1, j ai la meme valeur alors je concatene la cells(i,j) et la cells(i-1,j).

Le soucis c est que lorsque en colonne 1 j ai lememe Id, dans les autres colonnes, je peux avoir des celuules vides ou des doublons.

J ai touvé une solution en filtant chaque colonne, mais ca prend beaucoup de temps.

J ai pensé aux variants mais, la je n'y comprends plus rien

Help please

nrow = Cells.Find("*", , , , xlByRows, xlPrevious).Row

ncol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column

For j = 3 To ncol

For i = 4 To nrow

k = i - 1

Range(Cells(4, 1), Cells(nrow, ncol)).Select

Selection.Sort Key1:=Range(Cells(4, 1), Cells(nrow, ncol)), Order1:=xlAscending, Key2:=Range(Cells(4, j), Cells(nrow, j)), Order2:=xlAscending

If Cells(i, 1) = Cells(k, 1) Then

If Cells(i, j) = Cells(k, j) Then

Cells(k, j) = Cells(k, j)

Else

If Cells(i, j) = "" Then

Cells(i, j) = Cells(k, j)

Else

Cells(i, j) = Cells(k, j) & " // " & Cells(i, j)

End If

End If

End If

Next i

Next j

Bonjour à tous,

Est-ce qu'il est possible d'avoir une colonne A avec des noms, une colonne B avec soit oui ou non et une colonne C qui indiquerait un numéro ?

Dupont OUI réalisation 1

Dupont NON ""

Dupont OUI réalisation 2

Durant OUI réalisation 1

Je voudrais empêcher par exemple que DUPONT ait un doublon réalisation 1.

Merci d'avance pour votre aide.

salut à tous,

je cherche a faire apparaitre dans une colonne 2 choses:

dans la colonne A, j'ai la liste des codes clients et dans la colonne B, j'aimerai que pour la 1ere donnée qu'il trouve en doublon qu'il m'écrive "CREATION" et pour les autres doublons qu'il écrive "DUPLICATA".

comment est ce que je peux faire ca ?

Merci beaucoup !

bonne journée

Bonjour;

Je souhaite dans un liste à 2 colonnes faire la chose suivante. Identifier les doublons et les sommer si il y en a.

Par exemple :

Imput :

A 10

C 6

V 3

C 2

A 5

D 2

Output :

A 15

C 8

V 3

D 2

Pour l'instant j'ai trouvé cela : Mais c'est très long... et moche. J'aimerai utiliser un truc du genre dictionnaire ou tableau, avez vous des pistes ?

Do While Cells(ligne, 1) <> ""

  If Cells(ligne, 1) = Cells(ligne + 1, 1) Then
    Cells(ligne, 2) = Cells(ligne, 2) + Cells(ligne + 1, 2)
    Cells(ligne + 1, 3).EntireRow.Delete Shift:=xlUp
  Else
    ligne = ligne + 1
  End If
Loop

J'ai trouvé comment créer un dictionnaire sans doublons mais je ne sais pas comment faire pour gerer les sommes :

Set MonDico = CreateObject("Scripting.Dictionary")
 On Error Resume Next
  For Each C In Range("A2:A10")
    MonDico.Add C.Value, C.Value
  Next C

  Tablo = Application.Transpose(MonDico.items)

Bonjour

J'ai une liste de doublons qui se présente ainsi

ID Société Date de facturation

8160157 SOCIETE DE DETECTEURS 09/03/2015

8160157 SOCIETE DE DETECTEURS 09/03/2014

8160311 PARTNER 04/11/2014

8160311 PARTNER 10/06/2013

8160471 AXE METAL 19/03/2015

8160471 AXE METAL 19/03/2014

8161475 ESC OF BUSINESS 16/12/2014

8161475 ESC OF BUSINESS 21/01/2015

8161475 ESC OF BUSINESS 16/12/2011

8161475 ESC OF BUSINESS 21/01/2012

Je souhaite supprimer les doublons ( ID, SOCIETE) mais que Excel me garde la date de facturation la plus récente

Quelle formule dois je utiliser?

Merci par avance pour votre aide

Sophie

Bonjour.

Existe-t-il, dans Excel 2010, une fonction ou une macro qui me permettrait, selon l'exemple du fichier joint :

- De filtrer les doublons de la colonne A de Feuil1 tout en cumulant les valeurs contenues dans la colonne B et de copier le résultat dans Feuil2

En espérant avoir été assez clair !

Merci de votre aide.

grandid88

Bonsoir a tous

Je voudrais éliminer les doublons sur une colonne

comment faire ?

merci de votre aide

jp

Bonjour,

Je dispose d'une fonction permettant de supprimer les doublons en gardant le dernier (le plus en bas) et en concaténant les données.

Sub doublon_G()

For iC = 1 To 100
   If Cells(1, iC) = "isin" Then Exit For
Next iC
iLR = Cells(Rows.Count, iC).End(3).Row
iLC = Cells(1, Columns.Count).End(1).Column
Tablo = Range(Cells(1, 1), Cells(iLR, iLC))
For i = iLR To 3 Step -1
   For ii = i - 1 To 2 Step -1
      If Tablo(ii, iC) = Tablo(i, iC) Then

         For k = 1 To iLC
          If Tablo(ii, k) <> "" And Tablo(i, k) = "" Then
            Tablo(i, k) = Tablo(ii, k)

          End If
            Tablo(ii, k) = ""

         Next
      End If
   Next
Next
Range(Cells(1, 1), Cells(iLR, iLC)) = Tablo
For i = iLR To 2 Step -1
If Cells(i, iC) = "" Then Rows(i).Delete
Next

End Sub

Je voudrais coupler ce code avec un autre qui me permettrai avant toutes choses de détecter les lignes de ces doublons pour ensuite les supprimer et les concaténer. Et non pas de balayer toute la sélection en attente de trouver un doublon. Cela me ferrai gagner un temps non négligeable.

Merci d'avance.

17classeur1.xlsm (220.25 Ko)

J'utilise la macro suivante : Solution pratique pour gérer les doublons et les lignes vides venant de ce site https://www.blog-excel.com/gerer-doublons-et-lignes-vides/

Je dois en fait gérer les doublons de matériel sur plusieurs lieux et sur plusieurs jours. En gros, je dois recommencer ma manipulation sur plusieurs colonnes mais également sur la même colonne plusieurs fois.

Dans le code VBA, je n'ai pas la possibilité de laisser à l'utilisateur le soin de donner la première ligne et la dernière ligne à vérifier (elles vont varier à chaque fois).

Comment pourrais-je donc lui siginifier ? Merci d'avance

Sub doublons_et_lignes_vides()

    'Macro : Sébastien Mathier - Excel-Pratique.com
    'A propos de cette macro : http://www.blog-excel.com/gerer-doublons-et-lignes-vides/

    choix = InputBox("Avant d'utiliser cet outil, n'oubliez pas d'enregistrer votre fichier !" & Chr(10) & Chr(10) & "Choisissez l'action qui vous intéresse :" & Chr(10) & Chr(10) & "1. Colorer les doublons (colorer la cellule)" & Chr(10) & "2. Colorer les doublons (colorer la ligne entière)" & Chr(10) & "3. Effacer les doublons (en laissant la ligne vide)" & Chr(10) & "4. Supprimer les doublons (ligne entière)" & Chr(10) & "5. Supprimer les lignes vides" & Chr(10) & Chr(10) & "Entrez le n° de l'action et cliquez sur OK :", "Gestion des doublons - Blog-Excel.com")
    If choix = "" Then Exit Sub

    choix2 = ""
    If choix = 1 Or choix = 2 Or choix = 3 Or choix = 4 Then choix2 = InputBox("Entrez la lettre de la colonne où les doublons doivent être recherchés :", "Gestion des doublons - Blog-Excel.com")
    If choix = 5 Then choix2 = InputBox("Entrez la lettre de la colonne à prendre en compte (si la cellule de cette colonne est vide, la ligne sera supprimée) :", "Gestion des doublons - Blog-Excel.com")
    If choix2 = "" Then Exit Sub

    Application.ScreenUpdating = False
    test = Timer

    der_ligne = Range(choix2 & "65000").End(xlUp).Row

    Dim tab_cells()
    ReDim tab_cells(der_ligne - 1)

    For ligne = 1 To der_ligne
        tab_cells(ligne - 1) = Range(choix2 & ligne)
    Next

    nb = 0
    If choix = 4 Or choix = 5 Then compteur = 0

    For ligne = 1 To der_ligne
        contenu = tab_cells(ligne - 1)

        If (choix = 1 Or choix = 2) And contenu <> "" Then 'Colorer doublons
            For i = 1 To der_ligne
                If contenu = tab_cells(i - 1) And ligne <> i Then 'Si doublon
                    nb = nb + 1
                    If choix = 1 Then
                        Range(choix2 & ligne).Interior.ColorIndex = 3
                    Else
                        Range(ligne & ":" & ligne).Interior.ColorIndex = 3
                    End If
                    Exit For
                End If
            Next
        End If

        If (choix = 3 Or choix = 4) And ligne > 1 And contenu <> "" Then 'Effacer/supprimer doublons
            For i = 1 To ligne - 1
                If contenu = tab_cells(i - 1) Then 'Si doublon
                    nb = nb + 1
                    If choix = 3 Then
                        Range(ligne & ":" & ligne).ClearContents
                    Else
                        Range(ligne + compteur & ":" & ligne + compteur).Delete
                        compteur = compteur - 1
                    End If
                    Exit For
                End If
            Next
        End If

        If choix = 5 And contenu = "" Then 'Lignes vides
            Range(ligne + compteur & ":" & ligne + compteur).Delete
            compteur = compteur - 1
            nb = nb + 1
        End If
    Next

    res_test = Format(Timer - test, "0" & Application.DecimalSeparator & "000")
    Application.ScreenUpdating = True

    If nb = 0 And choix = 5 Then
        dd = MsgBox("Aucune ligne vide trouvée ...", 64, "Résultat")
    ElseIf nb = 0 Then
        dd = MsgBox("Aucun doublon trouvé dans la colonnne " & UCase(choix2) & " ...", 64, "Résultat")
    ElseIf choix = 5 Then
        dd = MsgBox(nb & " lignes supprimées (en " & res_test & " secondes)", 64, "Résultat")
    ElseIf choix = 4 Then
        dd = MsgBox(nb & " doublons supprimés (en " & res_test & " secondes)", 64, "Résultat")
    ElseIf choix = 3 Then
        dd = MsgBox(nb & " doublons effacés (en " & res_test & " secondes)", 64, "Résultat")
    Else
        dd = MsgBox(nb & " doublons passés en rouge (en " & res_test & " secondes)", 64, "Résultat")
    End If

End Sub

Recherches récentes

planning grantgrantmise forme conditionnellecharge planningplanning injectionplanification injectionplanificationfacture pdfpdf vbauserformidentite ordinateurligne totauxagendaplanning location voituremacro save pdf 2017 macpowerqueryouvrir fichier variableprogramme creercreer programmestock