Copier à la suite et récupérer valeur
Fermé
Amesam
Messages postés
18
Date d'inscription
dimanche 2 décembre 2012
Statut
Membre
Dernière intervention
9 janvier 2018
-
8 janv. 2018 à 18:52
Amesam Messages postés 18 Date d'inscription dimanche 2 décembre 2012 Statut Membre Dernière intervention 9 janvier 2018 - 9 janv. 2018 à 13:37
Amesam Messages postés 18 Date d'inscription dimanche 2 décembre 2012 Statut Membre Dernière intervention 9 janvier 2018 - 9 janv. 2018 à 13:37
A voir également:
- Copier à la suite et récupérer valeur
- Recuperer video youtube - Guide
- Comment récupérer un compte facebook piraté - Guide
- Recuperer message whatsapp - Guide
- Récupérer photo instagram - Guide
- Recuperer mon compte gmail - Guide
3 réponses
yg_be
Messages postés
22624
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
28 mars 2024
1 461
Modifié le 8 janv. 2018 à 20:41
Modifié le 8 janv. 2018 à 20:41
bonsoir, pour la première partie de ta question, il me semble qu'il serait plus simple de récupérer les deux valeurs dans FICHE, puisqu'elles sont toujours à un endroit fixe.
pour la seconde partie, c'est possible, en effet. ce serait même plus simple à faire si tu as toutes les valeurs (I17, I47, ...) dans un tableau. ou si il suffisait d'insérer la nouvelle copie au bon endroit, les anciennes étant déjà triées.
combien as-tu de blocs de 30 lignes au total, environ?
pour la seconde partie, c'est possible, en effet. ce serait même plus simple à faire si tu as toutes les valeurs (I17, I47, ...) dans un tableau. ou si il suffisait d'insérer la nouvelle copie au bon endroit, les anciennes étant déjà triées.
combien as-tu de blocs de 30 lignes au total, environ?
Amesam
Messages postés
18
Date d'inscription
dimanche 2 décembre 2012
Statut
Membre
Dernière intervention
9 janvier 2018
3
Modifié le 8 janv. 2018 à 21:45
Modifié le 8 janv. 2018 à 21:45
Bonsoir,
Merci pour cette réponse.
Pour la première partie je ne peux pas extraire depuis la feuille FICHE.
Je m'explique : pour l'exemple donné je prends les cellules de FICHE que je copie dans Controle et je modifie dans Controle. Dans mon classeur plusieurs Controle qui sont en fait des clients, donc plusieurs feuille avec le nom des clients. FICHE et Controle sont pour l'exemple.
Combien de fiche et bien ça peut être plusieurs centaines pour certains et voir plusieurs milliers pour d'autres.
Voici un exemple :
https://cloudtag.io/hashtag/testxlsmccm
Merci.
Edit : J'ai pas réfléchit ! Je peux très bien modifier depuis FICHE !
Merci pour cette réponse.
Pour la première partie je ne peux pas extraire depuis la feuille FICHE.
Je m'explique : pour l'exemple donné je prends les cellules de FICHE que je copie dans Controle et je modifie dans Controle. Dans mon classeur plusieurs Controle qui sont en fait des clients, donc plusieurs feuille avec le nom des clients. FICHE et Controle sont pour l'exemple.
Combien de fiche et bien ça peut être plusieurs centaines pour certains et voir plusieurs milliers pour d'autres.
Voici un exemple :
https://cloudtag.io/hashtag/testxlsmccm
Merci.
Edit : J'ai pas réfléchit ! Je peux très bien modifier depuis FICHE !
Amesam
Messages postés
18
Date d'inscription
dimanche 2 décembre 2012
Statut
Membre
Dernière intervention
9 janvier 2018
3
Modifié le 8 janv. 2018 à 23:10
Modifié le 8 janv. 2018 à 23:10
En faisant ainsi ça fonctionne très bien, il faut que je supprime la mise en forme, si c'est bon.
Pour le tri des fiches je n'ai aucune idée.
Merci.
Edit : J'ai trouvé pour la copie sans mise en forme.
Bon plus qu'a trier le premier copiage dans le feuille Client.
Merci :o)
Sub Copie_ACORUS() Sheets("FICHE").Range("A1:K30").Copy Sheets("Client1").Range("A1048576").End(xlUp).Offset(4).Select ActiveSheet.Paste ' Copie : Vos références Sheets("FICHE").Range("H12").Copy Sheets("Client1").Range("M1048576").End(xlUp).Offset(1).Select 'Selection.PasteAndFormat Type:=wdFormatPlainText ActiveSheet.Paste ' Copie : Type Sheets("FICHE").Range("F13").Copy Sheets("Client1").Range("N1048576").End(xlUp).Offset(1).Select ActiveSheet.Paste ' Copie : Désignation Sheets("FICHE").Range("F14").Copy Sheets("Client1").Range("O1048576").End(xlUp).Offset(1).Select ActiveSheet.Paste ' Copie : N° SERIE Sheets("FICHE").Range("I16").Copy Sheets("Client1").Range("P1048576").End(xlUp).Offset(1).Select ActiveSheet.Paste ' Copie : Vos N° INTERNE Sheets("FICHE").Range("I17").Copy Sheets("Client1").Range("Q1048576").End(xlUp).Offset(1).Select ActiveSheet.Paste ' Copie : Anomalies Sheets("FICHE").Range("A27").Copy Sheets("Client1").Range("R1048576").End(xlUp).Offset(1).Select ActiveSheet.Paste End Sub
Pour le tri des fiches je n'ai aucune idée.
Merci.
Edit : J'ai trouvé pour la copie sans mise en forme.
Sub Copie_ACORUS() Sheets("FICHE").Range("A1:K30").Copy Sheets("Client1").Range("A1048576").End(xlUp).Offset(4).Select ActiveSheet.Paste 'Copie : Vos références Sheets("FICHE").Range("H12").Copy Sheets("Client1").Range("M1048576").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues I = ActiveSheet.UsedRange.Rows.Count Cells(I + 1, 1).PasteSpecial (xlPasteValues) ' Copie : Type Sheets("FICHE").Range("F13").Copy Sheets("Client1").Range("N1048576").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues I = ActiveSheet.UsedRange.Rows.Count Cells(I + 1, 1).PasteSpecial (xlPasteValues) ' Copie : Désignation Sheets("FICHE").Range("F14").Copy Sheets("Client1").Range("O1048576").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues I = ActiveSheet.UsedRange.Rows.Count Cells(I + 1, 1).PasteSpecial (xlPasteValues) ' Copie : N° SERIE Sheets("FICHE").Range("I16").Copy Sheets("Client1").Range("P1048576").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues I = ActiveSheet.UsedRange.Rows.Count Cells(I + 1, 1).PasteSpecial (xlPasteValues) ' Copie : Vos N° INTERNE Sheets("FICHE").Range("I17").Copy Sheets("Client1").Range("Q1048576").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues I = ActiveSheet.UsedRange.Rows.Count Cells(I + 1, 1).PasteSpecial (xlPasteValues) ' Copie : Anomalies Sheets("FICHE").Range("A27").Copy Sheets("Client1").Range("R1048576").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues I = ActiveSheet.UsedRange.Rows.Count Cells(I + 1, 1).PasteSpecial (xlPasteValues) Application.CutCopyMode = False End Sub
Bon plus qu'a trier le premier copiage dans le feuille Client.
Merci :o)
Amesam
Messages postés
18
Date d'inscription
dimanche 2 décembre 2012
Statut
Membre
Dernière intervention
9 janvier 2018
3
9 janv. 2018 à 13:37
9 janv. 2018 à 13:37
Bonjour,
Si quelqu'un à une idée je suis preneur.
Merci.
Si quelqu'un à une idée je suis preneur.
Merci.