Bonsoir à toutes et tous
J'ai dans une colonne A des numéros de tickets mais qui arrive de manière
aléatoire.(Ces tickets sont supposés se suivre, mais il y a des trous)
Est-il possible d' avoir une proc dans un msgbox qui me donne les numéros
manquants ?
Merci beaucoup
Patrick
Salut, merci à AV et à Nicolas B pour votre aide il ne me reste qu'à adapter parce que mes données sont de A8 à A90 et de B8 à B90 il n'y a pas d'espace vide entre les cellules mais il se peut qu'elle ne se rendent pas jusqu'à la ligne 90. Je veux avoir la liste des nombres absent de A8 à A90 et de B8 à B90 en H8 et descendant Le bornes de 101 à106 109 à 114 201 à 214 ... 601 à 614
exemple
A B H 8 101 102 103 9 104 105 106 10 109 111 110 11 112 114 113 ...
merci de votre aide
Charles
"Nicolas B." a écrit dans le message de news:
Modifie alors la macro comme suit (attention : les N° ne sont plus en col A
mais en col D).
Sub NoManquants()
Dim i, Début, Fin, Ligne As Long Dim Test As Variant
Ligne = 1 While Cells(Ligne, 1) <> "" Début = Cells(Ligne, 1) Fin = Cells(Ligne, 2) For i = Début To Fin On Error Resume Next Test = Application.WorksheetFunction.Match(i, Range("D:D"), 0) If Err.Number <> 0 Then MsgBox i Next Ligne = Ligne + 1 Wend
End Sub
Les variables Début et Fin prennent les valeurs entrées en col A et B, puis
le test est effectué pour les valeurs entre Début et Fin.
Merci beaucoup Nicolas, c'est parfait. Une autre question si tu permets ? Pour un autre cas si j'ai des séries, en A début de numéros et B fin de numéros ex: 5 à 12 Puis 17 à 23 etc. Comment pourrais-je faire comprendre les numéros manquants? Patrick
"Nicolas B." a écrit dans le message de news: eGjk$
Salut Patrick,
La procédure ci-dessous recherche les N° manquants dans tous les N° compris entre le plus petit et le plus grand de la liste :
Sub NoManquants() Dim Mini, Maxi, i As Long Dim Test As Variant Mini = Application.WorksheetFunction.Min(Range("A:A")) Maxi = Application.WorksheetFunction.Max(Range("A:A")) For i = Mini To Maxi On Error Resume Next Test = Application.WorksheetFunction.Match(i, Range("A:A"), 0) If Err.Number <> 0 Then MsgBox i Next End Sub
Bonsoir à toutes et tous J'ai dans une colonne A des numéros de tickets mais qui arrive de manière aléatoire.(Ces tickets sont supposés se suivre, mais il y a des trous) Est-il possible d' avoir une proc dans un msgbox qui me donne les numéros manquants ? Merci beaucoup Patrick
Salut,
merci à AV et à Nicolas B pour votre aide
il ne me reste qu'à adapter parce que mes données sont de A8 à A90 et de B8
à B90
il n'y a pas d'espace vide entre les cellules mais il se peut qu'elle ne se
rendent pas jusqu'à la ligne 90.
Je veux avoir la liste des nombres absent de A8 à A90 et de B8 à B90 en H8
et descendant
Le bornes de
101 à106
109 à 114
201 à 214
...
601 à 614
exemple
A B H
8 101 102 103
9 104 105 106
10 109 111 110
11 112 114 113
...
merci de votre aide
Charles
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news:OSx8sFxoDHA.3040@TK2MSFTNGP11.phx.gbl...
Modifie alors la macro comme suit (attention : les N° ne sont plus en col
A
mais en col D).
Sub NoManquants()
Dim i, Début, Fin, Ligne As Long
Dim Test As Variant
Ligne = 1
While Cells(Ligne, 1) <> ""
Début = Cells(Ligne, 1)
Fin = Cells(Ligne, 2)
For i = Début To Fin
On Error Resume Next
Test = Application.WorksheetFunction.Match(i, Range("D:D"), 0)
If Err.Number <> 0 Then MsgBox i
Next
Ligne = Ligne + 1
Wend
End Sub
Les variables Début et Fin prennent les valeurs entrées en col A et B,
puis
le test est effectué pour les valeurs entre Début et Fin.
Merci beaucoup Nicolas, c'est parfait.
Une autre question si tu permets ?
Pour un autre cas si j'ai des séries, en A début de numéros et B fin
de numéros
ex: 5 à 12 Puis 17 à 23 etc.
Comment pourrais-je faire comprendre les numéros manquants?
Patrick
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le
message de news: eGjk$VwoDHA.1676@TK2MSFTNGP09.phx.gbl...
Salut Patrick,
La procédure ci-dessous recherche les N° manquants dans tous les N°
compris entre le plus petit et le plus grand de la liste :
Sub NoManquants()
Dim Mini, Maxi, i As Long
Dim Test As Variant
Mini = Application.WorksheetFunction.Min(Range("A:A"))
Maxi = Application.WorksheetFunction.Max(Range("A:A"))
For i = Mini To Maxi
On Error Resume Next
Test = Application.WorksheetFunction.Match(i, Range("A:A"), 0)
If Err.Number <> 0 Then MsgBox i
Next
End Sub
Bonsoir à toutes et tous
J'ai dans une colonne A des numéros de tickets mais qui arrive de
manière aléatoire.(Ces tickets sont supposés se suivre, mais il y a
des trous) Est-il possible d' avoir une proc dans un msgbox qui me
donne les numéros manquants ?
Merci beaucoup
Patrick
Salut, merci à AV et à Nicolas B pour votre aide il ne me reste qu'à adapter parce que mes données sont de A8 à A90 et de B8 à B90 il n'y a pas d'espace vide entre les cellules mais il se peut qu'elle ne se rendent pas jusqu'à la ligne 90. Je veux avoir la liste des nombres absent de A8 à A90 et de B8 à B90 en H8 et descendant Le bornes de 101 à106 109 à 114 201 à 214 ... 601 à 614
exemple
A B H 8 101 102 103 9 104 105 106 10 109 111 110 11 112 114 113 ...
merci de votre aide
Charles
"Nicolas B." a écrit dans le message de news:
Modifie alors la macro comme suit (attention : les N° ne sont plus en col A
mais en col D).
Sub NoManquants()
Dim i, Début, Fin, Ligne As Long Dim Test As Variant
Ligne = 1 While Cells(Ligne, 1) <> "" Début = Cells(Ligne, 1) Fin = Cells(Ligne, 2) For i = Début To Fin On Error Resume Next Test = Application.WorksheetFunction.Match(i, Range("D:D"), 0) If Err.Number <> 0 Then MsgBox i Next Ligne = Ligne + 1 Wend
End Sub
Les variables Début et Fin prennent les valeurs entrées en col A et B, puis
le test est effectué pour les valeurs entre Début et Fin.
Merci beaucoup Nicolas, c'est parfait. Une autre question si tu permets ? Pour un autre cas si j'ai des séries, en A début de numéros et B fin de numéros ex: 5 à 12 Puis 17 à 23 etc. Comment pourrais-je faire comprendre les numéros manquants? Patrick
"Nicolas B." a écrit dans le message de news: eGjk$
Salut Patrick,
La procédure ci-dessous recherche les N° manquants dans tous les N° compris entre le plus petit et le plus grand de la liste :
Sub NoManquants() Dim Mini, Maxi, i As Long Dim Test As Variant Mini = Application.WorksheetFunction.Min(Range("A:A")) Maxi = Application.WorksheetFunction.Max(Range("A:A")) For i = Mini To Maxi On Error Resume Next Test = Application.WorksheetFunction.Match(i, Range("A:A"), 0) If Err.Number <> 0 Then MsgBox i Next End Sub
Bonsoir à toutes et tous J'ai dans une colonne A des numéros de tickets mais qui arrive de manière aléatoire.(Ces tickets sont supposés se suivre, mais il y a des trous) Est-il possible d' avoir une proc dans un msgbox qui me donne les numéros manquants ? Merci beaucoup Patrick
