Copier données de 2 feuilles vers autre feuille avec 1 critère
Résolu
grincheux006
Messages postés
256
Statut
Membre
-
grincheux006 Messages postés 256 Statut Membre -
grincheux006 Messages postés 256 Statut Membre -
Bonjour,
Je vais essayer d'être clair. (j'en doute d'avance, désolé)
Dans le fichier ci-joint, j'aimerais que les données des feuilles "A non votant" et "P non votants" viennent se copier dans les feuilles "SLV 12" SLV 13" etc....etc... si même n° de SLV.
Je signale que ces données (dans les feuilles A non votant" et P non votants" sont issues d'une formule) et que si la manoeuvre consiste à recopier ces dernières dans les différentes feuilles SLV 12, SLV 13 etc..etc j'aimerais que cela soit en simple texte.
Enfin bref, faites pour le mieux et comme vous le feriez pour vous, et le plus simplement possible pour que je puisse le reproduire sur mon fichier réel.
https://www.cjoint.com/?3KxlLmiwFAX
D'avance merci
A très vite de vous lire
Je vais essayer d'être clair. (j'en doute d'avance, désolé)
Dans le fichier ci-joint, j'aimerais que les données des feuilles "A non votant" et "P non votants" viennent se copier dans les feuilles "SLV 12" SLV 13" etc....etc... si même n° de SLV.
Je signale que ces données (dans les feuilles A non votant" et P non votants" sont issues d'une formule) et que si la manoeuvre consiste à recopier ces dernières dans les différentes feuilles SLV 12, SLV 13 etc..etc j'aimerais que cela soit en simple texte.
Enfin bref, faites pour le mieux et comme vous le feriez pour vous, et le plus simplement possible pour que je puisse le reproduire sur mon fichier réel.
https://www.cjoint.com/?3KxlLmiwFAX
D'avance merci
A très vite de vous lire
4 réponses
-
Bonjour,
Mais ce problème n'a t il pas déjà été résolu dans cette discussion ? https://forums.commentcamarche.net/forum/affich-31064436-recup-donnees-d-1-feuille-sur-1-autre-feuille-avec-criteres
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir. -
Re,
Ok pour ma part je te regarde ça dans la soirée, mais tu aurais pu poursuivre la discussion initiale puisque ta demande est la continuité de la première
-
Bonjour
il manque des feuilles mes bon voila une macro
Sub Dispache()
Onglet = Array(Feuil3.Name, Feuil4.Name)
For X = LBound(Onglet) To UBound(Onglet)
Sheets(Onglet(X)).Select
Derlig = Range("A" & Rows.Count).End(xlUp).Row
Tlig = 1
For L = 2 To Derlig
Num = Val(Range("A" & L).Value)
If Num > 0 Then
Tlig = Tlig + 1
Else
Exit For
End If
Next
On Error Resume Next
For L = 2 To Tlig
Num = Val(Range("A" & L).Value)
If Num > 0 Then
Rows(L).Copy
Nlig = Sheets("SLV " & Num).Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("SLV " & Num).Range("A" & Nlig).PasteSpecial xlPasteValues
End If
Next
Next X
Application.CutCopyMode = False
End Sub
A+
Maurice -
Re,
Sans macro cela va être difficile et surtout il faudra utiliser des formules matricielles gourmandes en ressource ce qui va énormément ralentir les calculs et surtout alourdir considérablement le fichier
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.</signature>
