Discussion :

[Fdc_53]

Bonjour,

je débute,
J'arrive actuellement à fusionner des informations .xls vers un .doc

Je n'arrive pas à créer une boucle qui :
si une condition est respectée (par ex : "ok" dans une ligne) fusionne les informations de la ligne et passe à la ligne suivante et recommence,.. ainsi de suite jusqu’à la fin du tableau. Par ailleurs pour le moment ma valeur est fixe ici toujours la ligne 4.

Code vba :

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
'on ouvre le Word
Word_Ouvrir_document mon_doc_word, True
 
Word_Application.Activate
 
Word_Début_document
 
Word_Remplacer_texte "&n_appart0", Range("h4"), True
Word_Remplacer_texte "&code_appart0", Range("g4"), True
Word_Remplacer_texte "&adresse0", Range("f4"), True
Word_Remplacer_texte "&Nom0", Range("d4"), True
Word_Remplacer_texte "&Prenom0", Range("e4"), True
Word_Remplacer_texte "&date_d_entree0", Range("a4"), True
Word_Remplacer_texte "&date_de_sortie0", Range("b4"), True
Word_Remplacer_texte "&date_du_jour0", Range("c4"), True
 
'on enregistre
Word_Enregistrer_document_sous New_document

[Menhir]

Je n'ai pas tout à fait compris ton problème, mais si la difficulté est de faire une boucle, tu devrais lire ceci : http://silkyroad.developpez.com/vba/boucles/

[Fdc_53]

Merci,

j'ai résolu une partie de ma problématique

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
 
Sub boucle()
Feuil2.Select
i = 4
 
While Feuil2.Range("A" & i) <> ""
  Feuil2.Range("I" & i).Select
  If Feuil2.Range("I" & i) = 1 Then
    Call ma_macro
 
  End If
 
  i = i + 1
 
Wend
 
End Sub

Merci pour l'aide.