Copier données de 2 feuilles vers autre feuille avec 1 critère
Résolu/Fermé
grincheux006
Messages postés
246
Date d'inscription
lundi 15 août 2011
Statut
Membre
Dernière intervention
8 septembre 2019
-
23 nov. 2014 à 11:31
grincheux006 Messages postés 246 Date d'inscription lundi 15 août 2011 Statut Membre Dernière intervention 8 septembre 2019 - 24 nov. 2014 à 08:15
grincheux006 Messages postés 246 Date d'inscription lundi 15 août 2011 Statut Membre Dernière intervention 8 septembre 2019 - 24 nov. 2014 à 08:15
A voir également:
- Copier données de 2 feuilles vers autre feuille avec 1 critère
- Feuille de pointage excel - Télécharger - Tableur
- Copier une vidéo youtube - Guide
- Word numéro de page 1/2 - Guide
- Feuille a5 - Guide
- Fusionner feuilles excel - Guide
4 réponses
Mike-31
Messages postés
18309
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
14 mars 2024
5 072
Modifié par Mike-31 le 23/11/2014 à 12:18
Modifié par Mike-31 le 23/11/2014 à 12:18
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.
Mike-31
Messages postés
18309
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
14 mars 2024
5 072
23 nov. 2014 à 13:14
23 nov. 2014 à 13:14
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
grincheux006
Messages postés
246
Date d'inscription
lundi 15 août 2011
Statut
Membre
Dernière intervention
8 septembre 2019
7
23 nov. 2014 à 13:45
23 nov. 2014 à 13:45
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+
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
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
246
Date d'inscription
lundi 15 août 2011
Statut
Membre
Dernière intervention
8 septembre 2019
7
23 nov. 2014 à 13:34
23 nov. 2014 à 13:34
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
Désolé mais merci quand même de ta réponse
Mike-31
Messages postés
18309
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
14 mars 2024
5 072
Modifié par Mike-31 le 24/11/2014 à 08:11
Modifié par Mike-31 le 24/11/2014 à 08:11
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>
grincheux006
Messages postés
246
Date d'inscription
lundi 15 août 2011
Statut
Membre
Dernière intervention
8 septembre 2019
7
24 nov. 2014 à 08:15
24 nov. 2014 à 08:15
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
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
Modifié par grincheux006 le 23/11/2014 à 12:35
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