Copier/coller des lignes sous une condition Résolu/Fermé

Question

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.


Configuration: Windows 7 / Internet Explorer 9.0

Gyrus · Answer

Bonjour,

Macro à tester

Sub Copier()Dim WsS As Worksheet, WsC As WorksheetDim 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 = NothingEnd Sub

A+

Titia_974 · Answer

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.

Gyrus · Answer

Il faudrait voir le fichier.
Peux-tu joindre un exemple anonymisé avec https://www.cjoint.com/ ?

A+

Titia_974 · Answer

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.

Gyrus · Answer

Il faut écrire
Set WsC = Worksheets("DM en attente 2014")

De plus, au vu de ton fichier, je pense que la disposition des lignes collées ne va pas te convenir.
A te relire.

A+

Titia_974 · Answer

C'est à peu près ce que je veux mais effectivement la disposition des lignes ne me convient pas. J'aimerais quelles soient les unes après les autres. Est-ce possible ?

Merci pour tout.

Gyrus · Answer

Voila, voila !

https://www.cjoint.com/c/DCBr2MqQdJ7

A+

Copier/coller des lignes sous une condition

7 réponses

Discussions similaires