2 pièce(s) jointe(s)
Anomalie copier coller avec condition oui multi colonne
Pièce jointe 333391
bonjour je suis autodidacte en vba et je rencontre un petit problème:oops::oops::oops::oops:
il est le suivant
1 - j'ai deux feuille
2- dans ces deux feuille jai plusieurs tableau
Pièce jointe 333392
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:calim2::calim2::calim2::calim2:
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 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 |