Bonjour,
Je souhaiterais trouver un code vba pour que je puisse entrer une valeur par inptubox, le code testerait les cellules de $A$1: à A200 et si la valeur de la cellule correspond à la valeur de l'inputbox, ce code sélectionnerait la cellule dans laquelle cette valeur se trouve.

sur cette feuille de calculs, j'ai déjà un code événementiel qui lance une macro si la valeur d'une cellule comprise entre $C$2 et M200 = X.

Le souci est que le code tourne très bien pour sa seconde partie mais je teste une cellule extérieure à la plage $C$2 et M200 = X, il plante:

"Variable objet ou variable de bloc non définie"
Avec la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If Intersect(ActiveCell, Range("$C$2:M200")) = "X" Then
sur lignée.

Le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    'On Error Resume Next
 
    If Intersect(ActiveCell, Range("$C$2:M200")) = "X" Then
 
 
    ActiveWorkbook.Save
 
 
     If MsgBox("Lancer clôture fichiers pdf", vbYesNo, "Demande de confirmation") = vbYes Then
 
    Application.Run ("TestListeFichiers")
 
    Else
    Exit Sub
 
    End If
    Else
    Exit Sub
    End If
 
    Dim Lig As Long, Nom As String
 
  If Intersect(ActiveCell, Range("$A$1:A200")) <> "" Then
 
Nom = InputBox("Saisie de votre NOM Prénom : ", "NOM Prénom")
 
Set Plage = Range("A2:A150")
    For Each Cel In Plage
        If Cel = Nom Then
            Lig = ActiveCell.Row
 
            Range("" & "A" & Lig & "").Activate
            Exit Sub
        End If
    Next Cel
 
  End If
    End Sub
Si quelqu'un y voit plus clair que moi, merci beaucoup