VBA & mise en page

Bonjour à tous !
Je crée actuellement un fichier Excel qui va chercher dans une feuille des informations selon certaines conditions et vien copier/coller ces dernières dans un tableau sur une autre feuille.
Ayant créer une mise en page (une "feuille" à imprimer) j'aimerai que mon code "saute" certaines lignes (en l'occurence ligne 48, 49, 50).

Voici mon code:

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

Sub Recherche() Dim i As Long   Range(Worksheets("Feuil1").Range("C7"), Worksheets("Feuil1").Range("C7").End(xlDown)) = "" Range(Worksheets("Feuil1").Range("D7"), Worksheets("Feuil1").Range("D7").End(xlDown)) = "" Range(Worksheets("Feuil1").Range("E7"), Worksheets("Feuil1").Range("E7").End(xlDown)) = "" Range(Worksheets("Feuil1").Range("F7"), Worksheets("Feuil1").Range("F7").End(xlDown)) = "" Range(Worksheets("Feuil1").Range("G7"), Worksheets("Feuil1").Range("G7").End(xlDown)) = ""   For i = 3 To Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row   If Sheets("Feuil1").Range("O4") <> "" Then If Sheets("Feuil2").Range("H" & i) <> "Fait" Then   If Sheets("Feuil2").Range("F" & i) <> "" And Sheets("Feuil2").Range("F" & i) > Sheets("Feuil1").Range("O4") Then Sheets("Feuil1").Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Feuil2").Range("A" & i).Value Sheets("Feuil1").Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Feuil2").Range("B" & i).Value Sheets("Feuil1").Range("F" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Feuil2").Range("C" & i).Value Sheets("Feuil1").Range("G" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Feuil2").Range("F" & i).Value   ElseIf Sheets("Feuil2").Range("F" & i) = "" And Sheets("Feuil2").Range("E" & i) <> "" And Sheets("Feuil2").Range("E" & i) > Sheets("Feuil1").Range("O4") Then Sheets("Feuil1").Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Feuil2").Range("A" & i).Value Sheets("Feuil1").Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Feuil2").Range("B" & i).Value Sheets("Feuil1").Range("F" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Feuil2").Range("C" & i).Value Sheets("Feuil1").Range("G" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Feuil2").Range("E" & i).Value End if Next i End sub

---

Je vous remercie par avance ! :D

Bonjour,

En ajoutant un if dans ta boucle for.
If not ( i=... or i=...) then
le reste de tes instruction
end if

Bonjour,
Peux-tu être plus précis ? Que veux-tu dire par "sauter des lignes"? Est-ce que tu as fait tourner ton code? Est-ce que ta question concerne une erreur dans ton code?
Sauter une ligne signifie-t-il tout simplement ne pas écrire sur une ligne?
Commentaire sur ton code : tu ouvres 3 if, mais tu n'as qu'un seul end if --> il va y avoir un problème. Un If simple a la syntaxe suivante:

Code:

---

1 2 3

If condition Then action End If

---

ou

Code:

---

If condition Then action

---

Pourrais-tu indenter ton code pour qu'on comprenne mieux les différents If, stp.

Bonjour,
Avant toute chose merci pour votre retour très rapide.

Halaster08: Dans mon code la variable i définit la ligne qui est testée en Feuil2 et non pas la ligne ou l'on colle en Feuil1. Une condition sur i me ferait "sauter" des lignes uniquement dans les valeurs testées (en Feuil2) or je voudrais tester l'ensemble des valeurs puis copier l'ensemble des valeurs qui satisferait mes conditions mais ne pas les coller dans certaines lignes (en Feuil1).

Riaolle: J'ai en effet fait tourner mon code, ce dernier fonctionne correctement, cependant j'ai crée une présentation (cadres, titre, commentaires, ...) et mon code colle des valeurs en ligne à partir de la première cellule non vide (en partant d'en bas et en remontant). Afin de conserver ma présentation, j'aimerais que mon code ne colle les valeurs copier que dans une certaine plage de cellule ou qu'il saute, c'est-à-dire qu'il colle sur les lignes précédentes et colle sur les lignes suivantes (donc ne pas écrire sur certaines lignes).
Concernant les 3 if, en effet je n'ai collé ici qu'une partie de mon code et j'ai zappé 2 End If :?

J'espère être claire, et encore merci ! :D

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

Sub Recherche() Dim i As Long   Range(Worksheets("Feuil1").Range("C7"), Worksheets("Feuil1").Range("C7").End(xlDown)) = "" Range(Worksheets("Feuil1").Range("D7"), Worksheets("Feuil1").Range("D7").End(xlDown)) = "" Range(Worksheets("Feuil1").Range("E7"), Worksheets("Feuil1").Range("E7").End(xlDown)) = "" Range(Worksheets("Feuil1").Range("F7"), Worksheets("Feuil1").Range("F7").End(xlDown)) = "" Range(Worksheets("Feuil1").Range("G7"), Worksheets("Feuil1").Range("G7").End(xlDown)) = ""   For i = 3 To Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row   If Sheets("Feuil1").Range("O4") <> "" And Sheets("Feuil2").Range("H" & i) <> "Fait" Then   If Sheets("Feuil2").Range("F" & i) <> "" And Sheets("Feuil2").Range("F" & i) > Sheets("Feuil1").Range("O4") Then Sheets("Feuil1").Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Feuil2").Range("A" & i).Value Sheets("Feuil1").Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Feuil2").Range("B" & i).Value Sheets("Feuil1").Range("F" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Feuil2").Range("C" & i).Value Sheets("Feuil1").Range("G" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Feuil2").Range("F" & i).Value   ElseIf Sheets("Feuil2").Range("F" & i) = "" And Sheets("Feuil2").Range("E" & i) <> "" And Sheets("Feuil2").Range("E" & i) > Sheets("Feuil1").Range("O4") Then Sheets("Feuil1").Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Feuil2").Range("A" & i).Value Sheets("Feuil1").Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Feuil2").Range("B" & i).Value Sheets("Feuil1").Range("F" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Feuil2").Range("C" & i).Value Sheets("Feuil1").Range("G" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Feuil2").Range("E" & i).Value End if End if   Next i End sub

---

Je comprends pas très bien quelles sont tes conditions pour coller tes valeurs. Mais une chose est sûre : il faut que tu trouves une logique dans tes conditions. Est-ce que les lignes sur lesquelles il ne faut pas coller ont un certain numero de ligne (par exemple toutes les 10 lignes) ou est-ce qu'elles contiennent une certaine valeur (par exemple ligne où il y a écrit "TOTAL" en colonne A) ou ... ?
Ensuite, une fois que tu as trouvé la logique, tu créés une condition While sur la ligne --> tant qu'on n'a pas le droit de coller sur cette ligne, on va à la ligne suivante.

Citation:

---

Envoyé par A.Bounart

Halaster08: Dans mon code la variable i définit la ligne qui est testée en Feuil2 et non pas la ligne ou l'on colle en Feuil1. Une condition sur i me ferait "sauter" des lignes uniquement dans les valeurs testées (en Feuil2) or je voudrais tester l'ensemble des valeurs puis copier l'ensemble des valeurs qui satisferait mes conditions mais ne pas les coller dans certaines lignes (en Feuil1).

---

Au temps pour moi, je n'avais pas vu ce détail.
Tu peux copier ces lignes sur une feuille temporaire au début de la macro,laisser le copier coller les écraser, puis les remettre a la fin et supprimer la feuille temporaire.

edit: calculer

Code:

---

1 2	ligne = Sheets("Feuil1").Range("D" & Rows.Count).End(xlUp).Offset(1, 0).row if ligne >47 ligne = ligne + 3

---

et remplacer

Code:

---

Sheets("Feuil1").Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Feuil2").Range("A" & i).Value

---

par

Code:

---

Sheets("Feuil1").Range("D" & ligne).Value = Sheets("Feuil2").Range("A" & i).Value

---