Copier une ligne sur un autre onglet
Résolu/Fermé
chrisdemontigny
Messages postés
64
Date d'inscription
mercredi 19 septembre 2012
Statut
Membre
Dernière intervention
17 mars 2015
-
Modifié par pijaku le 19/11/2014 à 07:45
chrisdemontigny Messages postés 64 Date d'inscription mercredi 19 septembre 2012 Statut Membre Dernière intervention 17 mars 2015 - 22 nov. 2014 à 19:57
chrisdemontigny Messages postés 64 Date d'inscription mercredi 19 septembre 2012 Statut Membre Dernière intervention 17 mars 2015 - 22 nov. 2014 à 19:57
A voir également:
- Copier une ligne sur un autre onglet
- Copier une vidéo youtube - Guide
- Comment aller à la ligne sur excel - Guide
- Rouvrir un onglet fermé - Guide
- Vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
3 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 306
19 nov. 2014 à 07:07
19 nov. 2014 à 07:07
Bpnjour,
Combien as tu de lignes (environ) ?
quelle est la dernière colonne (toujours très lourd de trimbaler une ligne entière) ?
Au besoin, mettre le classeur sans données confidentielles en pièce jointe sur http://cijoint.fr/
et coller le lien proposé dans le message de réponse
Dans l'attente
Combien as tu de lignes (environ) ?
quelle est la dernière colonne (toujours très lourd de trimbaler une ligne entière) ?
Au besoin, mettre le classeur sans données confidentielles en pièce jointe sur http://cijoint.fr/
et coller le lien proposé dans le message de réponse
Dans l'attente
chrisdemontigny
Messages postés
64
Date d'inscription
mercredi 19 septembre 2012
Statut
Membre
Dernière intervention
17 mars 2015
19 nov. 2014 à 14:49
19 nov. 2014 à 14:49
Bonjour Michel,
en effet, nous ne sommes pas obligés de recopier la ligne puisque je n'ai besoin que des des colonnes A à M.
J'aurais je pense au plus 20 lignes à transférer au cours d'une journée.
Si sur la case A18 est marqué "ok", alors je devrai copier les cases A18 à M18.
en effet, nous ne sommes pas obligés de recopier la ligne puisque je n'ai besoin que des des colonnes A à M.
J'aurais je pense au plus 20 lignes à transférer au cours d'une journée.
Si sur la case A18 est marqué "ok", alors je devrai copier les cases A18 à M18.
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 306
19 nov. 2014 à 17:31
19 nov. 2014 à 17:31
on ne boucle que sur le nomnre de "ok"
"ok" sensible à la casse
"ok" sensible à la casse
Option Explicit
'----------
Sub copier_si_ok()
Dim Derlig As Byte, Nbre As Byte, Cptr As Byte, Lig1 As Byte, Lig2 As Byte, T_ok
Application.ScreenUpdating = False
Sheets(2).Range("A2:M30").ClearContents
With Sheets(1)
Derlig = .Columns("A").Find("*", , , , , xlPrevious).Row
Nbre = Application.CountIf(.Range("A2:A" & Derlig), "ok")
Lig1 = 1
Lig2 = 1
For Cptr = 1 To Nbre
Lig1 = .Columns("A").Find("ok", .Cells(Lig1, "A"), xlValues).Row
T_ok = .Range(.Cells(Lig1, "A"), .Cells(Lig1, "M"))
Lig2 = Lig2 + 1
Sheets(2).Range("A" & Lig2).Resize(1, 13) = T_ok
Next
End With
Sheets(2).Activate
End Sub
chrisdemontigny
Messages postés
64
Date d'inscription
mercredi 19 septembre 2012
Statut
Membre
Dernière intervention
17 mars 2015
22 nov. 2014 à 19:57
22 nov. 2014 à 19:57
merci beaucoup!
Je ne connaissais pas trop les tableaux et la méthode find.
Maintenant, c'est ok!
Je ne connaissais pas trop les tableaux et la méthode find.
Maintenant, c'est ok!