Mettre les lignes à la suite
Fermé
romain__54
Messages postés
28
Date d'inscription
lundi 15 décembre 2008
Statut
Membre
Dernière intervention
22 juin 2013
-
15 mai 2013 à 13:35
romain__54 Messages postés 28 Date d'inscription lundi 15 décembre 2008 Statut Membre Dernière intervention 22 juin 2013 - 30 mai 2013 à 09:39
romain__54 Messages postés 28 Date d'inscription lundi 15 décembre 2008 Statut Membre Dernière intervention 22 juin 2013 - 30 mai 2013 à 09:39
A voir également:
- Mettre les lignes à la suite
- Aller à la ligne excel - Guide
- Se mettre hors ligne instagram - Guide
- Excel concatener retour à la ligne - Forum Programmation
- Excel trier par ordre alphabétique en gardant les lignes - Guide
- Retour a la ligne php ✓ - Forum PHP
8 réponses
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
15 mai 2013 à 13:48
15 mai 2013 à 13:48
Salut,
Pas très compliqué mais serait il possible d'avoir un bout de ton fichier sans note confidentielles pour adapter le code à sa structure que tu peux joindre avec ce lien
https://www.cjoint.com/
clic sur le lien/parcourir pour sélectionner le fichier/Créer le lien et copie le lien généré dans un post.
je serais de retour que dans la soirée
Pas très compliqué mais serait il possible d'avoir un bout de ton fichier sans note confidentielles pour adapter le code à sa structure que tu peux joindre avec ce lien
https://www.cjoint.com/
clic sur le lien/parcourir pour sélectionner le fichier/Créer le lien et copie le lien généré dans un post.
je serais de retour que dans la soirée
romain__54
Messages postés
28
Date d'inscription
lundi 15 décembre 2008
Statut
Membre
Dernière intervention
22 juin 2013
1
15 mai 2013 à 16:05
15 mai 2013 à 16:05
Raymond PENTIER
Messages postés
58396
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
25 avril 2024
17 094
16 mai 2013 à 02:45
16 mai 2013 à 02:45
Une fois tes copies terminées, tu appliques un filtre pour ne pas voir affichées les lignes vides !
romain__54
Messages postés
28
Date d'inscription
lundi 15 décembre 2008
Statut
Membre
Dernière intervention
22 juin 2013
1
16 mai 2013 à 05:45
16 mai 2013 à 05:45
Bonjour,
Oui mais ca doit-être bien possible que ca se fasse tout seul !!!!!
Oui mais ca doit-être bien possible que ca se fasse tout seul !!!!!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
16 mai 2013 à 08:32
16 mai 2013 à 08:32
Re,
Je suis rentré plus tard que prévue hier soir, je te regarde un code VBA, les lignes sont simplement copiées ou coupées
Je suis rentré plus tard que prévue hier soir, je te regarde un code VBA, les lignes sont simplement copiées ou coupées
romain__54
Messages postés
28
Date d'inscription
lundi 15 décembre 2008
Statut
Membre
Dernière intervention
22 juin 2013
1
16 mai 2013 à 10:48
16 mai 2013 à 10:48
Non je ne veux rien couper
En faite ça me permet de survoler toutes les semaines le parc en mettant 1 sur les véhicules qui attirent mon attention et en sortir une liste pour les lettres en rep. Ou revision.
En faite ça me permet de survoler toutes les semaines le parc en mettant 1 sur les véhicules qui attirent mon attention et en sortir une liste pour les lettres en rep. Ou revision.
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
16 mai 2013 à 10:51
16 mai 2013 à 10:51
Re,
alors voila un code à coller dans un module et à associer à un bouton, sur la feuille 1, colonne K crée une colonne contrôle afin d'éviter de copier les lignes en doubles
Sub Macro22()
Dim Lig, NbrLig, NumLig, LigFin As Long
If WorksheetFunction.CountIf(Range(Range("A2"), Range("A65000").End(xlUp)), "=X") = WorksheetFunction.CountIf(Range(Range("K2"), Range("K65000").End(xlUp)), "=transféré") Then
MsgBox "pas de donnée à transférer"
Else
Sheets("Feuille2").Activate
LigFin = Range("A65536").End(xlUp).Row + 1
NumLig = 1
With Sheets("Feuille1")
NbrLig = .Cells(65536, "A").End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, "A").Value = "X" And Cells(Lig, "K").Value <> "transféré" Then
.Cells(Lig, "A").EntireRow.Copy 'Cut
NumLig = NumLig + 1
Cells(LigFin, 1).Select
LigFin = LigFin + 1
ActiveSheet.Paste
End If
If .Cells(Lig, "A").Value = "X" Then
.Cells(Lig, "K") = "transféré" 'Cut
MsgBox ("Données copiées")
End If
Next
End With
Cells(ActiveCell.Row, 1).Select
Application.CutCopyMode = False
End If
End Sub
alors voila un code à coller dans un module et à associer à un bouton, sur la feuille 1, colonne K crée une colonne contrôle afin d'éviter de copier les lignes en doubles
Sub Macro22()
Dim Lig, NbrLig, NumLig, LigFin As Long
If WorksheetFunction.CountIf(Range(Range("A2"), Range("A65000").End(xlUp)), "=X") = WorksheetFunction.CountIf(Range(Range("K2"), Range("K65000").End(xlUp)), "=transféré") Then
MsgBox "pas de donnée à transférer"
Else
Sheets("Feuille2").Activate
LigFin = Range("A65536").End(xlUp).Row + 1
NumLig = 1
With Sheets("Feuille1")
NbrLig = .Cells(65536, "A").End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, "A").Value = "X" And Cells(Lig, "K").Value <> "transféré" Then
.Cells(Lig, "A").EntireRow.Copy 'Cut
NumLig = NumLig + 1
Cells(LigFin, 1).Select
LigFin = LigFin + 1
ActiveSheet.Paste
End If
If .Cells(Lig, "A").Value = "X" Then
.Cells(Lig, "K") = "transféré" 'Cut
MsgBox ("Données copiées")
End If
Next
End With
Cells(ActiveCell.Row, 1).Select
Application.CutCopyMode = False
End If
End Sub
romain__54
Messages postés
28
Date d'inscription
lundi 15 décembre 2008
Statut
Membre
Dernière intervention
22 juin 2013
1
30 mai 2013 à 09:39
30 mai 2013 à 09:39
Bonjour,
Alors nickel, j'ai testé ca avec un peu de retard c'est sur mais bon !!!!!!!!!!!!!
Si je peux etre un poil exigent est il possible d'optimiser deux points ???
1: en faite je voudrais qu'il commence a copier à la ligne 16 !!!!! Pourquoi ? ben parce que j'ai une en tete qui est a mettre .
2: et ma deuxieme serait de ne pas copier la ligne complete mais plutot les cellules par exemple C , E et G de la ligne et de pouvoir les mettre dans les cellules B, D et F de la ligne en feuille 2 !!!!!
Merci d'avance mais c'est pour avoir un fichier tip top
Alors nickel, j'ai testé ca avec un peu de retard c'est sur mais bon !!!!!!!!!!!!!
Si je peux etre un poil exigent est il possible d'optimiser deux points ???
1: en faite je voudrais qu'il commence a copier à la ligne 16 !!!!! Pourquoi ? ben parce que j'ai une en tete qui est a mettre .
2: et ma deuxieme serait de ne pas copier la ligne complete mais plutot les cellules par exemple C , E et G de la ligne et de pouvoir les mettre dans les cellules B, D et F de la ligne en feuille 2 !!!!!
Merci d'avance mais c'est pour avoir un fichier tip top
