Adresse de la cellule trouvée

[CelluleVide]

Bonjour le forum,

Apres les avoir cherchés dans une plage,je voudrais que mon code me renvoie si il trouve des "#N/A" l'adresse de la premiere ligne ou il en trouve.
Si oui ==> msgbox avec l'info sinon suite du code.
Mais je coince sur la syntaxe. le fichier sera peut etre plus clair.

A+

 

[tototiti2008]

Re : Adresse de la cellule trouvée

Bonjour CelluleVide,

J'ai modifié ton code comme suit et ça a l'air de marcher :

Dim Trouve As Variant
[COLOR="Red"]Dim Cellule As Range[/COLOR]    
Range("A6:F180").Select
    Range("F6").Activate
    [COLOR="red"]Set Cellule = Selection.Find(What:="#N/A", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)[/COLOR]    
If Cellule Is Nothing Then
        MsgBox ("pas trouve")
    Else: MsgBox [COLOR="red"]Cellule.Row[/COLOR]
    
    End If

 

[pierrejean]

Re : Adresse de la cellule trouvée

Bonjour celluleVide

Vois si cela te convient

Edit : Salut tototiti

 

[CelluleVide]

Re : Adresse de la cellule trouvée

Bonjour Pierrejean et Tototiti,

Merci pour la rapidité et la qualité de vos réponses,
ca fonctionne au poil.

Une fois encore, grace ce forum je me coucherais moins c...

Bonne journée

 

[Larson]

Re : Adresse de la cellule trouvée

Bonjour,

que de solution ... 🙂

tu peux voir egalement avec cela :

Sub Macro2()

Dim Trouve As Variant
Dim Cellule As Range

    Range("A6:F180").Select
    For Each Cellule In Selection
        If IsError(Cellule) Then
            MsgBox ("NA# Trouvé dans la cellule : " & Cellule.Address)
            Exit Sub
        End If
    Next
    MsgBox ("Pas de NA# trouvé")

End Sub

Edit : Zut, un poil en retard 🙂

 

[Tibo]

Re : Adresse de la cellule trouvée

Bonjour,

Ne répond pas précisément à la demande 😉,

mais une solution par formule matricielle :

=EQUIV(VRAI;ESTERREUR(A1:A50))

Formule matricielle à valider par CTRL + MAJ + ENTREE

@+

 

[CelluleVide]

Re : Adresse de la cellule trouvée

Bonjour a tous ceux que je n'ai pas salué,

Ce probleme etait urgent mais grace a vous pas de soucis je suis dans les temps (comme dirait la carpe.. 😀 )

Merci a tous pour vos fils.