Discussion :

[Yuliya_S.]

Bonjour,

J’ai besoin de votre précieuse aide. Malheureusement, je ne connais absolument pas les macros et vba. Mais pour mon travail dans le document avec le contrôle du contenu j’ai besoin de supprimer un paragraphe sur la page 5 du document à condition que sur la première page le numéro du contrat correspond à un numéro que je dois spécifier. Et dans le même cas il faut changer les conditions de paiement.

Au lieu de créer plusieurs words modèle selon le numéro du contrat, j’ai compris qu’on peut faire ça avec les macros ou insérer module avec code vba. Ce que j’ai trouvé sur internet ne fonctionne pas.

Est-il possible de m’aider , svp? D’avance merci!

[E KERGRESSE]

Bonjour,

Difficile de vous apporter une réponse sans fichier.

[Yuliya_S.]

Bonjour,

Difficile de vous apporter une réponse sans fichier.

Si je vous envoie, vous pourriez faire?

[E KERGRESSE]

Voir mon message en MP.

[E KERGRESSE]

Pour les CFC essayez ceci :

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
 
Sub IdentifierLesContentControls()
 
Dim I As Integer, J As Integer, IndexListe As Integer
Dim WdDoc As Document
Dim CfcEnCours As String
 
    Set WdDoc = ActiveDocument
    With WdDoc
         For I = 1 To .ContentControls.Count
             With .ContentControls(I)
                  If I = 1 And .Title = "CFC" Then
                     CfcEnCours = .Range.Text
                     For J = 1 To .DropdownListEntries.Count
                         If .DropdownListEntries(J).Text = CfcEnCours Then IndexListe = J
                     Next J
                  End If
                  If .Title = "CFC" Then
                     .DropdownListEntries(IndexListe).Select
                  End If
             End With
         Next I
    End With
    Set WdDoc = Nothing
 
End Sub

[E KERGRESSE]

Essayez ce 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
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
 
Option Explicit
 
Sub MajDocumentSelonCfc()
 
Dim WdDoc As Document
Dim I As Integer, J As Integer, IndexListe As Integer
Dim CfcEnCours As String
 
    Set WdDoc = ActiveDocument
    With WdDoc
 
         For I = 1 To .ContentControls.Count
             With .ContentControls(I)
                  If I = 1 And .Title = "CFC" Then
                     CfcEnCours = .Range.Text
                     For J = 1 To .DropdownListEntries.Count
                         If .DropdownListEntries(J).Text = CfcEnCours Then IndexListe = J
                     Next J
                  End If
                  If .Title = "CFC" Then
                     .DropdownListEntries(IndexListe).Select
                  End If
             End With
         Next I
 
         MajTablePage3 WdDoc, WdDoc.Tables(1), WdDoc.ContentControls(1).Range.Text
         MajTablePage5 WdDoc, WdDoc.Tables(3), WdDoc.ContentControls(1).Range.Text
 
    End With
    Set WdDoc = Nothing
 
End Sub
 
 
Sub MajTablePage3(ByVal WdDoc2 As Document, ByVal TableP3 As Table, ByVal CfcEnCours2 As String)
 
 
    With WdDoc2
         Select Case CfcEnCours2
                Case "112 - Démolitions", "170 - Travaux spéciaux", "200 - Excavation, fouilles, terrassement"
                     With TableP3.Range
                          .Cells(1).Range.Text = "90 %": .Cells(2).Range.Text = " En cours des travaux."
                          .Cells(3).Range.Text = "10 %": .Cells(4).Range.Text = " Après la réception des travaux et signature de l'arrêté de compte."
                          .Cells(5).Range.Text = " ": .Cells(6).Range.Text = " "
                     End With
                Case Else
                     With TableP3.Range
                          .Cells(1).Range.Text = "80 %": .Cells(2).Range.Text = " En cours des travaux."
                          .Cells(3).Range.Text = "10 %": .Cells(4).Range.Text = " Après la réception des travaux et signature de l'arrêté de compte."
                          .Cells(5).Range.Text = "10 % ": .Cells(6).Range.Text = " Quand toutes les conditions suivantes sont réunies :"
                     End With
        End Select
    End With
 
 
End Sub
 
 
Sub MajTablePage5(ByVal WdDoc2 As Document, ByVal TableP5 As Table, ByVal CfcEnCours2 As String)
 
 
    With WdDoc2
         Select Case CfcEnCours2
                Case "112 - Démolitions", "170 - Travaux spéciaux", "200 - Excavation, fouilles, terrassement"
                     With TableP5.Range
                          .Cells(1).Range.Text = " "
                     End With
                Case Else
                     With TableP5.Range
                          .Cells(1).Range.Text = "En acceptant l'adjudication, l'entrepreneur s'engage à participer aux frais communs au prorata de 1% du montant de ses travaux, tels que panneau de chantier, éclairage, nettoyage, grue, traitement des déchets, etc."
                     End With
        End Select
    End With
 
 
End Sub