Discussion :

[formidable78]

Bonjour à tous,

Un p'tit problème technique qui ne me parait pas si compliqué et sur lequel je bute depuis quelques jours....! !!!!

J'ai dans un onglet d'excel différents checkbox, l'utilisateur du fichier doit cocher une checkbox puis cliquer sur un bouton pour lancer la procédure. L'idée étant qu'en fonction du checkbox coché, une image différente est collée sur l'onglet.

J'ai nommé chaque checkbox img + 1 nombre, j'ai donc img10, img11, img12,...

Pour savoir quelle case est cochée je fais une boucle comme ci-dessous, à chaque passage de la boucle, je souhaite voir si le contrôle est coché ou non.
je veux donc vérifier la valeur de img10 puis celle de img11, etc, d'où le besoin de concatener img et i et le .value

Quelqu'un a-t-il déjà eu à faire ce genre de chose ou une idée lumineuse qui pourrait m'aider.....

Merci beaucoup

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub lancement_Click()
 
For i = 10 To 11
 
If img & i & .Value = True Then
 
ActiveSheet.Range("D63").Value = Right(img & i & .Name, 2)
Else
 
End If
 
Next i
 
End Sub

[ouskel'n'or]

Ton checkbox est un OleObject. En tant que tel, tu dois utiliser Caption et le code de l'aide en ligne.

Code :

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

1
2
3
4
5
        If ActiveSheet.OLEObjects("bidule" & i).Object.Value = True Then
            ActiveSheet.Range("D3").Value = Right(ActiveSheet.OLEObjects("bidule" & i).Object.Caption, 2)
          Else
 
        End If

Bonne nuit

[formidable78]

Bonjour ouskel'n'or

Un grand merci pour ta réponse expresse !!!!

Ca marche nickel !!!

Merci beaucoup