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 ....
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.
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" <stephol@prodiag.fr> a écrit dans le message de news:
4d959ca2$0$7717$ba4acef3@reader.news.orange.fr...
merci beaucoup
est il possible d'imprimer le contenu de la msgbox?
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: in458c$upv$1@speranza.aioe.org...
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" <stephol@prodiag.fr> a écrit dans le message de news:
4d95962c$0$32453$ba4acef3@reader.news.orange.fr...
merci jacky c est exactement ce que je cherchais...
merci infiniment
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: in43bc$qcq$1@speranza.aioe.org...
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" <stephol@prodiag.fr> a écrit dans le message de news:
4d95844a$0$5389$ba4acef3@reader.news.orange.fr...
Bonjour
Je dispose d un fichier avec des chiffres en colonne A de A2 à A65000 avec des chiffres dans n 'importe
quel
ordre ....
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 ....