Copier données de 2 feuilles vers autre feuille avec 1 critère
Résolu
grincheux006
Messages postés
246
Date d'inscription
Statut
Membre
Dernière intervention
-
grincheux006 Messages postés 246 Date d'inscription Statut Membre Dernière intervention -
grincheux006 Messages postés 246 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Copier données de 2 feuilles vers autre feuille avec 1 critère
- Comment faire un livret avec des feuilles a4 - Guide
- Bruler feuille de laurier - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Supercopier 2 - Télécharger - Gestion de fichiers
- Comment supprimer une feuille sur word - Guide
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.
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
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
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>
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>
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