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

Copier une colonne dans une autre feuille

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion asfour
  • 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
A

asfour

Guest
Bonjour,

Je cherche a copier une colonne de la premier feuille(Rendez-vous) ver la deuxième (feuil 1) a condition que la case L soit = 1.

Donc je m'explique:
exemple: dans la feuille rendez-vous si je met 1 dans la cellule "L" il me copie seulement cette colonne ver la deuxième feuille (feuil1), et quand je met 1 dans la cellule L dans une autre colonne il copie cette nouvelle colonne ver l'autre feuille dans la même place de l'ancienne colonne donc il écrase l'ancienne.

je ne c'est si je me suis bien fait comprendre..

j'ai trouve une macro qui copie toujours les mêmes colonne et j'ai essaye de la modifier mais j'ai pas réussi:

Sub Copie()

Dim wss As Worksheet, wsd As Worksheet
Dim derLigne As Long, ligne As Long

Application.ScreenUpdating = False

Set wss = Worksheets("Rendez-vous")
Set wsd = Worksheets("feuil1")

With wsd
ligne = .Range("A" & Rows.Count).End(xlUp).Row + 1
End With


With wss
derLigne = .Range("A100:I" & Rows.Count).End(xlUp).Row
' en considérant des entêtes de colonne
.Range("A1:I" & derLigne).Copy
wsd.Range("A" & ligne).PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
End With

Set wss = Nothing: Set wsd = Nothing


Merci pour votre aide.
 

Pièces jointes

Trier par date Trier par votes
Re : Copier une colonne dans une autre feuille

Bonjour Une Fois Asfour le forum
bon alors tes explications sont comme ton fichier bien vide!!!!!!!
tu veux copier quel colonne de la feuille ou tu mets un 1 dans L ????
après tu veux la copier ou dans la feuille feuil1 ?? quelle colonne??
Ensuite Tu veux copier toute la colonne ? de la ligne 1 à la dernière ligne remplie??
dans l'attente du complément d'information
a+
Papou😱
 
Vote positif 0 Vote négatif
Re : Copier une colonne dans une autre feuille

Bonjour Patriec,
merci pour ta réponse,

peut être je me suis mal exprime le but est de copie une ligne a la fois, quand je met 1 dans "L" de la feuille 1 (rendez-vous) la ligne sera copié dans la deuxième feuille n'importe ou.

donc a chaque fois que je met 1 dans "L" toute la ligne sera copier a la même place de la ligne copier avant.

Je ne c'est pas si je me suis fait comprendre?

Merci
 
Vote positif 0 Vote négatif
Re : Copier une colonne dans une autre feuille

re asfour le forum
autrement si c'est pour copier la colonne K de la feuille Rendez vous vers la feuille Feuil1 dans la colonne K
voilà la macro si dessous
a+
Papou😱

Code: 
Sub copier()
    If Application.WorksheetFunction.CountA(ActiveSheet.Columns(12)) <> 0 Then
        ActiveSheet.Columns(11).Copy Sheets("Feuil1").Cells(1, 11)
    End If
End Sub
 
Vote positif 0 Vote négatif
Re : Copier une colonne dans une autre feuille

Re Une fois le belge fourAs !!!! le forum
Oui forcément si tu n'es pas capable de faire le différence entre une ligne et une colonne c'est pas facile !!!!!
Bref tu veux que la copie se fasse quand des que tu mets un 1 dans L ????
ou à la fin de la saisie??
a+
Papou😱
 
Vote positif 0 Vote négatif
Re : Copier une colonne dans une autre feuille

oui Désole 🙄

je veux que la copie se fasse de que je met 1 dans L et qu'il copie la ligne a la même place de l’ancienne.

Merci
 
Vote positif 0 Vote négatif
Re : Copier une colonne dans une autre feuille

Bonsoir à tous

Paritec
Je crois qu'il fallait voir les lignes derrière la colonne 😉
Dans le code de la feuille Rendez-vous (clic-droit -> Visualiser le code)
Copier/coller le code ci-dessous
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 12 Then
If Target = 1 Then
Cells(Target.Row, 1).Resize(, 9).Copy Sheets("Feuil1").Cells(Rows.Count, 1).End(3)(2)
End If
End If
End Sub

asfour
C'est ça ? J'ai bon ? 😉
 
Vote positif 0 Vote négatif
Re : Copier une colonne dans une autre feuille

Merci Paritec,

c'est ça que je veux mais je veux que la copie sur la deuxième feuille ce fasse toujours dans la même place.
 
Vote positif 0 Vote négatif
Re : Copier une colonne dans une autre feuille

oui désolé,
ça fonctionne mais le problème je veux que la ligne copier écrase l’ancienne je ne c'est pas ci on peux faire ça?

Merci pour votre aide
 
Vote positif 0 Vote négatif
Re : Copier une colonne dans une autre feuille

Re

Tu veux dire comme cela ?
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 12 Then
If Target = 1 Then
Cells(Target.Row, 1).Resize(, 9).Copy Sheets("Feuil1").Cells(1, 1)
End If
End If
End Sub

Ou tu veux supprimer la ligne de la feuille Rendez-vous qu'on vient de copier ?
(je parle d'effacer la ligne sur la feuille Rendez-vous)
 
Dernière édition:
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

Y
  • Résolu(e)
Microsoft 365 ContIf et myRange sur une feuille donnée
Réponses
2
Affichages
150
youguybass
Y
M
  • Question Question
Microsoft 365 Récupération des plages nommées des fichiers dans un répertoire
Réponses
8
Affichages
368
dysorthographie
  • Résolu(e)
XL 2021 Envoi mail via VBA et Outlook
Réponses
6
Affichages
661
patricktoulon
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
424
MATLEA
M
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
F
  • Question Question
Autres Listbox-transfère la recherche dans une ListBox vers une feuille de calcul
2
Réponses
18
Affichages
541
dysorthographie
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
257
anthoYS
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
483
nabilexcel2007
N
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
208
sylvanu
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
589
sylvanu
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
246
treza88
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
744
Piment
P
Y
  • Résolu(e)
Microsoft 365 Countifs et dates
2
Réponses
23
Affichages
777
youguybass
Y
  • Question Question
XL 2019 Faire référence au nom de la feuille active ( ActiveSheet )
2
Réponses
15
Affichages
602
Dranreb
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
284
anthoYS
D
  • Question Question
XL 2021 Formule Excel dans VBA
Réponses
3
Affichages
233
dl87671
D
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
917
TooFatBoy
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
568
mikeduff
M
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…