Discussion :

[tienne1]

Bonjour a tous.

Je suis en train de travailler sur un code depuis qq heures et je bute sur qqchose. Pour vous expliquer, j'ai reussi a afficher par ligne 3 option button. en fonction de celui qui est cocher par ligne, j'aimerai que cela me renvoie dans une colonne 2 valeurs situer cote-cote ds mon fichier excel. Donc, en gros, j'ai 6 colonnes (3 pr le min et 3 pr le max) En fonction de l'option button cocher, j'aurais une derniere colonne qui m'affichera en fonction de l'option button cocher , le min et le max.
ci dessous le code:

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
32
33
34
35
36
37
38
 
Sub Macro6()
'
' Macro6 Macro
' Macro enregistrée le 22/10/2006 par Admin
'
 
'
 
ActiveSheet.OptionButtons.Delete
ActiveSheet.GroupBoxes.Delete
i = 1
j = 36
While i < 60
 
 
    ActiveSheet.OptionButtons.Add(59.25, j, 24, 17.25).Select
   Selection.Characters.Text = ""
    OptionButtons.Value = True
    ActiveSheet.OptionButtons.Add(89.25, j, 24, 17.25).Select
    Selection.Characters.Text = ""
 
 
    ActiveSheet.OptionButtons.Add(119.25, j, 24, 17.25).Select
    Selection.Characters.Text = ""
 
    With Selection
.Value.xlOff
        .LinkedCell = "D" & "Sheet1!" & .Cells(i, 4).Address
        .Display3DShading = False
    End With
 
   ActiveSheet.GroupBoxes.Add(45.75, j - 2, 114, 34.5).Select
   GroupBoxes.Text = ""
    i = i + 1
    j = j + 30
    Wend
End Sub

J'aimerais savoir comment faire le lien avec les differentes cellules.
Merci par avance pour votre aide.

[aalex_38]

Bonjour,

Si tu as le numéro de ligne un exemple:

Code :

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

1
2
3
4
5
Dim Lig as long, col as integer
lig = 1
col = 1
Cells(lig,col) = "ce que tu veux"
cells(lig,col + 1 = "LaColonne a côté"

[tienne1]

Merci pr ta reponse.
En effet, c'est bien cells qu'il faut que j'utilise mais je n'arrive pas a selectionner tel ou tel colonne en fonction de l'optionbutton cocher. Je me doute qu'il faut que je mette ce au'il me manque ds le "with .... end with" mais je ne vois pas du tt comment appeler les colonnes au niveau de ma boucle.
Regarde sur mon fichier, j'aimerai avoir mon resultat ds la derniere colonne en fonction de l'optionbutton cocher: par exemple, on coche le 1er boutton et la valeur des 2 premieres colonnes s'affiche ds ma derniere colonne.
Merci en tt cas de ton aide.