Macro
Fermé
Claire
-
3 nov. 2016 à 09:48
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 4 nov. 2016 à 16:53
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 4 nov. 2016 à 16:53
A voir également:
- Macro
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Macro Recorder - Télécharger - Divers Utilitaires
- Macro word - Guide
- Macro souris ✓ - Forum Windows
3 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
3 nov. 2016 à 10:22
3 nov. 2016 à 10:22
Bonjour,
Une facon de faire:
Une facon de faire:
Sub copie()
With Worksheets("feuil1") 'adaptez le nom de la feuille
derlig = .Range("A" & Rows.Count).End(xlUp).Row 'derniere cellule non vide colonne A
'copie valeurs
'adaptez le nom de la feuille, derniere ligne-40: 41, colonne Z: 26 adptez la derniere colonne
Worksheets("feuil2").Range("A1").Resize(41, 26) = .Range("A" & derlig - 41 & ":Z" & derlig).Value
End With
End Sub
Cellule A191 de la feuille "358.1"
Sachant que ce mot "Recapitulatif1" pour changer de ligne.
Sachant que ce mot "Recapitulatif1" pour changer de ligne.
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
3 nov. 2016 à 15:31
3 nov. 2016 à 15:31
Re,
Ben oui, c'est un texte dans une cellule, pas un nom de cellule
Vous voulez que le texte ou le format avec
Ben oui, c'est un texte dans une cellule, pas un nom de cellule
Vous voulez que le texte ou le format avec
Dsl pour le mal entendu.
Le format avec si possible svp!
Merci ;-)
Le format avec si possible svp!
Merci ;-)
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
3 nov. 2016 à 15:41
3 nov. 2016 à 15:41
Re,
code puisque vous ne pouvez pas ouvrir un fichier exterieur
code puisque vous ne pouvez pas ouvrir un fichier exterieur
Sub Recap()
With Worksheets("358.1")
Adr = .Columns(1).Find("Recapitulatif1", .Cells(1, 1), , xlWhole).Row
derlig = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A" & Adr & ":H" & derlig).Copy Worksheets("Comparatif").Range("A1").Resize(derlig + 1 - Adr, 8)
End With
End Sub
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
>
Claire
3 nov. 2016 à 15:49
3 nov. 2016 à 15:49
A demain
Claire
>
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
4 nov. 2016 à 09:27
4 nov. 2016 à 09:27
Hello!
Super ça fonctionne très bien! Merci
Maintenant j'aimerais ajouter a la suite de cette macro dans "comparatif" un autre récapitulatif.
En fait j'ai un autre onglet "358.2" avec une récap a la fin et j'aimerais qu'elle se copie en dessous de la recap de l'onglet "358.1" dans "Comparatif".
Je sais pas si c'est très clair!!??
Sachant que le nombre de lignes peuvent varier.
Super ça fonctionne très bien! Merci
Maintenant j'aimerais ajouter a la suite de cette macro dans "comparatif" un autre récapitulatif.
En fait j'ai un autre onglet "358.2" avec une récap a la fin et j'aimerais qu'elle se copie en dessous de la recap de l'onglet "358.1" dans "Comparatif".
Je sais pas si c'est très clair!!??
Sachant que le nombre de lignes peuvent varier.
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
>
Claire
4 nov. 2016 à 10:37
4 nov. 2016 à 10:37
Bonjour,
Mettez votre fichier à disposition pour avoir la feuille supplémentaire
Mettez votre fichier à disposition pour avoir la feuille supplémentaire
3 nov. 2016 à 11:03
Maintenant, j'aimerais savoir s'il est possible de sélectionner seulement les cellules entre la dernière non-vide et une cellule nommée "Recapitulatif" qui peut changer de ligne?
Merci d'avance!
Claire
3 nov. 2016 à 11:14
Sub copie() With Worksheets("feuil1") 'adaptez le nom de la feuille Adr = .Range("Recapitulatif").Row 'ligne de depart derlig = .Range("A" & Rows.Count).End(xlUp).Row 'derniere cellule non vide colonne A 'copie valeurs 'adaptez le nom de la feuille, colonne Z: 26 adaptez la derniere colonne Worksheets("feuil2").Range("A1").Resize(Adr, 26) = .Range("A" & Adr & ":Z" & derlig).Value End With End SubModifié par Claire le 3/11/2016 à 11:41
Adr = .Range("Recapitulatif").Row !!!
3 nov. 2016 à 11:50
Si vous avez nomme une cellule Recapitulatif, ca doit marcher. Verifiez le nom
3 nov. 2016 à 13:53
Sub Recap()
With Worksheets("358.1")
Adr = .Range("Recapitulatif").Row
derlig = .Range("A" & Rows.Count).End(x1Up).Row
Worksheets("Comparatif").Range("A1").Resize(Adr, 8) = .Range("A" & Adr & ":C" & derlig).Value
End With
End Sub