Bonsoir, j'ai cette double proc géniale qui me permet d'avoir, le nombre de
doublon
Mais le pb est qu'elle me le donne avec un arrondi ???
Ex 22,000000000001
Comment faire afin d'avoir un chiffre rond ex : 22 tout court ;-))
Merci beaucoup
Michel
If doub = 0 Then
MsgBox " A ce jour, il y n'a aucun nom saisi deux fois dans les dossiers
en cours.", vbInformation, "Nombre de doublons dans les dossiers en cours":
Exit Sub
Else
If doub = 1 Then
MsgBox "A ce jour, il y a " & doub & " nom saisi au moins deux fois dans
les dossiers en cours.", vbInformation, "Nombre de doublons dans les
dossiers en cours"
Else
If doub > 1 Then
MsgBox "A ce jour, il y a " & doub & " noms saisis au moins deux fois
dans les dossiers en cours.", vbInformation, "Nombre de doublons dans les
dossiers en cours"
End If
End If
End If
Call TestDoublons_classés
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel.Girard
Désolé, je viens de trouver, il me suffit de mettre INT() Bonne soirée Patrick OUEDRAOGO
"Michel.Girard" a écrit dans le message de news: O7$
Bonsoir, j'ai cette double proc géniale qui me permet d'avoir, le nombre de doublon Mais le pb est qu'elle me le donne avec un arrondi ??? Ex 22,000000000001 Comment faire afin d'avoir un chiffre rond ex : 22 tout court ;-)) Merci beaucoup Michel
If doub = 0 Then MsgBox " A ce jour, il y n'a aucun nom saisi deux fois dans les dossiers en cours.", vbInformation, "Nombre de doublons dans les dossiers en cours": Exit Sub Else If doub = 1 Then MsgBox "A ce jour, il y a " & doub & " nom saisi au moins deux fois dans les dossiers en cours.", vbInformation, "Nombre de doublons dans les dossiers en cours" Else If doub > 1 Then MsgBox "A ce jour, il y a " & doub & " noms saisis au moins deux fois dans les dossiers en cours.", vbInformation, "Nombre de doublons dans les dossiers en cours"
End If End If End If Call TestDoublons_classés End Sub
Désolé, je viens de trouver, il me suffit de mettre INT()
Bonne soirée
Patrick OUEDRAOGO
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message de
news: O7$q1N9BFHA.3092@TK2MSFTNGP10.phx.gbl...
Bonsoir, j'ai cette double proc géniale qui me permet d'avoir, le nombre
de doublon
Mais le pb est qu'elle me le donne avec un arrondi ???
Ex 22,000000000001
Comment faire afin d'avoir un chiffre rond ex : 22 tout court ;-))
Merci beaucoup
Michel
If doub = 0 Then
MsgBox " A ce jour, il y n'a aucun nom saisi deux fois dans les
dossiers en cours.", vbInformation, "Nombre de doublons dans les dossiers
en cours": Exit Sub
Else
If doub = 1 Then
MsgBox "A ce jour, il y a " & doub & " nom saisi au moins deux fois
dans les dossiers en cours.", vbInformation, "Nombre de doublons dans les
dossiers en cours"
Else
If doub > 1 Then
MsgBox "A ce jour, il y a " & doub & " noms saisis au moins deux fois
dans les dossiers en cours.", vbInformation, "Nombre de doublons dans les
dossiers en cours"
End If
End If
End If
Call TestDoublons_classés
End Sub
Désolé, je viens de trouver, il me suffit de mettre INT() Bonne soirée Patrick OUEDRAOGO
"Michel.Girard" a écrit dans le message de news: O7$
Bonsoir, j'ai cette double proc géniale qui me permet d'avoir, le nombre de doublon Mais le pb est qu'elle me le donne avec un arrondi ??? Ex 22,000000000001 Comment faire afin d'avoir un chiffre rond ex : 22 tout court ;-)) Merci beaucoup Michel
If doub = 0 Then MsgBox " A ce jour, il y n'a aucun nom saisi deux fois dans les dossiers en cours.", vbInformation, "Nombre de doublons dans les dossiers en cours": Exit Sub Else If doub = 1 Then MsgBox "A ce jour, il y a " & doub & " nom saisi au moins deux fois dans les dossiers en cours.", vbInformation, "Nombre de doublons dans les dossiers en cours" Else If doub > 1 Then MsgBox "A ce jour, il y a " & doub & " noms saisis au moins deux fois dans les dossiers en cours.", vbInformation, "Nombre de doublons dans les dossiers en cours"
End If End If End If Call TestDoublons_classés End Sub
