Récupérer la donnée à partir de InputBox et exécuter la suite de la macro avec cette réponse

Bonjour,

À partir de l'exemple ci-dessous, je souhaiterais récupérer la donnée saisie dans une InputBox, et appliquer la suite de la macro en récupérant l'information saisie de la InputBox.
Je rencontre une erreur d'exécution à la ligne reprise dans la macro ci-dessous :

Code:

---

c = ActiveCell.Offset(0, réponse)

---

Code:

---

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

Sub Variations()   Cells(1,1).Select Selection.CurrentRegion.Select nb_ligne = Selection.Rows.Count Range(ActiveCell, Selection.End(xlToRight)).Select Selection.Name = "tete_de_ligne" Range("tete_de_ligne").Find("Portefeuilles concernés").Select   depart: réponse = InputBox("Taper le code portefeuille") For compteur 1 To Nb_ligne -1 ActiveCell.Offset(1,0).Select c = ActiveCell.Offset(0, réponse) If ActiveCell.Cells = c Then ActiveCell.Interior.ColorIndex = 44 End If Next compteur End Sub

---

Je ne vois pas comment corriger la macro.

Vous en remerciant par avance de l'aide apportée.

Cordialement.

Bonjour,

Si c'est vraiment un numéro de colonne que le InputBox te retourne, essaie ainsi

Code:

---

réponse = CLng(InputBox("Taper le code portefeuille"))

---

Cells attend un numérique comme numéro de colonne et Inputbox retourne une chaîne de caractères

PS: essaie d'éliminer tous les Select/Selection qui ne font que ralentir les macros...

Bonjour,

Dans le InputBox, je saisis le code du portefeuille.
La cellule active se décale vers le bas, cellule par cellule.
Si le code du portefeuille dans la cellule active est identique à celui que j'ai saisis dans le InputBox, colorie cette cellule en orange.

Dans la réponse apportée ci-dessus, Visual Basic indique un débogage à cette ligne :

Code:

---

c = ActiveCell.Offset(0, réponse)

---

Peux-tu également me montrer un exemple comment éliminer tous les Select/Selection qui ne font que ralentir les macros ?
Je ne vois pas comment éviter les erreurs de syntaxe dans VBA.

Merci par avance de ton aide

Cordialement.

Je ne suis pas certain de ce que tu cherches à faire, mais le code suivant va mettre en orange les cellules de la dernière colonne qui correspond à la réponse du Inputbox

Code:

---

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

Dim I As Long, nbLignes As Long, nbColonnes As Long Dim Reponse   nbLignes = Cells(Rows.Count, "A").End(xlUp).Row nbColonnes = Cells(1, Columns.Count).End(xlToLeft).Column   Reponse = InputBox("Taper le code portefeuille")   For I = 2 To nbLignes If Cells(I, nbColonnes) = Reponse Then Cells(I, nbColonnes).Interior.ColorIndex = 44 End If Next

---

Si le code est alphanumérique, tu pourrais vérifier sans te préoccuper de la casse

Code:

---

If LCase(Cells(I, nbColonnes)) = LCase(Reponse) Then

---

Tu pourras alors entrer un code en minuscule ou majuscule et la macro va le trouver.