Discussion :

[cyroulette]

bonjour à tous je me suis fais un formulaire pour renseigner des machines avec differentes infos, en fonction du numero de la machine j'arrive à faire réapparaitre toutes les données affectées à un numéro de machine mais j'aimerais rajouter des case à cocher dans mon formulaire, cela va m'inscrire vrai ou faux dans mon tableau associé au formulaire mais comment faire si je rappelle une machine que cela me coche ou décoche la case en fonction de la machine associée. car la ce n'est plus des cellules mais un objet nserré.
marci d'avance de vos réponse

[Pierre Fauconnier]

Salut

Il faudrait un peu plus de détails:

• copie d'écran;
• code déjà écrit;
• ...

[cyroulette]

Salut

Il faudrait un peu plus de détails:

• copie d'écran;
• code déjà écrit;
• ...

En code j'ai beaucoup par ressemblance et avec les forum je suis novice en vba

[cyroulette]

GMAO-MDL1111111.xlsm
bonsoir,
voici mon fichier
cela se trouve dans la rubrique machine, tout est grisé sauf la case numero machine je tape un numéro de machine dedans et cela me mets les renseignement de la machine toujour en lassant les cases grisée.
je fais ajouter/modifier cela me dégrise les cases et je peux ainsi modifier les données si la machines existent ou alors en rajouter une et je fais valider pour enregistrer les modif.
ce que j'aimerais faire c'est rajouter des cases à cocher qui aurait le même comportement à savoir se cocher si la valeur à été enregistrer cocher lors de l'enregistrements

[cyroulette]

bonsoir,
en fait voici le code que j'utilise pour faire matcher les cellules, peut-on faire le même genre de code pour une case à cocher ?

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
If Target.Address = "$D$6" Then
 
    On Error Resume Next
    Sheets("machines").ShowAllData
    On Error GoTo 0
 
    Sheets("machines").Rows("1:1048576").EntireRow.Hidden = False
    Sheets("machines").Columns("A:XFD").EntireColumn.Hidden = False
 
    On Error Resume Next
    num_ligne = Application.WorksheetFunction.Match(Sheets("formulaire machines").Range("D6"), Sheets("machines").Range("B:B"), 0)
    On Error GoTo 0
 
    If num_ligne > 0 Then
 
        Sheets("formulaire machines").Range("D8") = Sheets("machines").Range("C" & num_ligne)
        Sheets("formulaire machines").Range("F6") = Sheets("machines").Range("D" & num_ligne)
        Sheets("formulaire machines").Range("F8") = Sheets("machines").Range("E" & num_ligne)
        Sheets("formulaire machines").Range("F10") = Sheets("machines").Range("F" & num_ligne)
        Sheets("formulaire machines").Range("I6") = Sheets("machines").Range("G" & num_ligne)
        Sheets("formulaire machines").Range("I8") = Sheets("machines").Range("H" & num_ligne)
        Sheets("formulaire machines").Range("K6") = Sheets("machines").Range("J" & num_ligne)
        Sheets("formulaire machines").Range("K8") = Sheets("machines").Range("K" & num_ligne)
        Sheets("formulaire machines").Range("N7") = Sheets("machines").Range("L" & num_ligne)
        Sheets("formulaire machines").Range("D12") = Sheets("machines").Range("I" & num_ligne)
        Sheets("formulaire machines").Range("I12") = Sheets("machines").Range("M" & num_ligne)
        Sheets("formulaire machines").Range("K12") = Sheets("machines").Range("Q" & num_ligne)
        Sheets("formulaire machines").Range("I14") = Sheets("machines").Range("N" & num_ligne)
        Sheets("formulaire machines").Range("K14") = Sheets("machines").Range("O" & num_ligne)
        Sheets("formulaire machines").Range("I16") = Sheets("machines").Range("P" & num_ligne)