Active la cellule pour une valeur donnée par inputbox

Version imprimable

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:

If Intersect(ActiveCell, Range("$C$2:M200")) = "X" Then

sur lignée.

Le code:
Code:

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

Avec ça, plus de plantage mais après avoir renseigné mon inptubox, rien ne se passe:

Code:

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
41
42
43
44
45
46
47
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
 
 
 
    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
   ActiveCell.Offset(1, 0).Activate
 
 
    Exit Sub
 
    End If
    Else
    Exit Sub
    End If
 End Sub
 
   Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Address = "$A$1" Then
 
 
  Dim Lig As Long, Nom As String
 
Nom = InputBox("Saisie de votre NOM : ", "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

J'ai trouvé ça qui est pas mal du tout:

Code:

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
41
42
43
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
 
 
 
    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
   ActiveCell.Offset(1, 0).Activate
 
 
    Exit Sub
 
    End If
    Else
    Exit Sub
    End If
 End Sub
 
   Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Address = "$A$1" Then
 
 
  Dim Lig As Long, Nom As String
 
Nom = InputBox("Saisie de votre NOM : ", "NOM")
 
Dim cel As Range
Do
    Set cel = Cells.Find(What:="" & Nom & "", LookAt:=xlWhole)
    If Not cel Is Nothing Then cel.Activate
Loop While Not cel Is Nothing
Exit Sub
  End If
    End Sub

Dernier point, j'ai l'impression que la boucle est un peu longue avant que je ne reprenne la main, limiter la zone de recherche de A2 à A200 serait-ce la solution? Par LookAt?

Comment gérer le cas où Nom n'apparaît pas dans ma colonne (A2:A200) pour arrêter la boucle?

Ce sujet n'est pas source d'inspiration.
J'ai avancé encore un peu.

J'arrive à trouver ma cellule dans ma colonne puis à déplacer mon curseur dans la ligne correspondante mais, la première reste active et excel continue à me demander le mois alors même que la cellule correspondante est active, je remarque juste que la cellule Ax l'est encore aussi???

Code:

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
 
 
 
    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
   ActiveCell.Offset(1, 0).Activate
 
 
    Exit Sub
 
    End If
    Else
    Exit Sub
    End If
 End Sub
 
   Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Address = "$A$1" Then
 
 
  Dim Lig As Long, Nom As String, Lign As Long
 
Nom = InputBox("Saisie de votre NOM : ", "NOM")
 
Dim cel As Range
Do
    Set cel = Sheets("SAISIES").Range("A2:A200").Find(What:="" & Nom & "", LookAt:=xlWhole, SearchOrder:=xlByColumns)
    If Not cel Is Nothing Then cel.Activate
Loop While Not cel Is Nothing
 
 
  End If
  Dim mois As Long
  Lign = ActiveCell.Row
If Target.Address = "$A$" & Lign Then
 
  mois = InputBox("Saisie le mois :  " & vbCrLf & "1 = Septembre  " & vbCrLf & "2 = Octobre  " & vbCrLf & "3 = Novembre  " & vbCrLf & "4 = Décembre  " & vbCrLf & "5 = Janvier  " & vbCrLf & "6 = Février  " & vbCrLf & "7 = Mars  " & vbCrLf & "8 = Avril  " & vbCrLf & "9 = Mai  " & vbCrLf & "10 = Juin  " & vbCrLf & "11 = Juillet", "mois")
 
  ActiveCell.Offset(0, mois).Activate
  Exit Sub
  Else
  Exit Sub
  End If
 
 
 
 
    End Sub

Ca se passe ici

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Dim mois As Long
  Lign = ActiveCell.Row
If Target.Address = "$A$" & Lign Then
 
  mois = InputBox("Saisie le mois :  " & vbCrLf & "1 = Septembre  " & vbCrLf & "2 = Octobre  " & vbCrLf & "3 = Novembre  " & vbCrLf & "4 = Décembre  " & vbCrLf & "5 = Janvier  " & vbCrLf & "6 = Février  " & vbCrLf & "7 = Mars  " & vbCrLf & "8 = Avril  " & vbCrLf & "9 = Mai  " & vbCrLf & "10 = Juin  " & vbCrLf & "11 = Juillet", "mois")
 
  ActiveCell.Offset(0, mois).Activate
  Exit Sub
  Else
  Exit Sub
  End If
 
 
 
 
    End Sub

Comme si je me retrouver avec le deux cellules actives en les sélectionnant avec Ctrl + clic gauche????

Bonjour,

je suis parti de ton tout premier code ... mais je ne suis pas vraiment sûr d'avoir compris
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Nom As String Dim Cell As Range If Not Intersect(Target, Range("$C$2:M200")) Is Nothing And Target.Value = "X" Then ActiveWorkbook.Save If MsgBox("Lancer clôture fichiers pdf", vbYesNo, "Demande de confirmation") = vbYes Then Application.Run ("TestListeFichiers") ElseIf Not Intersect(Target, Range("$A$1:A200")) Is Nothing And Target.Value <> "" Then Nom = InputBox("Saisie de votre NOM Prénom : ", "NOM Prénom") If Nom <> "" Then Set Cell = Range("A2:A150").Find(Nom) If Not Cell Is Nothing Then Cell.Select End If End If End Sub
tu veux gérer deux cas différents sur l'évènement Double Clic :

1) Si on double clic dans la zone C2:M200 et que la cellule a pour valeur "X" : on enregistre le fichier. Si l'utilisateur répond oui au MsgBox, on doit lancer la macro "TestListeFichiers"

2) Si on double clic dans la zone A1:A200 et que la cellule n'est pas vide : on demande à l'utilisateur une valeur à chercher. Si cette valeur existe dans la plage A2:A150 alors on sélectionne cette cellule

01/06/2015, 15h44
Kestion100

Exact.
Après, je voudrais que la cellule (0,X) soit sélectionner en rentrant X dans un inputbox.
01/06/2015, 16h05
joe.levrai

la valeur rentrée dans le premier inputbox (le "X") est donc un chiffre utilisé deux fois ?

1) pour chercher la cellule en colonne A
2) on se décale ensuite de X colonnes et on sélectionne cette cellule ?
01/06/2015, 16h16
Kestion100

En fait, dans la colonne A2:A200 j'ai une liste de noms, dans la première inputbox, je rentre le nom; dans la ligne 1, j'ai inscrit les mois: Septembre à Juillet, je rentre le chiffre correspondant au mois dans ma seconde inputbox.
Je voudrais que la cellule correspondant au nom et au mois soit sélectionnée (ce sont des cellules comprenant une liste par validation de données (" ";"X")) et prête pour que j'affiche mon "X".

J'espère que c'est un peu clair....
01/06/2015, 16h20
clementmarcotte

Bonjour,

Si ton problème, c'est de choisir un mois, et une plage de cellules durant l'exécution de la macro, tu pourrais utiliser un contrôle RefEdit (dans les contrôles supplémentaires, si tu n'as pas un Excel à 64 bits). Cela te permettrait de sélectionner ta plage à la souris, de la même façon que dans Excel.

En fait, mon problème serait de sélectionner une cellule qui auraient pour coordonnées "y=" la ligne de la cellule correspondant au nom que je donne dans une première inputbox et "x=" le mois que je donne dans la seconde.

Ce qui fonctionne avec:

Code:

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
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Address = "$A$1" Then
 
  Dim Lig As Long, Nom As String, Line As Long, Col As Long, LignSel As Long
 
Nom = InputBox("Saisie de votre NOM : ", "NOM")
 
Dim cel As Range
Do
    Set cel = Sheets("SAISIES").Range("A2:A200").Find(What:="" & Nom & "", LookAt:=xlWhole, SearchOrder:=xlByColumns)
    If Not cel Is Nothing Then cel.Activate
Loop While Not cel Is Nothing
Line = ActiveCell.Row
 
  End If
  Dim mois As Long
  LignSel = ActiveCell.Row
If Target.Address = "$A$" & LignSel Then
 
  mois = InputBox("Saisie le mois :  " & vbCrLf & "1 = Septembre  " & vbCrLf & "2 = Octobre  " & vbCrLf & "3 = Novembre  " & vbCrLf & "4 = Décembre  " & vbCrLf & "5 = Janvier  " & vbCrLf & "6 = Février  " & vbCrLf & "7 = Mars  " & vbCrLf & "8 = Avril  " & vbCrLf & "9 = Mai  " & vbCrLf & "10 = Juin  " & vbCrLf & "11 = Juillet", "mois")
 
  ActiveCell.Offset(Line, mois).Activate
  ActiveCell.Select
  Exit Sub
  Else
  Exit Sub
  End If
 
 
 
    End Sub

Sauf que la cellule du nom, dans la colonne A2:A200 reste active et après que mon code aie pu sélectionner (x;y), mon inputbox "Mois" continue à s'afficher en boucle et, par exemple, A4 apparaît comme sélectionnée, tout comme G4.....

Effectuer une sélection, dans une procédure évènementielle SelectionChange, c'est pas terrible :aie:

pourquoi pas le double clic sur la cellule A1 ?

par exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Nom As String
Dim Cel As Range
Dim Mois As Long
 
If Target.Address = "$A$1" Then
    Nom = InputBox("Saisie de votre NOM : ", "NOM")
    Mois = InputBox("Saisie le mois :  " & vbCrLf & "1 = Septembre  " & vbCrLf & "2 = Octobre  " & vbCrLf & "3 = Novembre  " & vbCrLf & "4 = Décembre  " & vbCrLf & "5 = Janvier  " & vbCrLf & "6 = Février  " & vbCrLf & "7 = Mars  " & vbCrLf & "8 = Avril  " & vbCrLf & "9 = Mai  " & vbCrLf & "10 = Juin  " & vbCrLf & "11 = Juillet", "mois")
    Set Cel = Sheets("SAISIES").Range("A2:A200").Find(What:=Nom, LookAt:=xlWhole, SearchOrder:=xlByColumns)
    If Not Cel Is Nothing Then Cells(Cel.Row, Mois + 1).Select
    Cancel = True
End If
 
End Sub

Ceci dit, la feuille où est située ta macro, c'est bien la feuille Saisies ?
si tu veux sélectionner une cellule d'une autre feuille, il faut impérativement activer la feuille en question

Oui c'est bien la bonne feuille.
J'étais parti la dessus mais j'ai déjà une beforedoubleclic sur cette feuille et n'était pas parvenue à les articuler.

Je tente avec ton code.

J'ai ce code au dessus:
Code:

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 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 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 ActiveCell.Offset(1, 0).Activate Exit Sub End If Else Exit Sub End If End Sub
Les deux séparés en mettant le premier en double clic et pas le second se déclenchent bien mais si je mets le second à la suite tel quel, plantage:

Variable objet ou variable de bloc With non défini, avec

Code:

If Intersect(ActiveCell, Range("$C$2:M200")) = "X" Then

surligné.

J'imagine bien que sélection doit causer le problème que je rencontre, il sélectionne la cellule en boucle et déclenche indéfiniment l'evenementiel.

Il y a donc 2 solutions, soit arriver à articuler les deux double clics soit arriver à déboucler le code selectionchange

Je ne comprends pas, j'ai une doubleclic qui porte sur C2:M200 et une sur A1 et elles se mélangent, je suis déjà arrivé à faire 2 doubleclic sur la même page sans être embêté comme ça????

J'en suis à:
Code:

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 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then Dim Lig As Long, Nom As String, Line As Long, Col As Long, LignSel As Long Nom = InputBox("Saisie de votre NOM : ", "NOM") Dim cel As Range Do Set cel = Sheets("SAISIES").Range("A2:A200").Find(What:="" & Nom & "", LookAt:=xlWhole, SearchOrder:=xlByColumns) If Not cel Is Nothing Then cel.Activate LignSel = ActiveCell.Row 'If Target.Address = "$A$" & LignSel Then Dim mois As Long mois = InputBox("Saisie le mois : " & vbCrLf & "1 = Septembre " & vbCrLf & "2 = Octobre " & vbCrLf & "3 = Novembre " & vbCrLf & "4 = Décembre " & vbCrLf & "5 = Janvier " & vbCrLf & "6 = Février " & vbCrLf & "7 = Mars " & vbCrLf & "8 = Avril " & vbCrLf & "9 = Mai " & vbCrLf & "10 = Juin " & vbCrLf & "11 = Juillet", "mois") Line = ActiveCell.Row ActiveCell.Offset(0, mois).Select ActiveCell.Activate Exit Sub End If End Sub
Qui ne boucle plus indéfiniment mais j'ai toujours deux cellules sélectionnées en bout de piste....

02/06/2015, 09h36
joe.levrai
Bonjour,

tu es libre de conserver ton code (qui est source de problèmes) et un évènement absolument déconseillé dans ton cas, sans utiliser le mien, ou m'indiquer si son comportement était conforme a été attentes

mais dans ce cas je n'ai plus matière à poursuivre

pour tes deux doubles clic :
Code:

1 2 3 4 5 6 If Target.Value = $A$1 Then 'Traitement ElseIf Not Intersect(Target,Range("$C$2:M200")) Is Nothing Then If Target.Value = "X" Then 'Traitement End If
02/06/2015, 09h59
Kestion100

Ton code est le bon mais ne fonctionnait pas dans ma configuration, avec ta dernière correction, je pense que ça va être ok, je teste et reviens.