Copier/coller des lignes sous une condition
Résolu/Fermé
Titia_974
Messages postés
21
Date d'inscription
jeudi 20 mars 2014
Statut
Membre
Dernière intervention
14 avril 2014
-
26 mars 2014 à 13:17
Titia_974 Messages postés 21 Date d'inscription jeudi 20 mars 2014 Statut Membre Dernière intervention 14 avril 2014 - 27 mars 2014 à 19:03
Titia_974 Messages postés 21 Date d'inscription jeudi 20 mars 2014 Statut Membre Dernière intervention 14 avril 2014 - 27 mars 2014 à 19:03
A voir également:
- Copier/coller des lignes sous une condition
- Copier une vidéo youtube - Guide
- Copier coller pdf - Guide
- Excel cellule couleur si condition texte - Guide
- Super copier - Télécharger - Gestion de fichiers
- Copier coller chatgpt ✓ - Forum Réseaux sociaux
7 réponses
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
27 mars 2014 à 17:55
27 mars 2014 à 17:55
Voila, voila !
https://www.cjoint.com/c/DCBr2MqQdJ7
A+
https://www.cjoint.com/c/DCBr2MqQdJ7
A+
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
26 mars 2014 à 13:38
26 mars 2014 à 13:38
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+
Titia_974
Messages postés
21
Date d'inscription
jeudi 20 mars 2014
Statut
Membre
Dernière intervention
14 avril 2014
27 mars 2014 à 15:43
27 mars 2014 à 15:43
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.
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
27 mars 2014 à 16:09
27 mars 2014 à 16:09
Il faudrait voir le fichier.
Peux-tu joindre un exemple anonymisé avec https://www.cjoint.com/ ?
A+
Peux-tu joindre un exemple anonymisé avec https://www.cjoint.com/ ?
A+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Titia_974
Messages postés
21
Date d'inscription
jeudi 20 mars 2014
Statut
Membre
Dernière intervention
14 avril 2014
27 mars 2014 à 16:27
27 mars 2014 à 16:27
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.
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
27 mars 2014 à 17:00
27 mars 2014 à 17:00
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+
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
Messages postés
21
Date d'inscription
jeudi 20 mars 2014
Statut
Membre
Dernière intervention
14 avril 2014
27 mars 2014 à 17:05
27 mars 2014 à 17:05
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.
Merci pour tout.
27 mars 2014 à 19:03