Discussion :

[jbdu59139]

Bonjour

etant novice en macro, je souhaite reprendre sur excel la simulation que j'ai trouvé sur le site ci dessous :

http://mpauto.fr/CarrosserieDevis.php?GetNum=1

je n'arrive pas a comprendre comment en cliquant sur le bouton et ou cocher mettre en lien un prix referencé et le retrouver sur la somme des reparations.

D'avance merci pour votre aide
Jean baptiste

[ARTURO83]

Bonjour,

Exemple pour un clic sur le bouton "Pare choc AR"et en supposant que les tarifs soient en colonne K pour les éléments non abîmés et colonne L pour les éléments abîmés

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Pare_choc_AR()
    Application.ScreenUpdating = False
    Set c = Sheets("Devis").Columns("H").Find("pare choc AR", LookIn:=xlValues)
    If Not c Is Nothing Then
        If ActiveSheet.CheckBoxes("Case à cocher 3") = 1 Then 'élément pas abîmé
            Montant = Cells(c.Row, "L")
        Else 'élément abîmé
            Montant = Cells(c.Row, "K")
        End If
    End If
    [F58] = [F58] + Montant 'on ajoute le montant au total précédent
End Sub

A reproduire et à adapter pour chaque bouton

Cdlt

[jbdu59139]

Bonjour ARTURO83

merci pour ce retour. Ca fonctionne déja pas mal ^^

Par contre j'ai deux questions :
1/ comment bloquer le bouton pour n'effectuer qu'une impulsion. Et permettre de ne pas ajouter les sommes referencées a chaque click
2/comment figer une couleur quand le bouton a été selectionné

merci pour votre support

[ARTURO83]

Bonjour,

Je propose de mettre une couleur sur l'élément sélectionné (en colonne H), si on appui de nouveau sur le même bouton alors que la cellule est verte, l'action ne sera pas exécutée.
Par contre, en cliquant sur la création d'un nouveau devis, pensez à supprimer les couleurs.

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
Sub Pare_choc_AR()
    Dim montant As Double
    Application.ScreenUpdating = False
    Set c = Sheets("Devis").Columns("H").Find("pare choc AR", LookIn:=xlValues)
    If Cells(c.Row, "H").Interior.ColorIndex <> 4 Then 'si dans la liste colonne H, "Pare choc AR" n'est pas vert
        If Not c Is Nothing Then
            If ActiveSheet.CheckBoxes("Case à cocher 3") = 1 Then 'élément pas abîmé
                montant = Cells(c.Row, "L")
            Else 'élément abîmé
                montant = Cells(c.Row, "K")
            End If
        End If
        [F58] = [F58] + montant
        Cells(c.Row, "H").Interior.ColorIndex = 4 'dans la liste colonne H, on marque "Pare choc AR" en vert
    End If
End Sub

Cdlt

[jbdu59139]

Top jusque la, merci encore @ARTURO83

J'ai juste la selection "élement abimé" qui ne fonctionne plus lorsque je coche ...

[ARTURO83]

Bonjour,

Remplacez:

Code :

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

If ActiveSheet.CheckBoxes("Case à cocher 3") = 1 Then 'élément pas abîmé

par:

Code :

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

If ActiveSheet.CheckBoxes("Check Box 3") = 1 Then 'élément pas abîmé

Pensez aussi à désactiver toutes les cases à cocher lors de la réinitialisation pour un nouveau devis

Code :

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

1
2
3
4
5
6
7
8
Sub Desactiver_Cases_a_Cocher()
    For i = 1 To ActiveSheet.Shapes.Count
        ActiveSheet.Shapes(i).Select
        If Left(ActiveSheet.Shapes(i).Name, 9) = "Check Box" Then
           Selection.Value = xlOff
        End If
    Next i
End Sub

Cdlt