[aide] Problème sur une macro

Version imprimable

Bonsoir,

J'aurai besoin d'aide sur une macro,

je souhaite récupérer la valeur de la cellule de la colonne2 lorsque la cellule de colonne1 correspond à un critère.
Sachant que les variables colonne sont alimentées par un OptionButton sytle "Colonne: A , B, C .."
J'ai un problème avec la ligne 26 je ne comprends pas pourquoi.

Je vous remercie pour vos réponses.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Private Sub CommandButton5_Click()
    Dim colonne1 As String, colonne2 As String
 
    'Boucle pour chaque contrôle de Frame_colonne
    For Each bouton_FRAME1 In Frame1.Controls
        If bouton_FRAME1.Value Then
           'La variable "colonne" prend comme valeur le texte du bouton
           colonne1 = bouton_FRAME1.Caption
        End If
    Next
 
For Each bouton_FRAME4 In Frame4.Controls
        If bouton_FRAME4.Value Then
           'La variable "colonne" prend comme valeur le texte du bouton
           colonne2 = bouton_FRAME4.Caption
        End If
        Next
 
Dim cel As Range, i As Long
 
For Each cel In Range(colonne1 & ":" & colonne1)
i = cel.Row
Select Case True
Case cel Like "60*"
d = cel(colonne2 & i).Value
End Select
Next cel
 
MsgBox d
End Sub

14/05/2017, 20h59
mjpmjp

bonjour,

peut être :

Code:

d = range(colonne2 & i).Value

@+JP

bonjour
a mon avis c'est plutôt un probleme de compréhention de ton environnement tu t'est complètement emmêlé les pinceaux

ces quelques lignes n'ont ni queue ni sens voir commentaire
Code:

1 2 3 4 5 6 7 8 For Each cel In Range(colonne1 & ":" & colonne1) i = cel.Row Select Case True'select case quoi true ?????????????????? Case cel Like "60*"'' 'ici maintenant tu test si la valeur demarre par 60 hey??????????? d = cel(colonne2 & i).Value'ici maintenat tu fait comme si cel était une variable tableau ou "cells" 'heu....??????? cel est incrementée par la boucle elle meme c'est donc cel tout court End Select Next cel
bref comme ca a aucun sens je ne pui aller plus loin si ce n'est que te conseiller de revoir tes bases en vba

15/05/2017, 07h49
pijaku
Bonjour,

@Marc175330 :
Un Select Case (True ou pas) avec un seul Case est inutile.
Code:

1 2 3 For Each cel In Range(colonne1 & ":" & colonne1) If cel Like "60*" Then d = Range(colonne2 & cel.Row).Value: Exit For Next cel
Bien sur à condition que colonne1 et colonne2 sont bien complétée de valeurs de colonnes valides ("A", "B", "V", ... "AC" etc...)
N'oublie pas non plus les Exit For dans chacune de tes boucles pour sortir lorsque trouvé...
Surtout dans la boucle sur ta colonne ENTIERE... (peut-être revoir cet aspect).

@Patrick : Select Case True permet, entres autres choses, d'utiliser l'opérateur Like dans un Select Case.
Si si ça existe.
15/05/2017, 11h25
Marc175330

bonjour,

@pijaku et @mjpmjp :

Merci pour vos contributions, vos solutions fonctionnent.
J'ai adapter le range pour que la boucle ne s'effectue pas sur toute la colonne mais que de la première à la dernière ligne non vide de la colonne.
J'utilisais un seul case seulement dans le but d'effectuer un test la macro final comporte plusieurs case.

Bonne journée,
15/05/2017, 12h12
patricktoulon

re

Bonjour
ok pijaku pour le case true je ne m'en était jamais servi comme ca

mais il y avait bien un soucis au niveau de l'interprétation de l'object "cel"
15/05/2017, 12h13
pijaku

Bonjour Patrick,

Citation:

Envoyé par patricktoulon

mais il y avait bien un soucis au niveau de l'interprétation de l'object "cel"

On est bien d'accord.