Discussion :

[fmris]

bonjour
j'ai une petite question (à mon avis c pas complike)
Je souhaiterais declenche une macro si dans la cellule A1 il ya présence d'un "N"
exemple
Cell A1 = 15N alors la macro se declenche (boucle if)
si cell A1 = 15 rien
c la simple recherche de ce N ki me pose pb
merci

[ouskel'n'or]

Sans plus de précision, j'ai supposé que tu sélectionnais une cellule, n'importe laquelle. Auquel cas, à placer dans la feuille de code de ta feuille de calculs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If InStr(Target.Value, "N") Then MaMacro
End Sub
 
Sub MaMacro()
MsgBox "Coucou"
End Sub

Si c'est dans une macro, tu as plusieurs solutions : Soit tu recherche N dans toute la feuille, soit tu parcours toutes les cellules. Et dis si tu lances ta macro pour chaque cellule contenant N.
Précise

[ouskel'n'or]

Tiens, j'ai testé un truc marrant :
J'ai fait la recherche d'un N dans une feuille de calcul dans lequel j'ai placé le code que je t'ai donné précédemment. Le code (obtenu en enregistrant bêtement) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Cells.Find(What:="N", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate

Pour lancer une macro pour les N suivants, tu mets simplement dans une boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Cells.FindNext(After:=ActiveCell).Activate

Bien sûr tu dois tester s'il n'y en a plus mais tu devrais essayer

LookAt:= xlPart permet de chercher N parmi tous les caractères d'une cellule et non une correspondance avec une cellule entière

[fmris]

c exactement ce ke je recherchais
merci bcp