Selection 1 ligne sur 2 macro vba
Résolu/Fermé
van_van
Messages postés
60
Date d'inscription
mercredi 6 avril 2016
Statut
Membre
Dernière intervention
9 janvier 2017
-
15 avril 2016 à 12:01
van_van Messages postés 60 Date d'inscription mercredi 6 avril 2016 Statut Membre Dernière intervention 9 janvier 2017 - 18 avril 2016 à 15:39
van_van Messages postés 60 Date d'inscription mercredi 6 avril 2016 Statut Membre Dernière intervention 9 janvier 2017 - 18 avril 2016 à 15:39
Bonjour,
est il possible d'avoir une macro qui a partir de la ligne 1 filtre toutes les lignes impaire de l'onglet exce, et qui ensuite les colle dans un autre onglet du meme fichiers excel a partir de la colonne F.
Puis une autre mais pour les lignes paire qui seront a coller dans un autre onglet (le meme que pour les nombres impaires) mais cette fois ci a partir de la colonne A
merci
est il possible d'avoir une macro qui a partir de la ligne 1 filtre toutes les lignes impaire de l'onglet exce, et qui ensuite les colle dans un autre onglet du meme fichiers excel a partir de la colonne F.
Puis une autre mais pour les lignes paire qui seront a coller dans un autre onglet (le meme que pour les nombres impaires) mais cette fois ci a partir de la colonne A
merci
A voir également:
- Selection 1 ligne sur 2 macro vba
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Partager photos en ligne - Guide
- Comment aller à la ligne sur excel - Guide
- Site de vente en ligne particulier - Guide
- Word numéro de page 1/2 - Guide
2 réponses
ycqdp
Messages postés
3
Date d'inscription
vendredi 15 avril 2016
Statut
Membre
Dernière intervention
15 avril 2016
15 avril 2016 à 12:38
15 avril 2016 à 12:38
Supprimer une ligne sur 2
Sub testage()
Dim NpTotal As Double
Application.ScreenUpdating = False
NpTotal = Range("a65535").End(xlUp).Row
For i = 2 To NpTotal + 1
Rows(i + 1).Delete
Next
End Sub
Sub testage()
Dim NpTotal As Double
Application.ScreenUpdating = False
NpTotal = Range("a65535").End(xlUp).Row
For i = 2 To NpTotal + 1
Rows(i + 1).Delete
Next
End Sub
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
16 avril 2016 à 10:34
16 avril 2016 à 10:34
Bonjour
Un essai
https://www.cjoint.com/c/FDqiIeMjKnw
Cdlt
Un essai
https://www.cjoint.com/c/FDqiIeMjKnw
Cdlt
van_van
Messages postés
60
Date d'inscription
mercredi 6 avril 2016
Statut
Membre
Dernière intervention
9 janvier 2017
18 avril 2016 à 15:39
18 avril 2016 à 15:39
MERCI BEAUCOUP ! VRAIMENT
15 avril 2016 à 12:53
j'ai remplacé delete par select car je ne veux pas supprimer et j'ai declaré I mais ca ne fonctionne pas