macro compte Maplage

[Bruce68]

Bonjour à tous
Je voudrais dans cette macro quand un N° n'existe pas quelle puisse me le dire dans un MsgBox, que faut il mettre en plus dans la macro?
(VBA excel 2003)
Sub test()

Sheets("Feuil4").Select
Dim VCherchée As Integer
VCherchée = Application.InputBox(Prompt:="Selectionnez le numéro du jour souhaité")
Set Ma_Plage = Worksheets("Feuil4").Range("A2:A65500")
Nb_Ligne = Application.WorksheetFunction.CountA(Ma_Plage)

For i = 2 To Nb_Ligne

If Range("A" & i) = VCherchée Then
j = WorksheetFunction.CountIf(Range("D" & i & ": W" & i), ">0")
MsgBox "Il y a " & CStr(j) & " Appels reçus"
End If
Next i

Sheets("SAISIE").Select
End Sub

En remerciant tous ceux qui voudrons bien m'aider

 

[Robert]

Re : macro compte Maplage

Bonjour Bruce, bonjour le forum,

Je n'ai ni testé ni approfondi mais je te propose cette solution avec une variable booléenne :

Sub Macro1()
Sheets("Feuil4").Select
Dim VCherchée As Integer
[COLOR=red]Dim test As Boolean[/COLOR]
[COLOR=red]test = False
[/COLOR]VCherchée = Application.InputBox(Prompt:="Selectionnez le numéro du jour souhaité")
Set Ma_Plage = Worksheets("Feuil4").Range("A2:A65500")
Nb_Ligne = Application.WorksheetFunction.CountA(Ma_Plage)
For i = 2 To Nb_Ligne
    If Range("A" & i) = VCherchée Then
        j = WorksheetFunction.CountIf(Range("D" & i & ": W" & i), ">0")
        MsgBox "Il y a " & CStr(j) & " Appels reçus"
        [COLOR=red]test = True[/COLOR]
    End If
Next i
[COLOR=red]If test = False Then MsgBox "le Numéro n'existe pas"[/COLOR]
 
Sheets("SAISIE").Select
End Sub

 

[pimouz]

Re : macro compte Maplage

Salut,

je ne suis pas sure d'avoir tout compris mais si le numéro demandé est censé être unique dans ta colonne A alors ce code devrait marcher


Sub test()

Sheets("Feuil4").Select
Dim VCherchée As Integer
dim numero as boolean

numero = false
VCherchée = Application.InputBox(Prompt:="Selectionnez le numéro du jour souhaité")
Set Ma_Plage = Worksheets("Feuil4").Range("A2:A65500")
Nb_Ligne = Application.WorksheetFunction.CountA(Ma_Plage)

For i = 2 To Nb_Ligne

If Range("A" & i) = VCherchée Then
numero = true
j = WorksheetFunction.CountIf(Range("D" & i & ": W" & i), ">0")
exit for
End If
Next i

if numero = true then
MsgBox "Il y a " & CStr(j) & " Appels reçus"
else
MsgBox "Le numéro n'existe pas !"
end if

Sheets("SAISIE").Select
End Sub


Dits moi si ça te convient

 

[Bruce68]

Re : macro compte Maplage

Merci Pimouz et Robert

Vos macros fonctionnent impec

Bruce68