Boucle VBA 2 variables dont une en ligne

Version imprimable

Bonjour,

J'ai un nouveau soucis, je rempli un document Word rempli de signets à remplacer par des valeurs dans excel et là j'ai un tableau Word à remplir avec les données d'excel qui ne sont pas classées dans des colonnes mais sur la même ligne à 7 cellules d'intervalle.

Du coup j'ai essayé plein de choses notamment :

Code:

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
 
Sub Generer_PI_TY()
Dim NDF As String, NDF2 As String
Dim ligne As Integer: Dim colonne As Integer
Dim der_ligne As Integer: Dim der_colonne As Integer
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
    der_colonne = Cells.SpecialCells(xlCellTypeLastCell).Column
    der_ligne = Cells.SpecialCells(xlCellTypeLastCell).Row
    NDF = ActiveWorkbook.Path & "\Plan d'inspection tuyauterie.docx"
    NDF2 = Sheets("Générer un PI TY").Range("M3").Text & "\" & "D5370PIE" & Sheets("Générer un PI TY").Range("D2").Text & ".doc"
    On Error Resume Next
    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Open(NDF, ReadOnly:=False)
 
    With WordApp
        .Visible = True
        .Activate
        For I = 1 To 300
        For J = 1 To der_colonne Step 7
        WordApp.ActiveDocument.Bookmarks("TY" & I).Range.Text = Sheets("Générer un PI TY").Range(J + 4 & "20").Value
        Next J
        Next I
 End With
   WordDoc.Application.ActiveDocument.SaveAs NDF2
 
 
    Set WordDoc = Nothing
    Set WordApp = Nothing
 
    ActiveWorkbook.Close SaveChanges:=Nothing
End Sub

En gros dans mon tableau Word j'ai des signets TY1, TY2, etc... que je voudrais remplacer par les valeurs E20, L20, S20 (même ligne, toutes les 7 colonnes)
Je me dit que ça doit quand même être possible…

Merci d'avance à ceux qui essaieront de régler mon problème :)

Citation:

Envoyé par Gwelawen

Bonjour,

Et en modifiant comme ceci ?

Code:

1
2
3
4
5
6
 
        For I = 1 To 300
            For J = 5 To der_colonne Step 7
                WordApp.ActiveDocument.Bookmarks("TY" & I).Range.Text = Sheets("Générer un PI TY").Cells(20, J).Value
            Next J
        Next I

Ou plutôt comme cela ?

Code:

1
2
3
4
5
6
7
8
 
        j = 5
        For I = 1 To 300
           ' For J = 5 To der_colonne Step 7
                WordApp.ActiveDocument.Bookmarks("TY" & I).Range.Text = Sheets("Générer un PI TY").Cells(20, j).Value
                j = j + 7
           ' Next J
        Next I

06/04/2021, 17h41
Gwelawen

Ça ne me met que la valeur de la cellule E20 répétée dans tous les signets "TY"... :(
06/04/2021, 17h44
Invité

Citation:

Envoyé par Gwelawen

Citation:

En gros dans mon tableau Word j'ai des signets TY1, TY2, etc... que je voudrais remplacer par les valeurs E20, L20, S20 (même ligne, toutes les 7 colonnes)

Comment doit-on interpréter cette phrase ?

Désolée je n'avais pas vu le deuxième code, je ne l'ai vu qu'en publiant ma réponse… :oops:

Le code
Code:

1 2 3 4 5 6 7 j = 5 For I = 1 To 300 ' For J = 5 To der_colonne Step 7 WordApp.ActiveDocument.Bookmarks("TY" & I).Range.Text = Sheets("Générer un PI TY").Cells(20, j).Value j = j + 7 ' Next J Next I
fonctionne! Merci beaucoup ! Je me sens stupide j'ai pourtant essayé plein de choses qui ressemblaient à ça…

06/04/2021, 17h55
Invité

Citation:

Envoyé par Gwelawen

Pas grave, on bute souvent sur des problèmes de communication.