Repérer une ligne, la copier et la coller dans une autre feuille
Résolu/Fermé
Ecrelinf
Messages postés
36
Date d'inscription
mercredi 12 mars 2014
Statut
Membre
Dernière intervention
26 février 2015
-
19 mars 2014 à 11:04
Ecrelinf Messages postés 36 Date d'inscription mercredi 12 mars 2014 Statut Membre Dernière intervention 26 février 2015 - 19 mars 2014 à 11:52
Ecrelinf Messages postés 36 Date d'inscription mercredi 12 mars 2014 Statut Membre Dernière intervention 26 février 2015 - 19 mars 2014 à 11:52
A voir également:
- Repérer une ligne, la copier et la coller dans une autre feuille
- Aller à la ligne dans une cellule excel - Guide
- Copier une vidéo youtube - Guide
- Copier coller pdf - Guide
- Vente en ligne particulier - Guide
- Apparaitre hors ligne instagram - Guide
2 réponses
Zoul67
Messages postés
1959
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
30 janvier 2023
149
19 mars 2014 à 11:17
19 mars 2014 à 11:17
Bonjour,
Tu dois gérer l'incrémentation au niveau de la feuille 2 en fonction de la réalisation des conditions sur la feuille 1 (tu collais la même ligne sur les lignes 1 à 100) :
A+
Tu dois gérer l'incrémentation au niveau de la feuille 2 en fonction de la réalisation des conditions sur la feuille 1 (tu collais la même ligne sur les lignes 1 à 100) :
Dim ligne_copier As Long
Dim ligne_coller As Long
ligne_coller = 2
With Worksheets("Feuille1")
For ligne_copier = 2 To j - 1 'j-1 est la dernière ligne du tableau qui
'm'intéresse, j'ai déjà fait le nécessaire
If .Range("K" & ligne_copier).Value = "" And .Range("A" & ligne_copier) <> "" Then
.Rows(ligne_copier).Copy
Sheets("Feuille2").Select
Rows(ligne_coller).Select
ActiveSheet.Paste
ligne_coller = ligne_coller + 1
End If
End If
Next p
End With
A+
Ecrelinf
Messages postés
36
Date d'inscription
mercredi 12 mars 2014
Statut
Membre
Dernière intervention
26 février 2015
19 mars 2014 à 11:41
19 mars 2014 à 11:41
Décidemment Zoul, toujours là pour me tirer d'affaires ! :) Heureusement que tu ne bosses pas avec moi sinon je te serai redevable à vie en café !
Merci tout fonctionne nickel !
Mais ma curiosité me pousse à te demander quelle est la différence entre un .Range et un Range (en gros à quoi sert le point devant le range ? ou le rows)
Merci tout fonctionne nickel !
Mais ma curiosité me pousse à te demander quelle est la différence entre un .Range et un Range (en gros à quoi sert le point devant le range ? ou le rows)
Zoul67
Messages postés
1959
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
30 janvier 2023
149
19 mars 2014 à 11:48
19 mars 2014 à 11:48
Bien vu pour le point.
Quand tu utilises With Worksheets("Feuille1"), c'est pour éviter d'écrire Worksheets("Feuille1"), donc dans un With le point indique que c'est un attribut du Worksheet. Si tu ne mets pas le point, je crois que c'est la feuille active.
With Worksheets("Feuille1")
If .Range("K" & ligne_copier).Value = "" And .Range("A" & ligne_copier) <> "" Then .Rows(ligne_copier).Copy
End With
<=>
If Worksheets("Feuille1").Range("K" & ligne_copier).Value = "" And Worksheets("Feuille1").Range("A" & ligne_copier) <> "" Then Worksheets("Feuille1").Rows(ligne_copier).Copy
Quand tu utilises With Worksheets("Feuille1"), c'est pour éviter d'écrire Worksheets("Feuille1"), donc dans un With le point indique que c'est un attribut du Worksheet. Si tu ne mets pas le point, je crois que c'est la feuille active.
With Worksheets("Feuille1")
If .Range("K" & ligne_copier).Value = "" And .Range("A" & ligne_copier) <> "" Then .Rows(ligne_copier).Copy
End With
<=>
If Worksheets("Feuille1").Range("K" & ligne_copier).Value = "" And Worksheets("Feuille1").Range("A" & ligne_copier) <> "" Then Worksheets("Feuille1").Rows(ligne_copier).Copy
Ecrelinf
Messages postés
36
Date d'inscription
mercredi 12 mars 2014
Statut
Membre
Dernière intervention
26 février 2015
19 mars 2014 à 11:52
19 mars 2014 à 11:52
Hmm ok merci pour l'astuce !