Discussion :

[guismoman33]

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
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Dim lavaleur1 As String
    Dim resultat1 As Single
    Dim resultat As Single
    Dim reprise As Single
    reprise = Cells(16, 4).Value
 
 
    If Target.Row <> 17 Or (Target.Column < 4 Xor Target.Column > 4) Then
    Exit Sub
    Else
 
    lavaleur1 = Target.Value
        resultat1 = reprise * 2
        resultat = resultat1
        Workbooks(1).Sheets(10).Range("D16").Value = resultat
        Workbooks(1).Sheets(10).Range("D21").Value = "1"
    End If
 
End Sub

1 // Voila mon programme...Mais ce qui est énervant c'est que j'aimerai que l'on clique sur la case en quiestion pour mutliplier par 2 la variable reprise...Mais la c'est dès que je la selectionne même avec le clavier il multiplie par deux et sa je n'aime pas...
2 // Une dernière question peut t-on dire je veu QU'on puisse cliquez qu'une fois!!!
J'ai pensez a deux solution :
-mettre une condition qui prend la case a l'initiale on la multiplie par deux, ensuite nous faisons une condition...Mais lorsque ma case va etre multiplier par deux ma variable initiale sera aussi changer donc je ne voit pas l'interet...
-Mettre une case a cocher mais je ne sais pas comment cela marche...
Et au faite si je veut faire 10 prgramme comme si dessus comment je differencie le titre ou la debut de mon programme...

[guismoman33]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CheckBox1_Click()
Dim lavaleur1 As String
    Dim resultat1 As Single
    Dim resultat As Single
    Dim reprise As Single
    reprise = Cells(16, 9).Value
    If CheckBox1 = True Then
    total = reprise * 2
    Workbooks(1).Sheets(10).Range("H16").Value = resultat
    Workbooks(1).Sheets(10).Range("H21").Value = "1"
    End If
 
End Sub

Ce code ne marche pas et je ne sais pas comment faire!!!!

[ouskel'n'or]

Ma réponse adaptée à ton pb

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address <> "$I$16" Then Exit Sub
    ActiveSheet.Shapes(1).Select
    With Selection
            If .Value = xlOn Then Cells(16, 9).Value = Cells(16, 9).Value * 2
    End With
End Sub

A+

Dis, quand tu veux répondre, n'ouvre pas une discussion, reste sur celle-ci STP. Sinon on est perdu -> Bouton "Ajouter une réponse"
J'ai fusionné les deux discussions

[ouskel'n'or]

Ta façon de demander n'incite pas à te répondre
Mais bon, tu seras peut-être plus courtois la prochaine fois (?) et il ne sera pas dit que j'ai écrit ça pour rien.
Pour faire ce que tu veux, tu dois affecter une macro à ton Checkbox -> Clic droit sur le checkbox -> Affecter une macro -> FautYmultiplierOuNon ... et tu places cette macro dans un module standard

Code :

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

1
2
3
4
5
6
7
Sub FautYmultiplierOuNon()
    ActiveSheet.Shapes(1).Select
    With Selection
        If .Value = xlOn Then Cells(16, 9).Value = Cells(16, 9).Value * 2
    End With
    Cells(16,9).select 'uniquement là pour désélectionner la check
End Sub

[ouskel'n'or]

Testé sur VBA 2003 et ça fonctionne chez moi ! Tu as d'autres objets sur ta feuille de calculs ?

[ouskel'n'or]

Ajoute une ligne après la sélection de la checkbox

Code :

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

1
2
    ActiveSheet.Shapes(1).Select
    MsgBox ActiveSheet.Shapes(1).Name' Ligne à ajouter

Si le nom n'est pas le bon alors l'index non plus. Tu dois utiliser le bon index
Pour le retrouver, tu peux faire

Code :

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

1
2
3
4
For each LeShape in Activesheet.shapes
     i = i + 1
     msgbox LeShape.name & " N° d'index " & i
Next

[ouskel'n'or]

Une cellule toute nue ne gère pas les événements (que sont MouseDown, MouseUp, KeyDown, KeyUp, etc.) Donc, l'idée d'un clic sur la cellule, faut oublier
Une checkbox ? Une idée de code (à adapter)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$D$10" Then Exit Sub
ActiveSheet.Shapes(1).Select
    With Selection
        If .Value = xlOff Then
            MsgBox "FAUX"
            ElseIf .Value = xlOn Then
            MsgBox "VRAI"
        End If
    End With
End Sub

Là, quand tu passes sur D10, ce qui conditionne l'action est la validation ou non de la checkbox. Tu adaptes

Quand aux 10 événements "Worksheet_SelectionChange", faut pas rêver... Un seul est suffisant, tu dois conditionner tes actions en fonction des cellules actives ou d'autres paramètres qu'il te reste à définir...
A+