Macro avec suppression de colonne
Résolu/Fermé
PONCIUS PILATUS
Messages postés
5
Date d'inscription
lundi 19 novembre 2007
Statut
Membre
Dernière intervention
21 novembre 2007
-
19 nov. 2007 à 12:04
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 21 nov. 2007 à 18:48
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 21 nov. 2007 à 18:48
A voir également:
- Macro avec suppression de colonne
- Forcer suppression fichier - Guide
- Déplacer une colonne excel - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Colonne word - Guide
10 réponses
PONCIUS PILATUS
Messages postés
5
Date d'inscription
lundi 19 novembre 2007
Statut
Membre
Dernière intervention
21 novembre 2007
5
21 nov. 2007 à 09:55
21 nov. 2007 à 09:55
Eric, t'es un chef.
C'est le résultat que j'attendais.
Merci beaucoup.
je te donne une adresse poubelle fpelhate@laposte.net.
Envoie moi ton adresse postale afin de te remercier.
Si tu es chez Bouygues, envoie moi ton n° de mobile et les 3 premières lettres de ton nom.
J'en fais mon affaire.
Merci encore
C'est le résultat que j'attendais.
Merci beaucoup.
je te donne une adresse poubelle fpelhate@laposte.net.
Envoie moi ton adresse postale afin de te remercier.
Si tu es chez Bouygues, envoie moi ton n° de mobile et les 3 premières lettres de ton nom.
J'en fais mon affaire.
Merci encore
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
20 nov. 2007 à 21:59
20 nov. 2007 à 21:59
Re,
Comme je me doutais un peu de la réponse j'ai fait avec.
Menu 'outils / macro / macros...' lancer 'MiseEnPage'
J'ai fait un cas particulier pour les villes commençant par 'LE '. LE CREUSOT => CRE
Par contre tu parlais d'une 20aine de villes, il n'y en a que 11. Ce nombre est-il appelé à varier ?
Cette macro s'execute sur le classeur actif donc tu peux traiter n'importe quel fichier.
et le fichier avec la macro
http://www.cijoint.fr/cij90788726732300.xls
Teste si c'est vraiment ce que tu voulais, on affinera si besoin.
eric
Comme je me doutais un peu de la réponse j'ai fait avec.
Menu 'outils / macro / macros...' lancer 'MiseEnPage'
J'ai fait un cas particulier pour les villes commençant par 'LE '. LE CREUSOT => CRE
Par contre tu parlais d'une 20aine de villes, il n'y en a que 11. Ce nombre est-il appelé à varier ?
Cette macro s'execute sur le classeur actif donc tu peux traiter n'importe quel fichier.
Sub MiseEnPage() Dim i As Long Application.ScreenUpdating = False Cells.MergeCells = False ' supprimer fusion cellules Selection.AutoFilter ' supprimer filtre Rows("2:2").Delete Shift:=xlUp 'supp ligne 2 Columns("A:B").Delete Shift:=xlToLeft ' supp colonnes Columns("C:D").Delete Shift:=xlToLeft 'supp colonnes ' suppression colonnes valorisées For i = 26 To 4 Step -2 Columns(i).Delete Shift:=xlToLeft Next i ' traitement villes For i = 3 To 13 Cells(1, i) = Mid(Cells(1, i), 9) If Left(Cells(1, i), 3) = "LE " Then Cells(1, i) = Mid(Cells(1, i), 4) End If Cells(1, i) = Left(Cells(1, i), 3) Columns(i).EntireColumn.AutoFit Next i Application.ScreenUpdating = True End Sub
et le fichier avec la macro
http://www.cijoint.fr/cij90788726732300.xls
Teste si c'est vraiment ce que tu voulais, on affinera si besoin.
eric
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
21 nov. 2007 à 18:48
21 nov. 2007 à 18:48
Bonsoir,
Je te remercie mais ta satisfaction et tes remerciements me suffisent.... :-)
Peut-être à une prochaine sur un autre pb
Bonne soirée à toi
eric
Je te remercie mais ta satisfaction et tes remerciements me suffisent.... :-)
Peut-être à une prochaine sur un autre pb
Bonne soirée à toi
eric
Bonjour,
1/ Je dois rechercher et remplacer une vingtaine de nom différents par une autre vingtaine de noms différents.
Aujourd'hui, je le fais manuellement. Je m'amuse beaucoup ! :)
EDITION PUIS REMPLACER
2/ Ensuite, je dois faire les opérations suivantes dans l'ordre:
- enlever la fonction filtre
DONNEES PUIS FILTRE "decocher"
- supprimer une série de colonnes qui ne me serve à rien
SELECTION LES COLONNES PUIS CLIC DROIT "supprimer"
- supprimer la deuxième ligne qui ne me sert à rien
SELECTION La LIGNE PUIS CLIC DROIT "supprimer"
- créer une nouvelle colonne à la fin du tableau restant
SELECTION LA COLONNE JUSTE APRES TON TABLEAU PUIS CLIC DROIT "INSERER"
- appliquer une RECHERCHEV dans celle ci qui s'appuit sur base qui est dans un autre fichier Excel.
EXEMPLE:
'=RECHERCHEV(1;calendrier!C7:D23;2;FAUX)
je recherche ce qui est a coté(2colonnes) de 1 sur la page calendrier dans la plage C7:D23
1/ Je dois rechercher et remplacer une vingtaine de nom différents par une autre vingtaine de noms différents.
Aujourd'hui, je le fais manuellement. Je m'amuse beaucoup ! :)
EDITION PUIS REMPLACER
2/ Ensuite, je dois faire les opérations suivantes dans l'ordre:
- enlever la fonction filtre
DONNEES PUIS FILTRE "decocher"
- supprimer une série de colonnes qui ne me serve à rien
SELECTION LES COLONNES PUIS CLIC DROIT "supprimer"
- supprimer la deuxième ligne qui ne me sert à rien
SELECTION La LIGNE PUIS CLIC DROIT "supprimer"
- créer une nouvelle colonne à la fin du tableau restant
SELECTION LA COLONNE JUSTE APRES TON TABLEAU PUIS CLIC DROIT "INSERER"
- appliquer une RECHERCHEV dans celle ci qui s'appuit sur base qui est dans un autre fichier Excel.
EXEMPLE:
'=RECHERCHEV(1;calendrier!C7:D23;2;FAUX)
je recherche ce qui est a coté(2colonnes) de 1 sur la page calendrier dans la plage C7:D23
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
19 nov. 2007 à 23:41
19 nov. 2007 à 23:41
Bonsoir,
heuuuu, néné, je crois que le monsieur dit que c'est ce qu'il fait actuellement ;-)
et qu'il aimerait bien que ça change...
Il faudrait que tu précises :
1) si c'est le mot dans une cellule ou si le mot fait partie d'une chaine dans une cellule qu'il faut remplacer
Mais une macro ne te fera pas gagner de temps si les mots à remplacer changent à chaque fois.
2) tu évoques un filtre, est-ce que ce remplacement a lieu sur toutes la feuille ou seulement sur les lignes visibles ?
3) quelles colonnes doivent disparaitre et est-ce immédiatement après le remplacement ?
4) Quand au recherchev(), avec tant de précision tu risques de te le coltiner à la main encore...
Et le mieux est que tu déposes en plus un extrait de tes fichiers avant modif sur www.cijoint.com et que tu colles le lien ici
eric
heuuuu, néné, je crois que le monsieur dit que c'est ce qu'il fait actuellement ;-)
et qu'il aimerait bien que ça change...
Il faudrait que tu précises :
1) si c'est le mot dans une cellule ou si le mot fait partie d'une chaine dans une cellule qu'il faut remplacer
Mais une macro ne te fera pas gagner de temps si les mots à remplacer changent à chaque fois.
2) tu évoques un filtre, est-ce que ce remplacement a lieu sur toutes la feuille ou seulement sur les lignes visibles ?
3) quelles colonnes doivent disparaitre et est-ce immédiatement après le remplacement ?
4) Quand au recherchev(), avec tant de précision tu risques de te le coltiner à la main encore...
Et le mieux est que tu déposes en plus un extrait de tes fichiers avant modif sur www.cijoint.com et que tu colles le lien ici
eric
Bonjour Eric,
bien vu, c'est effectivement ce que je fais, tous les jours.
Comme tu me l'a suggérer, voici un lien où tu auras accès au fichier.https://www.hightail.com/
Le but sur ce fichier est d'enlever le filtre
Ensuite supprimer les colonnes N° famille, Famille, PAHT, CUMP, ainsi que les colonnes Valorisé de chaque ville.
Ensuite, supprimer la ligne 2.
et enfin transformer chaque ville par un abréviation simple:
Ex remplacer 0001 CA ARLES par ARL
La même chose pour chaque ville
et enfin formater la largeur des colonnes en automatique
Est-ce automatisable ?
Merci de ton aide Eric.
Fred
bien vu, c'est effectivement ce que je fais, tous les jours.
Comme tu me l'a suggérer, voici un lien où tu auras accès au fichier.https://www.hightail.com/
Le but sur ce fichier est d'enlever le filtre
Ensuite supprimer les colonnes N° famille, Famille, PAHT, CUMP, ainsi que les colonnes Valorisé de chaque ville.
Ensuite, supprimer la ligne 2.
et enfin transformer chaque ville par un abréviation simple:
Ex remplacer 0001 CA ARLES par ARL
La même chose pour chaque ville
et enfin formater la largeur des colonnes en automatique
Est-ce automatisable ?
Merci de ton aide Eric.
Fred
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
20 nov. 2007 à 19:47
20 nov. 2007 à 19:47
Bonsoir,
Oui c'est faisable.
Peut-être après manger...
eric
Oui c'est faisable.
Peut-être après manger...
eric
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
20 nov. 2007 à 21:21
20 nov. 2007 à 21:21
Qu'appeles-tu les colonnes valorisées ? Les colonnes sans titres après chaque ville ?
Et le nombre de ville est-il tjs le même avec tjs les mêmes villes ?
Et le nombre de ville est-il tjs le même avec tjs les mêmes villes ?
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
20 nov. 2007 à 22:46
20 nov. 2007 à 22:46
Remplace:
' traitement villes
For i = 3 To 13
par:
' traitement villes
For i = 3 To [C1].End(xlToRight).Column - 1
et la macro sera ok qcq soit le nombre de villes.
eric
' traitement villes
For i = 3 To 13
par:
' traitement villes
For i = 3 To [C1].End(xlToRight).Column - 1
et la macro sera ok qcq soit le nombre de villes.
eric
PONCIUS PILATUS
Messages postés
5
Date d'inscription
lundi 19 novembre 2007
Statut
Membre
Dernière intervention
21 novembre 2007
5
21 nov. 2007 à 09:56
21 nov. 2007 à 09:56
--
Fred de Rennes
Fred de Rennes