Remplacer inputBox par un nom défini

[aubelix]

Bonjour à tous les amis du Forum. 🙂

Ci-joint code à transposer :
Comment remplacer l'inputBox par un nom défini: "Nb_jours_restants"
qui correspond aux valeurs qui auraient dûe être séléctionnées avec la souris.


Sub MFC()
Dim MaPlage As Range
On Error Resume Next
[D2].Select

Set MaPlage = Application.InputBox("Sélectionnez un plage", "Sélection d'une plage de données", "$D$2", Type:=8)

If Err.Number = 424 Then Exit Sub
For Each cell In MaPlage
Select Case cell
'inférieure ou égale à -14 jours (VERT)
Case Is < -13
cell.Interior.ColorIndex = 4
End Select
Next cell
End Sub

Par avance, Merci pour votre aide.
Cordialement.

 

[pierrejean]

Re : Remplacer inputBox par un nom défini

bonjour Aubelix

A tester:

[COLOR=blue]Set MaPlage =Range("Nb_jours_restants")[/COLOR]

 

[aubelix]

Re : Remplacer inputBox par un nom défini

Bonjour PierreJean. 🙂

Merci pour ta réponse.
Cela fonctionne très bien.

Cordialement.

 

[ROGER2327]

Re : Remplacer inputBox par un nom défini

Bonjour aubelix, pierrejean

Je ne suis pas certain d'avoir bien compris, mais c'est peut-être ceci :

[COLOR="DarkSlateGray"][B]Sub MFC()
Dim MaPlage As Range
Dim cell As Range
[COLOR="Sienna"]Dim Nb_jours_restants[/COLOR]
   On Error Resume Next
   [D2].Select
   Set MaPlage = Application.InputBox("Sélectionnez un plage", "Sélection d'une plage de données", "$D$2", Type:=8)
   [COLOR="Sienna"]Nb_jours_restants = MaPlage.Value[/COLOR]
   If Err.Number = 424 Then Exit Sub
   For Each cell In MaPlage
      Select Case cell
      [COLOR="SeaGreen"]'inférieure ou égale à -14 jours (VERT)[/COLOR]
      Case Is < -13
      cell.Interior.ColorIndex = 4
      End Select
   Next cell
End Sub[/B][/COLOR]

ROGER2327
#3160

 

[ROGER2327]

Re : Remplacer inputBox par un nom défini

Re...

Bonjour PierreJean. 🙂

Merci pour ta réponse.
Cela fonctionne très bien.

Cordialement.

Donc je n'avais pas compris. Oubliez !
​

ROGER2327
#3161

 

[aubelix]

Re : Remplacer inputBox par un nom défini

Bonjour Roger2327 et les amis du Forum. 🙂

Désolé pour la réponse tardive, problème de connection.
La réponse de PetitJean est ce que je recherchais.
J'avais trouvé ce code, qui obligeait à intervenir manuellement:
Reprenais toutes les valeurs sélectionnées par un inputbox avec nom de
variable MaPlage.

C'était le sens de ma question. Désolé, de ne pas avoir bien expliqué
mon problème.

Encore mille mercis à tous les bénévoles de ce site.
Cordialement.