Excel VBA : Boucle couper/coller
Résolu/Fermé
Eaheru
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
-
19 août 2010 à 16:58
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - 20 août 2010 à 10:47
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - 20 août 2010 à 10:47
A voir également:
- Excel VBA : Boucle couper/coller
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
4 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
19 août 2010 à 18:30
19 août 2010 à 18:30
Bonjour,
une petite précision ?
qu'y-a-t-il exactement dans la cellule Ax
A+
une petite précision ?
qu'y-a-t-il exactement dans la cellule Ax
A+
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
19 août 2010 à 18:48
19 août 2010 à 18:48
Dans un premier temps essaye avec ...
A coller dans le module de la feuille ou ont supprime les lignes et adapter le nom Feuil2 au nom de la feuille où copier.
A+
Sub Transfert() Dim Lig As Long, LigCopie As Long, DerLig As Long LigCopie = 2: DerLig = Range("A65536").End(xlUp).Row For Lig = 1 To DerLig If Cells(Lig, 1) Like "Non*" Then Rows(Lig).Copy Sheets("Feuil2").Rows(LigCopie) Rows(Lig).Delete LigCopie = LigCopie + 1 Lig = Lig - 1 End If Next Lig End Sub
A coller dans le module de la feuille ou ont supprime les lignes et adapter le nom Feuil2 au nom de la feuille où copier.
A+
Eaheru
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
20
19 août 2010 à 20:06
19 août 2010 à 20:06
Bonsoir Lermite222 :)
Dans la colonne A, un certain nombre de cellules sont remplies avec "Lancé" ou "Non Lancé"
Au final, Je souhaite basculer tout les non lancés sur l'onglet N°2.
Merci pour ta proposition, je vais essayer dès demain matin.
Bonne soirée
Dans la colonne A, un certain nombre de cellules sont remplies avec "Lancé" ou "Non Lancé"
Au final, Je souhaite basculer tout les non lancés sur l'onglet N°2.
Merci pour ta proposition, je vais essayer dès demain matin.
Bonne soirée
Eaheru
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
20
20 août 2010 à 10:47
20 août 2010 à 10:47
Bonjour,
Je viens de tester cette macro en la modifiant très légèrement car je centralise ces utilitaires sur un fichier spécifique. Voici ce que ça donne :
Sub Transfert()
' ouverture du fichier des manquants
Workbooks.Open Filename:= "D:Liste manquant.xls"
' ajout d'un onglet pour stockage des action non lancées
Sheets.Add After:=Sheets(Sheets.Count)
Dim Lig As Long, LigCopie As Long, DerLig As Long
' activation de la feuille 1
Sheets("Liste manquants").Select
LigCopie = 2: DerLig = Range("A65536").End(xlUp).Row
For Lig = 1 To DerLig
If Cells(Lig, 2) Like "Non*" Then
Rows(Lig).Copy Sheets("Feuil1").Rows(LigCopie)
' activation de la feuille 1
Sheets("Liste manquants").Select
Rows(Lig).Delete
LigCopie = LigCopie + 1
Lig = Lig - 1
End If
Next Lig
ActiveWorkbook.Save
End Sub
Et ca marche parfaitement !
Encore merci, une nouvelle fois
Je viens de tester cette macro en la modifiant très légèrement car je centralise ces utilitaires sur un fichier spécifique. Voici ce que ça donne :
Sub Transfert()
' ouverture du fichier des manquants
Workbooks.Open Filename:= "D:Liste manquant.xls"
' ajout d'un onglet pour stockage des action non lancées
Sheets.Add After:=Sheets(Sheets.Count)
Dim Lig As Long, LigCopie As Long, DerLig As Long
' activation de la feuille 1
Sheets("Liste manquants").Select
LigCopie = 2: DerLig = Range("A65536").End(xlUp).Row
For Lig = 1 To DerLig
If Cells(Lig, 2) Like "Non*" Then
Rows(Lig).Copy Sheets("Feuil1").Rows(LigCopie)
' activation de la feuille 1
Sheets("Liste manquants").Select
Rows(Lig).Delete
LigCopie = LigCopie + 1
Lig = Lig - 1
End If
Next Lig
ActiveWorkbook.Save
End Sub
Et ca marche parfaitement !
Encore merci, une nouvelle fois