Recherche de données dans une zone de noms

Re : Recherche de données dans une zone de noms

Bonsoir Aimedjie,

tu peux essayer ce code, j'ai mis des msgbox pour contrôler


A plus,
Gruick

Re : Recherche de données dans une zone de noms

Merci beaucoup!

Mais je crois que je me suis mal exprimé, quoique la macro de Gruick semble être dans la bonne voie.

Au fond, je veux que si ma cellule modifiée est dans une ligne définie par la "Zone" et que s'il y a une donnée dans la zone, je veux qu'il s'inscrive "S/O" trois colonnes avant la cellule de la zone.

J'ai fait une macro, mais le temps de réaction n'est pas instantané comme je le voudrais puisque la macro fait le tour de toute les cellules de la "Zone".

Public Function inscrireTaux(ByVal Target As Range)

Dim cellZone As Range

'Cette macro s'applique à toute les cellules de la zone nommée "Zone".
For Each cellZone In Range("Zone")

'La macro ne s'applique que sur les lignes modifiées avec une information inscrite dans la "Zone".
If cellZone.Row = Target.Row And _
cellZone.Value <> "" Then

'S'il s'agit le chiffre 99999 est inscrit dans la colonne "A" et qu'il y a une information inscrite dans la cellule de la "Zone", il faut inscrire "S/O" dans la
'troisième colonne précédent la cellule de la "Zone".
If Cells(cellZone.Row, _
Range("A1").Column).Value = 99999 And _
cellZone.Value <> "" Then
Cells(cellZone.Row, _
cellZone.Column - 3).Value = "S/O"

End If

Next cellZone

End Function