Discussion :

[BtjpsspgrW]

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.

[parmi]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[BtjpsspgrW]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[parmi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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