Inputbox sur plusieurs classeurs

Version imprimable

Bonjour,

J'ai fait un programme sur un classeur vierge nommé "Base_AUTO".
J'ai mis ma macro dans la barre d'outils d'accès rapide.

Lorsque j'ouvre mon classeur excel "Test" et que j'exécute ma macro celle-ci me demande de sélectionner une cellule précise.
Jusqu'ici tout va bien.
Ensuite ma macro demande de sélectionner une autre cellule dans un autre classeur que j'ai ouvert préalablement.
Mais ca ne marche pas.
Comment faire pour que la sélection de mon inputbox puisse se faire sur plusieurs classeurs excel?

Merci

PS: Mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim Nom_PDC As Object Dim ColDeb_PDC As Integer, ColFin_PDC As Integer Dim LigDeb_PDC As Long, LigFin_PDC As Long Dim Nom_Onglet_PDC As Range Set Nom_PDC = Application.InputBox(prompt:="sélectionnez la cellule avec le nom de la première question du questionnaire du Plan De Code", Type:=8) Set Nom_Onglet_PDC = Nom_PDC.CurrentRegion ColDeb_PDC = Nom_PDC(1, 1).Column ColFin_PDC = Nom_PDC(1, Nom_PDC.Columns.Count).Column LigDeb_PDC = Nom_PDC(1, 1).Row LigFin_PDC = Nom_PDC(Nom_PDC.Rows.Count, 1).Row

08/11/2013, 10h27
rob1son76
Bon j'ai trouvé une alternative en mettant dans un msgboxVBYesNo les nom des classeurs ouvert.

Code:
Code:

1 2 3 4 5 6 For Each wb In Workbooks rep = MsgBox("Le classeur " & wb.Name & " est-il le bon?", vbYesNo) If rep = vbYes Then wb.Activate End If Next wb
Mais bon ca ne me plait pas trop. je préfèrerai que l'utilisateur ouvre directement le classeur avec la souris.

Merci

Bonjour,

Pour répondre au message #1, essayez votre code modifié

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
Sub aa()
Dim Nom_PDC As Range '///modification
Dim ColDeb_PDC As Integer, ColFin_PDC As Integer
Dim LigDeb_PDC As Long, LigFin_PDC As Long
Dim Nom_Onglet_PDC As Range
 
Set Nom_PDC = Application.InputBox(prompt:="sélectionnez la cellule avec le nom de la première question du questionnaire du Plan De Code", Type:=8)
 
Set Nom_Onglet_PDC = Nom_PDC.CurrentRegion
ColDeb_PDC = Nom_Onglet_PDC(1, 1).Column
LigDeb_PDC = Nom_Onglet_PDC(1, 1).Row
ColFin_PDC = Nom_Onglet_PDC.Columns.Count + ColDeb_PDC - 1
LigFin_PDC = Nom_Onglet_PDC.Rows.Count + LigDeb_PDC - 1
 
'### Infos sur la plage (pour visualiser - à virer par la suite) ###
Dim A$
With Nom_Onglet_PDC
  '--- Classeur contenant la plage ---
  A$ = A$ & "Classeur " & .Parent.Parent.Name & vbCrLf
  '--- Feuille contenant la plage ---
  A$ = A$ & "Feuille " & .Parent.Name & vbCrLf
  '--- Adresse de la plage ---
  A$ = A$ & "Adresse " & .Address & vbCrLf
  '---
  MsgBox A$
End With
'###################################################################
 
End Sub