OVH Cloud OVH Cloud

Problème de formule!!!

2 réponses
Avatar
STEN83
Bonjour à tous,
Petit problème!
Dans une cellule C2 je rentre le numéro d'une série qui doit se répercuté
dans des cellules inférieurs en A13 j'ai =si(C2="";"";C2) puis en A14 =A13+1
et incrémentation vers le bas pour la suite.
Le problème c'est que j'ai une macro qui vérifie l'esxistence de doublon
dans ma liste mais si je met la formule en A13 il me renvoi l'erreur générée
par ma macro me disant que le N° existe déjà alors qu'il n'y en a pas, les
cellule sont formatées en 00000000 est ce pour cela?

Merci de votre aide
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous

2 réponses

Avatar
Rai
Bonjour,

Peux-tu poster le code de ta macro ?
Ou du moins la partie qui vérifie les doublons ?

Merci

Rai

Bonjour à tous,
Petit problème!
Dans une cellule C2 je rentre le numéro d'une série qui doit se répercuté
dans des cellules inférieurs en A13 j'ai =si(C2="";"";C2) puis en A14 ¡3+1
et incrémentation vers le bas pour la suite.
Le problème c'est que j'ai une macro qui vérifie l'esxistence de doublon
dans ma liste mais si je met la formule en A13 il me renvoi l'erreur générée
par ma macro me disant que le N° existe déjà alors qu'il n'y en a pas, les
cellule sont formatées en 00000000 est ce pour cela?

Merci de votre aide


Avatar
STEN83
Voici le code de ma macro:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

'colonne à "surveiller"
If Selection.Count > 1 Then Exit Sub
' pour vérifier si la saisie n'existe pas déjà dans les lignes précédentes
If Application.WorksheetFunction. _
CountIf(Range(Cells(2, 1), _
Cells(Target.Row, 1)), Target.Value) > 1 Then

' pour vérifier si la saisie n'existe pas déjà dans la colonne
If Application.WorksheetFunction. _
CountIf(Range("A:A"), Target.Value) > 1 Then

MsgBox "Ce numéro à déjà été attribué!", vbInformation, "N° Invalide"
Target.Value = ""
Target.Select
End If
End If

End Sub


Bonjour,

Peux-tu poster le code de ta macro ?
Ou du moins la partie qui vérifie les doublons ?

Merci

Rai

Bonjour à tous,
Petit problème!
Dans une cellule C2 je rentre le numéro d'une série qui doit se répercuté
dans des cellules inférieurs en A13 j'ai =si(C2="";"";C2) puis en A14 ¡3+1
et incrémentation vers le bas pour la suite.
Le problème c'est que j'ai une macro qui vérifie l'esxistence de doublon
dans ma liste mais si je met la formule en A13 il me renvoi l'erreur générée
par ma macro me disant que le N° existe déjà alors qu'il n'y en a pas, les
cellule sont formatées en 00000000 est ce pour cela?

Merci de votre aide