Recherche de caracteres

[Francis]

Bonjour le forum
Tout d’abord merci aux XLDnautes, car ces quelques instructions ont été glanées par ci par là sur le forum.

Je cherche la présence d’un caractère en majuscule (et ce une seule fois) dans une plage "C11:C64,F11:F64") et ce dans toute les feuilles du classeur.
Si cette condition est réalisée, il faut copier [G51] = [b3] dans la feuille où la condition s’est réalisée.

Sub Chercher()
Dim feuille As Byte
Dim Cible As String
Dim Cell As Range

Application.ScreenUpdating = False

'Mot à chercher
'Cible = InputBox("Saisir le mot à rechercher")
Cible = "Q"
If Cible = "" Then Exit Sub

'Boucle de toutes les feuilles
For I = 1 To Sheets.Count
For Each Cell In Range("C11:C64,F11:F64")
If Cell.Value = Cible Then
[G51] = [b3]
End If
Next Cell
Next I

Application.ScreenUpdating = True
End Sub

Hélas, cela ne marche que dans la feuille active.

Merci d'avance
Francis

 

[Pierrot93]

Re : Recherche de caracteres

Bonsoir Francis

essaye peut être comme ci dessous :

For I = 1 To Sheets.Count
with sheets(I)
For Each Cell In .Range("C11:C64,F11:F64")
If Cell.Value = Cible Then
.range("G51").Value  = .range("B3").value
End If
Next Cell
end with
Next I

a tester

bonne soirée
@+

Edition : End with mal positionné.

 

[Francis]

Re : Recherche de caracteres

Bonsoir Pierrot93 et le forum
Merci pour ta réponse rapide .Ca marche nickel
Francis