un doublon que faire?

[sioli]

bonjour a tous

voila j'ai un document excel qui est remplis par des données,est et sauvegarder (sous le N° de celui-ci qui n'est pas le mème pour tous les document sauver)par une macro.

j'ai un problème d'est qu'il rencontre un N° dejas excistent la macro me signal une erreur et le programme se stop.

il n'y a pas moyen que d'est qu'il rencontre un doublon que le N° exciste et que je doit changer de N° ex: 125t = 125tbis,via biens sur une macro puique j'utilise celle-ci pour sauvegarder le fichier.

merci a tous

 

[Hervé]

bonjour sioli, le forum


il aurait été plus simple de voir le code que tu utilisais 🙂

en attendant, le code ci-dessous, ajoute une lettre des qu'un doublon à été trouvé.

par exemple en colonne A :

10
20
10
20
20
10

te donnera en colonne B :

10A
20A
10B
20B
20C
10C

Sub Bouton1_QuandClic()
Dim i As Integer
Dim n As Byte


For i = 1 To Range('a65536').End(xlUp).Row
        n = Application.CountIf(Range('a1', Cells(i, 1)), Cells(i, 1))
        Select Case n
                Case 1: Cells(i, 2) = Cells(i, 1) & 'A'
                Case 2 To 26: Cells(i, 2) = Cells(i, 1) & Chr(65 + n - 1)
        End Select
Next i
End Sub

salut

 

[sioli]

bonjour et merci

mais en faite j'ai un repertoire nomé datas ou son sauver toutes les fiches.

le problème est des que je sauve via la macro dans ce repertoire ,d'est qu'il trouve un fichier identique la macro s'arrete est me dit qu'il y a une erreur dans une ligne.

sa marche tres bien temp qu 'il n'y a pas de doublon.

j'aurais bien voulu que d'est qu'il trouve un doublon que la macro s'arrete et je pose la question de donner un autre n° d'enregistrement.