Formule Excel

[Résolu]
Signaler
Messages postés
19
Date d'inscription
dimanche 23 septembre 2007
Statut
Membre
Dernière intervention
18 septembre 2009
-
Messages postés
14813
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
25 juillet 2021
-
bonjours,
je veut une formule qui me donne les valeurs doublants de colonne A dans autre colonne B

A        B
1         1
2         3
1
3
4
3

merci de vous aides
daly

4 réponses

Messages postés
19
Date d'inscription
dimanche 23 septembre 2007
Statut
Membre
Dernière intervention
18 septembre 2009

c'est urgent, parceque j'ai 8524 ligne dans cette Colonnes à tester.
merci d'avence :)
daly
Messages postés
14813
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
25 juillet 2021
156
Bonjour,

Quel est le lien entre les 2 colonnes ?

http://nhen0039.chez-alice.fr/index.php
Messages postés
19
Date d'inscription
dimanche 23 septembre 2007
Statut
Membre
Dernière intervention
18 septembre 2009

bonjour NHenry,
je veut que les doublants du colonne A s'affiche dans le colonne B c'est tout
que se soit une formule excel ou un code vb6 qui fait un liaison avec l'excel et merci d'avence
Messages postés
14813
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
25 juillet 2021
156
Bonjour,

Code tapé sans EDI, non testé et non optimisé :

Dans un module :

public Sub ShowDbl()
    Dim lSrc as long
    dim i as long
    Dim j as long
    Dim lStr as string
   
    i=0
    j=1
    lSrc=1
   
    Cells(j,2).Value=""
   
    do while Cells(lSrc,1).value<>""
        lStr=Cells(lSrc,1).value
        for i=1 to lsrc-1
            If Cells(i,1).value=lStr then
                Cells(j,2).Value=lstr
                j=j+1
                Cells(j,2).Value=""
                exit for
            end if
        next i
        lSrc=lSrc+1
    loop
   
end sub

http://nhen0039.chez-alice.fr/index.php