Discussion :

[lou89]

Bonjour,
J'ai besoin que selon une condition que soit copié toutes les lignes d'un tableau qui remplissent la condition.
Avec le code suivant, cela me copie uniquement la dernière ligne remplissant la condition alors qu'il 'y en a beaucoup plus.

Je n'arrive pas à voir où est le problème dans mon code ci-dessous

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 Sub FicheOrg()
  Application.ScreenUpdating = False
 
  Worksheets("Ensemble").Activate
 
 
 Worksheets("Feuil4").Range("C5:M20000").Delete
 Dim c As String, a As String, o As Range
 Set FiOrg = ActiveWorkbook.Sheets("Feuil4")
 Set BdOLS = ActiveWorkbook.Sheets("Ensemble")
 
 c = FiOrg.Range("A6").Value
 
'Sélectionner toute les lignes si territoire à exporter
BdOLS.Activate
 
Range("EPT_Terr").Select
For Each o In Selection
a = o.Row
If o.Value = c And Cells(a, 1) > 0 Then
 
'Copier la ligne dans formulaire
BdOLS.Range(Cells(a, 2), Cells(a, 8)).Copy
FiOrg.Cells(FiOrg.UsedRange.Rows.Count + 1, 3).PasteSpecial Paste:=xlPasteAll, Transpose:=False
Application.CutCopyMode = False
End If
Next o
 
Application.ScreenUpdating = False
 
 
End Sub

Pourriez-vous m'aider ?
Merci beaucoup

[a_diard]

Je suppose que ("EPT_Terr")

est une zone nommée dans BdOLS

Merci de confirmer ou pas.....

en activant la macro en pas a pas du devrais trouver

l'origine du problème.

[lou89]

Bonjour,
Merci pour votre retour.
oui, il s'agit d'une colonne de mon tableau/
Le pas à pas ne m'indique pas d'erreurs. car la macro arrive à se générer mais ne produit pas le "bon résultat": en effet, elle copie la dernière ligne alors que je cherche à avoir toutes les lignes de la sélection.
Merci de votre aide!

[mfoxy]

Bonjour,

Ce billet de Pierre Fauconnier, remplirait très bien le job, et ce sans une ligne de code Vba.

https://excel.developpez.com/actu/27...re-Fauconnier/

Bat,
MFoxy