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 : Sélectionner tout - Visualiser dans une fenêtre à part
c = ActiveCell.Offset(0, réponse)
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
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.