Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

comptage et msgbox

11 réponses
Avatar
achille
Bonjour

Je dispose d un fichier avec des chiffres en colonne A de A2 à A65000 avec
des chiffres dans n 'importe quel ordre ....

exemple

A3 = 8547
A4=8546
A5=8548
A6= 8550
A7=8552
A8=8553
A9=8551
A10= 8549

donc msgbox " manque aucun Numero"

en revanche avec cet exemple
A3 = 8547
A4=8546
A5=8554
A6= 8555
A7=8552
A8=8553
A9=8551
A10= 8549

donc msgbox " manque 8548 / 8550"
et si en manquait trois ben il aurait mis les 3 et ainsi de suite


je voudrais ceci à la fermeture du fichier

merci.

1 réponse

1 2
Avatar
Jacky
Re....
Au moment de l"affichage de la msgbox
Altl+Impr-écran
Fermer le msgbox
Sélectionner une feuille vierge
Ctrl+V (ou bouton droite de la souris + coller)
Et imprimer cette feuille

--
Salutations
JJ


"achille" a écrit dans le message de news:
4d959ca2$0$7717$
merci beaucoup

est il possible d'imprimer le contenu de la msgbox?


"Jacky" a écrit dans le message de news: in458c$upv$
Re...
Ajoute
On Error Resume Next
Avant la ligne
MsgBox Left(msg, Len(msg) - 1)
Au cas ou il n'y aurait pas de manquant
--
Salutations
JJ


"achille" a écrit dans le message de news:
4d95962c$0$32453$
merci jacky c est exactement ce que je cherchais...

merci infiniment


"Jacky" a écrit dans le message de news: in43bc$qcq$
Bonjour,

Ceci peut-être
'----------------
Sub jj()
Dim x As Long, y As Long
MsgBox "Il manque: " & [MAX(a:a)-MIN(a:a)+1-COUNT(a:a)] & " Chiffre(s)"
x = [MIN(a:a)]
y = [max(a:a)]
For i = x To y - 1
If IsError(Application.Match(i + 1, [a:a], 0)) Then
msg = msg & i + 1 & "/"
End If
Next
MsgBox Left(msg, Len(msg) - 1)
End Sub
'--------------------
voir ici
http://www.cijoint.fr/cjlink.php?file=cj201104/cijD0w7plj.xls
--
Salutations
JJ


"achille" a écrit dans le message de news:
4d95844a$0$5389$
Bonjour

Je dispose d un fichier avec des chiffres en colonne A de A2 à A65000 avec des chiffres dans n 'importe
quel
ordre ....

exemple

A3 = 8547
A4…46
A5…48
A6= 8550
A7…52
A8…53
A9…51
A10= 8549

donc msgbox " manque aucun Numero"

en revanche avec cet exemple
A3 = 8547
A4…46
A5…54
A6= 8555
A7…52
A8…53
A9…51
A10= 8549

donc msgbox " manque 8548 / 8550"
et si en manquait trois ben il aurait mis les 3 et ainsi de suite


je voudrais ceci à la fermeture du fichier

merci.



















1 2