Ajouter un critère
Fermé
nonossov
Messages postés
610
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
-
Modifié par nonossov le 12/04/2016 à 12:24
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 25 avril 2016 à 12:26
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 25 avril 2016 à 12:26
A voir également:
- Ajouter un critère
- Ajouter un profil netflix payant - Accueil - Guide streaming
- Ajouter un compte gmail - Guide
- Ajouter un compte whatsapp - Guide
- Ajouter signature word - Guide
- Impossible d'ajouter un ami sur facebook - Guide
2 réponses
nonossov
Messages postés
610
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
12 avril 2016 à 18:32
12 avril 2016 à 18:32
Up Merci
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
14 avril 2016 à 06:03
14 avril 2016 à 06:03
Bonjour
j'aimerai avant de supprimer les autres colonnes de déplacer les colonnes : M vers K et P vers J A partir de quelle ligne?
Servez vous de l'enregistreur de macro comme vous l'avez fait pour supprimer les colonnes.
Profitez en pour arranger le résultat obtenu; exemple: voici le même début de votre macro après toilettage
Cdlt
j'aimerai avant de supprimer les autres colonnes de déplacer les colonnes : M vers K et P vers J A partir de quelle ligne?
Servez vous de l'enregistreur de macro comme vous l'avez fait pour supprimer les colonnes.
Profitez en pour arranger le résultat obtenu; exemple: voici le même début de votre macro après toilettage
Columns("C:C").Insert Shift:=xlToRight Columns("E:E").Cut Destination:=Columns("C:C") Columns("E:E").Delete Shift:=xlToLeft Columns("F:F").ColumnWidth = 4.29 Columns("A:A").Insert Shift:=xlToRight Columns("F:F").Cut Destination:=Columns("A:A") Columns("B:B").Insert Shift:=xlToRight Columns("H:H").Cut Destination:=Columns("B:B") Columns("C:C").Insert Shift:=xlToRight Columns("E:E").Insert Shift:=xlToRight Columns("L:L").Cut Destination:=Columns("E:E") Columns("J:J").Delete Shift:=xlToLeft
Cdlt
nonossov
Messages postés
610
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
18 avril 2016 à 12:36
18 avril 2016 à 12:36
je n'ai pas compris comment je peux introduire cette macro a mon macro origine??
nonossov
Messages postés
610
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
25 avril 2016 à 11:45
25 avril 2016 à 11:45
Mr Frenchie83, merci de m'aider sur ça !
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
>
nonossov
Messages postés
610
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
25 avril 2016 à 12:26
25 avril 2016 à 12:26
Bonjour
Il ne s'agit pas d'introduire, mais de remplacer
Votre code légèrement modifié:
Quant à votre demande: j'aimerai avant de supprimer les autres colonnes de déplacer les colonnes : M vers K et P vers J A partir de quelle ligne?
Comme je l'ai dit plus haut, servez vous de l'enregistreur de macro comme vous l'avez fait pour supprimer les colonnes et retouchez (si vous le voulez, mais ce n'est pas obligatoire) le code obtenu pour clarifier l'écriture et ainsi faciliter la lecture.
Cdlt
Il ne s'agit pas d'introduire, mais de remplacer
Votre code légèrement modifié:
Sub NETTOYAGE() Application.ScreenUpdating = False Dim nbCells As Long If MsgBox("Etes-vous sur de vouloir nettoyer le journal?", vbOKCancel) = vbCancel Then End Range("A:B,I:M,P:AH").Delete Columns("C:C").Insert Columns("E:E").Cut Destination:=Columns("C:C") Columns("E:E").Delete Columns("F:F").ColumnWidth = 4.29 Columns("A:A").Insert Columns("F:F").Cut Destination:=Columns("A:A") Columns("B:B").Insert Columns("H:H").Cut Destination:=Columns("B:B") Columns("C:C").Insert Columns("E:E").Insert Columns("L:L").Cut Destination:=Columns("E:E") Columns("J:J").Delete 'pour déterminer le nombre de lignes nbCells = Application.WorksheetFunction.CountA(Columns("F:F")) Range("I2:I" & nbCells).FormulaR1C1 = "=RC[-2]+RC[-1]" Rows("1:1").Delete Columns("A:A").Select CorrectionDateScanfact End Sub
Quant à votre demande: j'aimerai avant de supprimer les autres colonnes de déplacer les colonnes : M vers K et P vers J A partir de quelle ligne?
Comme je l'ai dit plus haut, servez vous de l'enregistreur de macro comme vous l'avez fait pour supprimer les colonnes et retouchez (si vous le voulez, mais ce n'est pas obligatoire) le code obtenu pour clarifier l'écriture et ainsi faciliter la lecture.
Cdlt
13 avril 2016 à 17:30