Discussion :

[Marc175330]

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 :

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

[mjpmjp]

bonjour,

peut être :

Code :

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

d = range(colonne2 & i).Value

@+JP

[patricktoulon]

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 :

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

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

[pijaku]

Bonjour,

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

Code :

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

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.

[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,

[patricktoulon]

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"