Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro copier colonne intégrale avec mise en forme

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion CHAKAL37
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

CHAKAL37

Guest
Bonjour a tous,

je fais appel a vous car j'ai un problème que je n'ai pas encore résolu !
Je dois créer un fichier permettant un suivi de chantier selon différentes phases.
Pour cela j'ai 4 onglets (Général, Etudes, Travaux et Facturation).
Dans l'onglet général, j'ai des informations ( des colonnes entières en fait ) à reprendre dans les autres onglets.
Pour cela j'ai un bout de code que je n'ai testé que sur mon premier onglet et qui semblait me convenir :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Sheets("Etudes").Range("A:G").ClearContents
Sheets("Général").Range(Range("A1"), Range("A1").End(xlDown)).Copy Destination:=Sheets("Etudes").Range("A1")
Sheets("Général").Range(Range("B1"), Range("B1").End(xlDown)).Copy Destination:=Sheets("Etudes").Range("B1")
Sheets("Général").Range(Range("C1"), Range("C1").End(xlDown)).Copy Destination:=Sheets("Etudes").Range("C1")
Sheets("Général").Range(Range("D1"), Range("D1").End(xlDown)).Copy Destination:=Sheets("Etudes").Range("D1")
Sheets("Général").Range(Range("E1"), Range("E1").End(xlDown)).Copy Destination:=Sheets("Etudes").Range("E1")
Sheets("Général").Range(Range("F1"), Range("F1").End(xlDown)).Copy Destination:=Sheets("Etudes").Range("F1")
Sheets("Général").Range(Range("J1"), Range("J1").End(xlDown)).Copy Destination:=Sheets("Etudes").Range("G1")
Application.ScreenUpdating = True
End Sub

sauf que la recopie s’arrête dès qu'une cellule vide est rencontré dans la colonne ....
Je veux une recopie complète de la colonne sans distinction .... Une idée .... ça doit être simple mais je trouve pas !

Merci de votre contribution !

Cdt
 
Trier par date Trier par votes
Bonjour CHAKAL37,

Rechercher plutôt la dernière ligne non vide :

Au lieu de
VB: 
Sheets("Général").Range(Range("A1"), Range("A1").End(xlDown)).Copy

essayer :
VB: 
Sheets("Général").Range(Range("A1"), Range("A" & Rows.Count).End(xlup)).Copy

Attention ! le terme Sheets("Général") ne s'applique qu'au premier Range. Si vous n'êtes pas sur la feuille "Général", Range("A1") et Range("A" & Rows.Count).End(xlup) concerne la feuille active et non la feuille "Général". Vous risquez une erreur d'exécution.

Le plus simple est d'employer un With :
VB: 
With sheets("Général")
   .Range(.Range("A1"), .Range("A" & .Rows.Count).End(xlup)).Copy Destination:=Sheets("Etudes").Range("A1")
end with
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour à tous
CHAKAL37 à dit:
Bonjour a tous,
Dans l'onglet général, j'ai des informations ( des colonnes entières en fait ) à reprendre dans les autres onglets.
Cliquez pour agrandir...

Bonjour à tous et "Bonne année"
Ceci peut être, si j'ai bien compris
Code: 
Sub test()
Sheets("Etudes").Range("A:G").ClearContents
With Sheets("Général")
  .Columns("A:F").Copy Sheets("Etudes").[a1]
  .Columns("J").Copy Sheets("Etudes").[g1]
End With
End Sub
Quant à le mettre sur un " Worksheet_SelectionChange" ....j'ai un doute
 
Vote positif 0 Vote négatif


Bonjour et merci pour ta contribution.
j'ai un soucis d'erreur de compilation lorsque je rajoute le with - End With ... une fin d'instruction est attendu ....
moi pas comprendre pourquoi !
Par contre pour le reste c'est niquel ! ça marche comme je le veux !
 
Vote positif 0 Vote négatif

Merci pour ta contribution ,
je vais essayer sur les autres onglets ou je dois faire de la recopie.
 
Vote positif 0 Vote négatif
CHAKAL37 à dit:
Merci pour ta contribution ,
je vais essayer sur les autres onglets ou je dois faire de la recopie.
Cliquez pour agrandir...
RE...
Pour les autres onglets 🙂
VB: 
Sub test()
Dim Sh
For Each Sh In Array("Etudes", "Travaux", "Facturation")
With Sheets(Sh)
  .Range("A:G").ClearContents
  Sheets("Général").Columns("A:F").Copy .[a1]
  Sheets("Général").Columns("J").Copy .[g1]
End With
Next
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
  • Résolu(e)
XL 2016 copier/coller en VBA
Réponses
11
Affichages
572
chinel
H
  • Résolu(e)
sub en function
Réponses
2
Affichages
505
Hunter296
H
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
333
CortoXls
C
Z
  • Question Question
Microsoft 365 Ajouter une étiquette de confidentialité via macro
Réponses
4
Affichages
3 K
onobyone
O
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
987
MickaeL_D
M
P
  • Question Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
715
Pimpon974
P
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
924
marie3107
M
M
  • Question Question
XL 2019 VBA Valeur d'une cellule dont la feuille et la ligne est dans la feuille courante
Réponses
13
Affichages
962
job75
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
A
  • Résolu(e)
XL 2016 Autofill Destination sur colonne adjacente
Réponses
3
Affichages
595
Aldonanou
A
C
  • Résolu(e)
Microsoft 365 Amélioration Macro.
Réponses
7
Affichages
796
crazy
C
I
  • Question Question
XL 2016 Copier vers les feuilles avec condition
Réponses
4
Affichages
620
INFINITY100
I
  • Question Question
Microsoft 365 Copier et coller formes sans changer de feuille
Réponses
2
Affichages
695
Chasse
C
  • Résolu(e)
Microsoft 365 Mise en forme d'une ligne d'après listes déroulantes + clic sur un bouton
Réponses
2
Affichages
756
casualexcel
C
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
2 K
Fabrice16ct
F
K
  • Résolu(e)
XL 2019 Copie de la dernière ligne avec la mise en forme et formules
Réponses
6
Affichages
901
Kev1407
K
S
  • Résolu(e)
XL 2013 ajouter une colonne avec le nom de la feuille d'origine
Réponses
7
Affichages
789
Wayki
I
  • Question Question
XL 2016 MACRO LENTE
Réponses
2
Affichages
947
ImNotJésus
I
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…