Bonjour le forum,
J’ai un problème avec cette macro, je l’utilise pour me donner chiffre d’indicateur (le nom de fois qu’une phrase et cité, elle fonctionne super bien, sauf que quand je l’utilise sur la feuille par exemple février elle me donne aussi les chiffres de ma feuille de janvier et en conséquence fausse mes indicateurs.
Merci de prendre un peu de votre temps pour me renseigner.
Dans l’attente de vous lire.
Stéphane
Sub moisfevrier()
Dim Mot As String
Dim Ws As Object
Dim Nbre As Long
Dim Cycle As Long
Dim Trouvé As Variant
Dim CellAddress As Variant
Dim MyValue As String
'Définition de la variable à rechercher
Mot = InputBox("Saisir le texte recherché sur le report d'alarme (EX) Incendie .............", Title:=" Recherche ..... ")
'Vérification si existante
If Mot = "" Then Exit Sub
For Each Ws In Worksheets
Nbre = Nbre + Application.CountIf(Ws.UsedRange, "*" & Mot & "*")
Next Ws
'Message en cas de mot inexistant
If Nbre = 0 Then
MyValue = MsgBox(" le texte " & Mot & " n'est pas enregistré ", vbOKOnly, " Message ")
Else
Cycle = 0
'Recherche et arrêt sur les cellules contenant le Mot
For Each Ws In Worksheets
If Ws.Name = "Fevrier 1" Then
With Ws
.Activate
Set Trouvé = .Cells.Find(what:=Mot, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart)
If Not Trouvé Is Nothing Then
CellAddress = Trouvé.Address
Do
Cycle = Cycle + 1
Trouvé.Activate
If Nbre = 1 Then
MyValue = MsgBox(" La valeur " & Mot & " est enregistrée 1 seule fois ", vbOKOnly, " Message ")
Exit Sub
End If
If Cycle = Nbre Then
MyValue = MsgBox(" La valeur " & Mot & " sélectionnée est la dernière !", vbOKOnly, "Message")
Exit Sub
Else
MyValue = MsgBox(" La valeur " & Mot & " sélectionnée est la " & Cycle & " sur " & Nbre & " existantes. " & vbLf & _
" Voulez vous continuer la recherche ? ", vbYesNo, "Message")
If MyValue = vbNo Then Exit For
Set Trouvé = .Cells.FindNext(After:=Trouvé)
End If
Loop While Not Trouvé Is Nothing And Trouvé.Address <> CellAddress
End If
End With
End If
Next Ws
End If
End Sub
J’ai un problème avec cette macro, je l’utilise pour me donner chiffre d’indicateur (le nom de fois qu’une phrase et cité, elle fonctionne super bien, sauf que quand je l’utilise sur la feuille par exemple février elle me donne aussi les chiffres de ma feuille de janvier et en conséquence fausse mes indicateurs.
Merci de prendre un peu de votre temps pour me renseigner.
Dans l’attente de vous lire.
Stéphane
Sub moisfevrier()
Dim Mot As String
Dim Ws As Object
Dim Nbre As Long
Dim Cycle As Long
Dim Trouvé As Variant
Dim CellAddress As Variant
Dim MyValue As String
'Définition de la variable à rechercher
Mot = InputBox("Saisir le texte recherché sur le report d'alarme (EX) Incendie .............", Title:=" Recherche ..... ")
'Vérification si existante
If Mot = "" Then Exit Sub
For Each Ws In Worksheets
Nbre = Nbre + Application.CountIf(Ws.UsedRange, "*" & Mot & "*")
Next Ws
'Message en cas de mot inexistant
If Nbre = 0 Then
MyValue = MsgBox(" le texte " & Mot & " n'est pas enregistré ", vbOKOnly, " Message ")
Else
Cycle = 0
'Recherche et arrêt sur les cellules contenant le Mot
For Each Ws In Worksheets
If Ws.Name = "Fevrier 1" Then
With Ws
.Activate
Set Trouvé = .Cells.Find(what:=Mot, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart)
If Not Trouvé Is Nothing Then
CellAddress = Trouvé.Address
Do
Cycle = Cycle + 1
Trouvé.Activate
If Nbre = 1 Then
MyValue = MsgBox(" La valeur " & Mot & " est enregistrée 1 seule fois ", vbOKOnly, " Message ")
Exit Sub
End If
If Cycle = Nbre Then
MyValue = MsgBox(" La valeur " & Mot & " sélectionnée est la dernière !", vbOKOnly, "Message")
Exit Sub
Else
MyValue = MsgBox(" La valeur " & Mot & " sélectionnée est la " & Cycle & " sur " & Nbre & " existantes. " & vbLf & _
" Voulez vous continuer la recherche ? ", vbYesNo, "Message")
If MyValue = vbNo Then Exit For
Set Trouvé = .Cells.FindNext(After:=Trouvé)
End If
Loop While Not Trouvé Is Nothing And Trouvé.Address <> CellAddress
End If
End With
End If
Next Ws
End If
End Sub
Dernière édition:
