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.
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.
