Discussion :

[PYRO206]

bonjour je suis autodidacte en vba et je rencontre un petit problème

il est le suivant
1 - j'ai deux feuille
2- dans ces deux feuille jai plusieurs tableau

2-chaque tableau pocede une colonne exporter dont la condition est oui

je souhaiterais faire une synthese de mais deux feuille et ne récupérer que les colonnes dont la value est oui

mon code ne fonctionne que sur le premier tableau après plus rien

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
 
Const nomFO = "TEMPORAIRE" ' nom de la feuille Origine 1
Const nomFO2 = "GLOBAL" ' nom de la feuille Origine 1
Const nomFD = "TEST" ' nom de la feuille Destination
 
Sub TEST_fin()
 
Dim NombreLigne As Integer
Dim derlign As Integer
NombreLigne = InputBox("Nombre de ligne à traiter ?")
derlign = 0
 
For i = 1 To NombreLigne
    If Sheets(nomFO).Cells(i, 25) = "Oui" Then
     Sheets(nomFD).Cells(i, 1).Value = Sheets(nomFO).Cells(i, 1).Value
    Sheets(nomFD).Cells(i, 2).Value = Sheets(nomFO).Cells(i, 23).Value
    Sheets(nomFD).Cells(i, 3).Value = Sheets(nomFO).Cells(i, 24).Value
    derLg = derLg + 1
End If
    Next i
 
For b = 1 To NombreLigne
 If Sheets(nomFO).Cells(b, 37) = "Oui" Then
    Sheets(nomFD).Cells(b, 1).Value = Sheets(nomFO).Cells(b, 1).Value
    Sheets(nomFD).Cells(b, 2).Value = Sheets(nomFO).Cells(b, 35).Value
    Sheets(nomFD).Cells(b, 3).Value = Sheets(nomFO).Cells(b, 36).Value
    derLg = derLg + 1
End If
    Next b
 
For c = 1 To NombreLigne
 If Sheets(nomFO2).Cells(c, 27) = "Oui" Then
 
 Sheets(nomFD).Cells(c, 1).Value = Sheets(nomFO2).Cells(c, 1).Value
 Sheets(nomFD).Cells(c, 2).Value = Sheets(nomFO2).Cells(c, 25).Value
 Sheets(nomFD).Cells(c, 3).Value = Sheets(nomFO2).Cells(c, 26).Value
    derLg = derLg + 1
End If
    Next c