Forum d'assistance informatique - LM2I

Sur excel, comment verifier des champs noms, par exemple, pour retrouver les doublons????


exemple:

____|__________A____________________|___________B______________|____Résultat Colonne B__|____________C______|________Résultat Colonne C___|
1___|____Laurent (1 espace) LAFORGE___|____=SUBSTITUE(A1;" ";"")____|____LaurentLAFORGE___|____=NB.SI(B:B;B1)___|_______________2___________|
2___|____Laurent (2 espaces) LAFORGE__|_____=SUBSTITUE(A2;" ";"")___|____LaurentLAFORGE___|____=NB.SI(B:B;B2)___|_______________2___________|
...

Maintenant vous pouvez faire un NB.SI sur la colonne B afin de compter le nombre de doublons....

recup du numero dans cellule adresse
La colonne "E" doit contenir l'adresse:

Code: Tout sélectionner

      =CNUM(GAUCHE(E2;CHERCHE(" ";E2;1)-1))

afficher un fichier

Code: Tout sélectionner

       Windows(FICHIER).Activate

arrondi:

Code: Tout sélectionner

       Round(nb)

lancer la Macro1:

Code: Tout sélectionner

       Application.Run "Macro1"

récupérer la liste des fichiers "xls" d'un répertoire:

Code: Tout sélectionner

ChDir CHEMIN
    FICHIER = Dir(CHEMIN & "*.xls")
    Do While FICHIER <> ""
        If FICHIER <> "." And FICHIER <> ".." And FICHIER <> COMPIL And FICHIER <> "Modele.xls" Then
            ActiveCell.Value = Left(FICHIER, Len(FICHIER) - 4)
            Range("I" & ActiveCell.Row + 1).Select
            compteur = compteur + 1
        End If
        FICHIER = Dir
    Loop

boucle while (tant que….)

Code: Tout sélectionner

Do While fichier <> ""
       blabla
Loop

enregistrer le fichier:

Code: Tout sélectionner

       ActiveWorkbook.Save

fermer le fichier:

Code: Tout sélectionner

       ActiveWorkbook.Close

fermer sans sauver:

Code: Tout sélectionner

       ActiveWindow.Close SaveChanges:="no"

se positionner dans un repertoire:

Code: Tout sélectionner

       ChDir "c:\temp"
ouvrir le fichier "c:\temp\lolo.xls":

       Workbooks.Open Filename:="c:\temp\emplolo.xls"

selection de toutes la page:

Code: Tout sélectionner

Cells.Select