Case à cocher feuille excel

**rom1deh** · 25/09/2017, 08h47

Bonjour à tous,

Je viens vers vous car je ne sais pas comment procéder pour le renvois de réponse d'une case a cocher.

J'ai une feuil excel ou j'ai des cases a cocher qui me renvois Vrais Faux

Ces réponses sont importer via une macro sur ma base de donnée.

Voici un extrait du code.

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
 With Sheets("BDD")
            .Range("B" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("D10").Value
            .Range("C" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("D13").Value
            .Range("D" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("D14").Value
            .Range("E" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("D15").Value
            .Range("F" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("F13").Value
            .Range("G" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("F14").Value
            .Range("H" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("F15").Value
            .Range("I" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("I13").Value
            .Range("J" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("I14").Value
            .Range("K" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("I15").Value
            .Range("L" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("I10").Value
            .Range("M" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("M10").Value
            .Range("N" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("K13").Value
            .Range("O" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("K15").Value
            .Range("P" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("M13").Value
            .Range("Q" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("C19").Value
            .Range("R" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("E27").Value 
            .Range("S" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("E28").Value
            .Range("T" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("E29").Value
            .Range("U" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("E30").Value

Par exemple je voudrais que que la valeur de la cellule E27 soit = à correctif et non Vrais quand je la coche

Voici le code entier du module

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
Sub SaveInBDD()
On Error GoTo Fin
    Dim RowToWrite As Long
    Dim TESTROW As Range
    Dim Teste As Boolean
    'Valeur de base feuille une
    Dim Valsheetone As String
    'Valeur recherche dans la feuille deux
    Dim Valsheettwo As String
    'Find sert a sortir de la boucle de recherche, I et J servent a l'incrément
    Dim Find, K, J As Integer
 
        'Recherche du numéro de la ligne à ajouter
        If Sheets("Fiche d'intervention").Range("N1").Value = "" Then
            'Ceci permet de rechercher dans la colonne A le dernier numéros de la liste
            RowToWrite = Sheets("BDD").Range("A" & Rows.Count).End(xlUp).Row + 1
            'Le numéros de la colonne A trouver faire moins 1 pour lui atribuer le numéro décalage de 1
            Sheets("BDD").Range("A" & RowToWrite).Value = "FI" & RowToWrite - 1
        Else
            Set TESTROW = Sheets("BDD").Columns(1).Cells.Find(What:=Sheets("Fiche d'intervention").Range("N1").Value, LookAt:=xlWhole)
            RowToWrite = TESTROW.Row
        End If
        'Importation des écris de la fiche vers la base de données
        With Sheets("BDD")
            .Range("B" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("D10").Value
            .Range("C" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("D13").Value
            .Range("D" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("D14").Value
            .Range("E" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("D15").Value
            .Range("F" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("F13").Value
            .Range("G" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("F14").Value
            .Range("H" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("F15").Value
            .Range("I" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("I13").Value
            .Range("J" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("I14").Value
            .Range("K" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("I15").Value
            .Range("L" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("I10").Value
            .Range("M" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("M10").Value
            .Range("N" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("K13").Value
            .Range("O" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("K15").Value
            .Range("P" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("M13").Value
            .Range("Q" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("C19").Value
            .Range("R" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("E27").Value ' = Choose(CLng(CheckBox2.Value) + 2, "préventif", "")
            .Range("S" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("E28").Value
            .Range("T" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("E29").Value
            .Range("U" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("E30").Value
            .Range("V" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("G27").Value
            .Range("W" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("G28").Value
            .Range("X" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("I27").Value
            .Range("Y" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("I28").Value
            .Range("Z" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("I29").Value
            .Range("AA" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("I30").Value
            .Range("AB" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("N27").Value
            .Range("AC" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("N28").Value
            .Range("AD" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("N29").Value
            .Range("AE" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("N30").Value
            .Range("AF" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("C33").Value
            .Range("AG" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("M34").Value
            .Range("AH" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("M38").Value
            .Range("AI" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("C42").Value
            .Range("AJ" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("C52").Value
            .Range("AK" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("C53").Value
            .Range("AL" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("C54").Value
            .Range("AM" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("C55").Value
            .Range("AN" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("C56").Value
            .Range("AO" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("C57").Value
            .Range("AP" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("C58").Value
            .Range("AQ" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("C59").Value
            .Range("AR" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("C60").Value
            .Range("AS" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("C61").Value
            .Range("AT" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("H52").Value
            .Range("AU" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("H53").Value
            .Range("AV" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("H54").Value
            .Range("AW" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("H55").Value
            .Range("AX" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("H56").Value
            .Range("AY" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("H57").Value
            .Range("AZ" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("H58").Value
            .Range("BA" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("H59").Value
            .Range("BB" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("H60").Value
            .Range("BC" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("H61").Value
            .Range("BD" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("L52").Value
            .Range("BE" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("L53").Value
            .Range("BF" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("L54").Value
            .Range("BG" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("L55").Value
            .Range("BH" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("L56").Value
            .Range("BI" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("L57").Value
            .Range("BJ" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("L58").Value
            .Range("BK" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("L59").Value
            .Range("BL" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("L60").Value
            .Range("BM" & RowToWrite).Value = Sheets("Fiche d'intervention").Range("L61").Value
 
        End With
        'Tester des conditions pour importer sur la base de donnée
        With Sheets("Fiche d'intervention")
            .Range("N1").Value = Sheets("BDD").Range("A" & RowToWrite).Value
        End With
 
        If Application.CountIf(Range("E27:E30"), True) < 1 Then
            Teste = True
            MsgBox ("Manque information dans Type de maintenance")
        End If
        If Application.CountIf(Range("G27:I30"), True) < 1 Then
            Teste = True
            MsgBox ("Manque information dans Type de d'intervention")
        End If
        If Range("M34").Value = "" Then
            Teste = True
            MsgBox ("Manque information dans Temps d'intervention")
        End If
        If Range("C42").Value = "" Then
            Teste = True
            MsgBox ("Manque information dans Rapport d'intervention")
        End If
        If Range("M38").Value = "" Then
            Teste = True
            MsgBox ("Manque information date de fin d'intervention")
        End If
 
        If Teste = False Then
 
            'Initialisation des variables
            K = 1
            J = 1
            Valsheetone = Sheets("Fiche d'intervention").Range("N1").Value
 
            'Boucle de recherche de la valeur
            While Find = 0 And Valsheetone <> "" And K < 10000
                'Boucle de comparaison des valeur
                If Valsheetone <> Valsheettwo Then
                    'Incrément de I
                    K = K + 1
                    'Affecte la nouvelle valeur par rapport a I
                    Valsheettwo = Sheets("BDD").Range("A" & K).Value
                Else
                    'Si il sont égaux affecte la coueur verte à la ligne de la valeur
                    Sheets("BDD").Range("A" & K).EntireRow.Interior.Color = RGB(0, 205, 0)
                    'Permet de sortir du while
                    Find = 1
                End If
            Wend
                Range("N1").Interior.Color = RGB(0, 205, 0)
                If MsgBox("Etes-vous certain de vouloir enregistrer ?", vbYesNo + vbQuestion, "Demande de confirmation") = vbYes Then
                Enregistrement_PDF (RowToWrite)
 
            End If
        End If
Fin:
   ' MsgBox (" Il faut enlever le filtre sur la base de donnée ")
End Sub

je reste à votre disposition si vous avez besoin du fichier excel

Case à cocher feuille excel

Macros et VBA Excel

Mode arborescent

Discussions similaires

Partager

Partager