lnputBox limiter le choix de la selection

bonjour et bonne année,
j'ai 2 pb avec mon inpuBox :

1. J'ai un tableau nomé TablAgent et je voudrais obliger l'utilisateur à choisir sa (ses) saisie(s) uniquement dans la colonne du champ [Nom Actuel]
2. Comment récupérer les valeurs des cellules sélectionnées par l'utilisateur et non les adresses

voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim MonTab() As String Dim Plage As Range Dim i As Integer On Error Resume Next Application.DisplayAlerts = False Set Plage = Application.InputBox("Sélectionnez une plage", "Sélection de cellules", Type:=8) MonTab = Split(Plage.Address, ",") On Error GoTo 0 Application.DisplayAlerts = True If Plage Is Nothing Then Exit Sub Else For i = 0 To UBound(MonTab) MsgBox MonTab(i) Range("N" & i + 1) = MonTab(i) Next i End If

---

si je remplace .Adress par .Value, je ne récupère que la valeur de la 1ère sélection, puis il sort de la boucle sans traiter next i
est-ce que quelqu'un peut m'aider svp ? d'avance merci

Salut Mouftie,

[Petit Conseil perso :]

Code:

---

On Error GoTo 0

---

Le problème de ce code c'est qu'il traite toutes les erreurs de la même façon. C'est bien sur très pratique (voir indispensable) si tu cherches à réagir face à une erreur côté opérateur (saisi de texte au lieu de chiffres par exemple) mais ça empêche de détecter correctement les problèmes de ton programme.
C'est d'ailleurs exactement ce qui doit se passer ici, dans ta boucle il doit rencontrer une erreur et du coup il sort de ta boucle pour aller à 0 (Goto 0) et tu ne peux plus identifier ce qui pose problème.

Personnellement j'utilise la gestion d'erreur qu'une fois que j'ai maîtrisé le reste de mon programme et surtout avec parcimonie:?.

[/Petit Conseil perso :]


Bon maintenant rentrons dans le vif du sujet :

Citation:

---

Envoyé par mouftie

j'ai 2 pb avec mon inpuBox :

---

C'est quel genre de box? Une combobox?

Citation:

---

Envoyé par mouftie

je voudrais obliger l'utilisateur à choisir sa (ses) saisie(s) uniquement dans la colonne du champ [Nom Actuel]

---

Si on parle bien d'une combobox, il faut au préalable que tu l'alimentes avec les données de la colonne [Nom Actuel]

Code:

---

1 2	Sub UserForm_Initialize() ...

---

et que tu choisisses dans les propriétés de la combobox : MatchRequired = true

• Soit en dur dans les propriétés de la combobox
• Soit dans ton programme VBA

Citation:

---

Envoyé par mouftie

Comment récupérer les valeurs des cellules sélectionnées par l'utilisateur et non les adresses

---

Code:

---

Variable= Cells(x,x).Value

---

C'est sur que ça marche si c'est bien ce que tu cherches.

bonjour Neutthsch
merci de ta réponse.
il s'agit d'une InputBox (comme MsgBox) sans userform.

la gestion des erreurs

Code:

---

On Error GoTo 0

---

ne sert qu'à gérer l'utilisateur qui clique sur annuler dans la fenêtre

En ce qui concerne les valeurs a récupérer

Code:

---

Variable= Cells(x,x).Value

---

ma variable MonTab récupère une donnée de la forme "$C$18" ; je ne vois pas comment utiliser cell(x,x).Value ; comme je l'ai dit, range("A1") = MonTab(i).Value ne fonctionne pas.

Citation:

---

Envoyé par mouftie

la gestion des erreurs ne sert qu'à gérer l'utilisateur qui clique sur annuler dans la fenêtre

---

C'est ce que je disais donc, tu cherches à gérer un seul type d'erreur, hors On Error traite toutes les erreurs de la même façon en renvoyant le programme dans les cordes (0 ici) dès qu'il en rencontre une. C'est bien ce qui arrive ici, il traite ton bug programme comme un utilisateur qui clique sur annuler.

Je te conseille de le mettre en commentaire le temps de bien cerner ton programme et de rétablir à la toute fin.

Voilà pour ta demande, TableauSource est le tableau qui contient la colonne [Nom Actuel]:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim Plage As Range Dim i As Integer   Range("TableauSource[Nom Actuel]").Locked = False ' Je déverrouille les cellules de la colonne [Nom Actuel] ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'Je protège la feuille ActiveSheet.EnableSelection = xlUnlockedCells ' en ne rendant accessible que les cellules déverrouillées Set Plage = Application.InputBox("Sélectionnez une plage", "Sélection de cellules", Type:=8) ' C'est ton code mais la personne ne peut se balader que sur les cellules déverrouillées ActiveSheet.Unprotect ' et je retire la protection de la page   If Plage Is Nothing Then Exit Sub Else For Each MonTab In Plage.Cells ' Je me balade dans toutes les cellules (Identifiées tour à tour par MonTab) de Plage MsgBox MonTab.value ' MonTab est donc une cellule et je peux donc renvoyer sa valeur Range("N" & MonTab.Row + 1) = MonTab.value Next End If End Sub

---

bonjour Neutthsch,
Merci beaucoup pour ton aide, c'est exactement ce que j'avais demandé, et merci tout autant pour avoir pris le temps d'expliquer les actions.
Je te souhaite une excellente journée.