Copier/coller des lignes sous une condition
Résolu
Titia_974
Messages postés
21
Date d'inscription
Statut
Membre
Dernière intervention
-
Titia_974 Messages postés 21 Date d'inscription Statut Membre Dernière intervention -
Titia_974 Messages postés 21 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aimerais faire un copier/coller des lignes A7:P7 à A1000:P1000 de la feuille "DM_2014" dans une autre feuille "DM en attente 2014" à partir de la ligne A7:P7 mais uniquement ceux dont les cellules N7 ne contiennent rien.
Comment puis-je le faire ?
J'espère avoir été claire.
Merci de vos aides.
J'aimerais faire un copier/coller des lignes A7:P7 à A1000:P1000 de la feuille "DM_2014" dans une autre feuille "DM en attente 2014" à partir de la ligne A7:P7 mais uniquement ceux dont les cellules N7 ne contiennent rien.
Comment puis-je le faire ?
J'espère avoir été claire.
Merci de vos aides.
A voir également:
- Copier/coller des lignes sous une condition
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Style d'écriture a copier coller - Guide
- Comment copier une vidéo youtube - Guide
7 réponses
Voila, voila !
https://www.cjoint.com/c/DCBr2MqQdJ7
A+
https://www.cjoint.com/c/DCBr2MqQdJ7
A+
Titia_974
Messages postés
21
Date d'inscription
Statut
Membre
Dernière intervention
Merci merci merci. Ça fonctionne comme je veux :)
Bonjour,
Macro à tester
A+
Macro à tester
Sub Copier()
Dim WsS As Worksheet, WsC As Worksheet
Dim Ligne As Integer
Application.ScreenUpdating = False
Set WsS = Worksheets("DM_2014")
Set WsC = Worksheets("DM en attente 2014")
For Ligne = 7 To 1000
If WsS.Range("N" & Ligne) = "" Then
WsS.Range("A" & Ligne).Resize(1, 16).Copy WsC.Range("A" & Ligne)
End If
Next Ligne
Set WsC = Nothing: Set WsS = Nothing
End Sub
A+
Merci Gyrus de ton aide.
Malheureusement lorsque je lance la macro il y a un bug. Il me dit :
"Erreur d'exécution '91'
Variable objet ou variable de bloc with non définie"
et il surligne " WsS.Range("A" & Ligne).Resize(1, 16).Copy WsC.Range("A" & Ligne)" en jaune.
Je ne sais pas ce qu'il se passe, que faire ?
Merci encore.
Malheureusement lorsque je lance la macro il y a un bug. Il me dit :
"Erreur d'exécution '91'
Variable objet ou variable de bloc with non définie"
et il surligne " WsS.Range("A" & Ligne).Resize(1, 16).Copy WsC.Range("A" & Ligne)" en jaune.
Je ne sais pas ce qu'il se passe, que faire ?
Merci encore.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Voici un exemple ci-dessous :
https://www.cjoint.com/?3CBqzoLc4NX
Bien sûr dans le vrai document il y a d'autres feuilles. Aussi dans le vrai fichier il n'existe pas du tout de macro encore.
Merci de votre aide.
https://www.cjoint.com/?3CBqzoLc4NX
Bien sûr dans le vrai document il y a d'autres feuilles. Aussi dans le vrai fichier il n'existe pas du tout de macro encore.
Merci de votre aide.