Une coche automatique

[Valoche54000]

Bonsoir la communauté,

Je viens vers vous car je sèche sur la fin de mon projet.

Via 2 infos d'un onglet, il faut '' juste '' cocher 2 cellules automatiquement.

fichier joint : https://www.cjoint.com/c/HIhsKtjQBae

Merci beaucoup d'avance si faisable bien sur...... car je ne sais plus quoi faire.

 

[Valoche54000]

Bonjour !

Pas mal de forumers ont consulté ma question sans réponses.

Dites moi ce qui n'est pas clair , des détails à revoir, ou tout simplement non faisable car la vba en place bloquera.

je vais essayer d'éclaircir au mieux ce sujet:

Dans le premier onglet, je récupéres des datas ( range A2:E3 ) proviennent de site internet.
Aprés un premier traitement sous l'onglet '' Datas '' via divers formules excel sur 2 lignes uniquement les résultats G2:G3 et I2:I3 seront important pour travailler sur le second onglet '' DVK''

C2 et D3 sont représentés par X pour les 2 " règles " tableaux de l'onglet '' DVK ''

D2 et C3 sont représentés par Y pour les 2 " '' ''


La ligne 2 apportera les données de base pour la régle 1 sous '' DVK''

La ligne 3 apportera les données de base pour la régle 2 sous '' DVK''

Nous avons 3 possibilités de choix par ligne : ligne 2=> X , Y ou NUL en I2 ( Datas )

: ligne 3=> X , Y ou NUL en I3 ( Datas )

Dans l'onglet '' DVK '' nous pouvons voir 2 tableaux dont les intitulés sont :
- Régle n°1
- Régle n°2

A cet instant le choix de la case à cocher est manuelle.

Le résultat attendu, pour cet exemple , est que le résultat en I2 de l'onglet '' Datas '' coche automatiquement X dans la règle n°1 et que le résultat en I3 de l'onglet '' Datas '' coche automatiquement NUL dans la règle n°2 sous l'onglet'' DVK ''.

J’espère avoir été la plus claire possible.

Bon week-end.

 

[job75]

Bonjour Valoche54000,

A placer dans le code de la feuille "Datas" (clic droit sur l'onglet et Visualiser la code) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Variant
With Sheets("DVK")
    For i = 1 To 3
        .Shapes("Case d'Option A" & i).ControlFormat = False 'RAZ
    Next
    i = Application.Match([I2], Array("X", "Y", "NUL"), 0)
    If IsNumeric(i) Then .Shapes("Case d'Option A" & i).ControlFormat = True
    For i = 4 To 6
        .Shapes("Case d'Option B" & i).ControlFormat = False 'RAZ
    Next
    i = Application.Match([I3], Array("X", "Y", "NUL"), 0)
    If IsNumeric(i) Then .Shapes("Case d'Option B" & i + 3).ControlFormat = True
End With
End Sub

La macro s'exécute quand on modifie ou valide une cellule quelconque de la feuille.

A+

 

[Valoche54000]

Merci job75 !!!

Pile poil ce que je souhaitais

 

[Dranreb]

Bonjour.
Peut être avec cette procédure dans le module Feuil4 (DVK) :

Private Sub Worksheet_Activate()
Me.Shapes("Case d'option A" & [MATCH(Datas!I2,{"X";"Y";"NUL"},0)]).ControlFormat.Value = xlOn
Me.Shapes("Case d'option B" & [MATCH(Datas!I3,{"X";"Y";"NUL"},0)] + 3).ControlFormat.Value = xlOn
End Sub

 

[job75]

Bonjour Bernard,

Allons, il est pourtant évident que Datas!I2 et Datas!I3 peuvent aussi prendre les valeurs "" et #N/A.

A+

 

[Dranreb]

Alors On Error Resume Next pour que l'exécutilon ne plante pas ?

 

[job75]

Re,

Oui mais ce n'est pas suffisant, il faut d'abord désactiver toutes les cases d'option.

A+

 

[Dranreb]

Aucune ne doit être cochée dans ce cas ?

 

[job75]

Aucune ne doit être cochée dans ce cas ?

Cela paraît logique.