Discussion :

[Kestion100]

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

[Kestion100]

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

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
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

[Kestion100]

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

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
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?

[Kestion100]

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 :

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
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 :

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
 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????

[joe.levrai]

Bonjour,

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

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
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

[Kestion100]

Exact.
Après, je voudrais que la cellule (0,X) soit sélectionner en rentrant X dans un inputbox.

[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 ?

[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....

[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.

[Kestion100]

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 :

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
 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.....

[joe.levrai]

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

pourquoi pas le double clic sur la cellule A1 ?

par exemple

Code :

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

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

[Kestion100]

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 :

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
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 :

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

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 :

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
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....

[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 :

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

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

[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.