Copier données de 2 feuilles vers autre feuille avec 1 critère [Résolu/Fermé]

Signaler
Messages postés
247
Date d'inscription
lundi 15 août 2011
Statut
Membre
Dernière intervention
8 septembre 2019
-
grincheux006
Messages postés
247
Date d'inscription
lundi 15 août 2011
Statut
Membre
Dernière intervention
8 septembre 2019
-
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

4 réponses

Messages postés
17021
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
24 février 2020
3 832
Bonjour,

Mais ce problème n'a t il pas déjà été résolu dans cette discussion ? https://www.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.
grincheux006
Messages postés
247
Date d'inscription
lundi 15 août 2011
Statut
Membre
Dernière intervention
8 septembre 2019
2
Pas avec ces nouvelles feuilles, et je n'arrive pas à le faire en utilisant les formules déjà utilisées.
Surtout pour cumuler sur les feuilles "SLV 12" "SLV 13" etc, les éléments des 2 feuilles "A non votant" et "P non votant" avec 1 critère
Merci
Messages postés
17021
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
24 février 2020
3 832
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
grincheux006
Messages postés
247
Date d'inscription
lundi 15 août 2011
Statut
Membre
Dernière intervention
8 septembre 2019
2
Excuse je n'avais pas pensé à cette solution.
Je viens donc de relancer l'autre auprès de celui qui m'avait fait ce fichier.
En effet, celui là n'est pas le tien car je préfèrerait continuer avec celui là sans VBA.

A+
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
grincheux006
Messages postés
247
Date d'inscription
lundi 15 août 2011
Statut
Membre
Dernière intervention
8 septembre 2019
2
Mille excuses Maurice mais j'ai oublié de préciser sans macro, car je ne maitrise vraiment pas.
Désolé mais merci quand même de ta réponse
Messages postés
17021
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
24 février 2020
3 832
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>
grincheux006
Messages postés
247
Date d'inscription
lundi 15 août 2011
Statut
Membre
Dernière intervention
8 septembre 2019
2
Ok Mike-31.
Alors je ne change rien et je me contenterai des solutions que tu as déjà eu la gentillesse de me fournir.
Bonne journée.

A+ peut être