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

[unparia]

Bonjour
Il est clair et super-évident que ta seconde boucle écrase les valeurs des cellules A1 à Cx (ou x = nombreligne) inscrites par ta 1ère boucle !
Tes deux boucles traient les mêmes cellules d destination ! Et (comme avec un certain roi -Louis XVI pour ne pas le nommer) "le dernier qui a parlé a raison"...

[patricktoulon]

re

je soupconne un copier coller sans compréhention

c'est quoi ton derlig il sert a quoi ?

il manque le debut et certainement la fin de la macro

en tout cas la synteze de ligne ayant "oui" dans une colonne definie de deux sheets ne demandent pas un tel toin toin
un simple filtre appliqué sur sheet1 et le sheets2 quel qu'ils soit et un copy destination et on peut faire la sieste et basta