Besoin d'une macro pour gagner du temps

Fermé
barnabe0057 Messages postés 14452 Date d'inscription lundi 2 mars 2009 Statut Contributeur Dernière intervention 3 août 2024 - Modifié par barnabe0057 le 29/06/2013 à 03:08
barnabe0057 Messages postés 14452 Date d'inscription lundi 2 mars 2009 Statut Contributeur Dernière intervention 3 août 2024 - 29 juin 2013 à 16:28
Bonjour chers amis CCMistes,

Je sollicite votre aide pour la réalisation d'une macro sous LibreOffice 3.6.5.2 sur Windows 7 pro 64bits.

J'explique la situation : je joue à un jeu sur internet, qui consiste à développer et à capturer des châteaux, je ne vais pas rentrer dans les détails. Je suis en train de réaliser un tableau recensant les coordonnées géographiques de tous les châteaux des joueurs de mon alliance.

Mon classeur possède deux feuilles, une feuille contenant le tableau et une feuille qui me sert de moulinette car les coordonnées des châteaux ne sont pas accessibles dans le format désiré.

Voilà comment je procède pour remplir mon tableau :
1) je vais sur le profil du joueur
2) je fais un copier "brut" des coordonnées des châteaux du joueur
3) je les colle dans ma moulinette dans la case A2
4) je copie A2 dans B2
5) j'applique un AutoFiltre sur la colonne B pour supprimer les lignes vides
6) je récupère les données utiles dans les 4 dernières colonnes (E, F, G, H)
7) je les colle dans mon tableau à la suite des autres (colonne B)
8) je complète mon tableau avec diverses infos (nom du joueur, actif ou pas, date de dernière MAJ)

Je voudrais automatiser cela à partir de l'étape 4 jusqu'à l'étape 7 incluse.

Je n'ai encore jamais réalisé de macro, j'ai vraiment besoin de vous.

Merci d'avance pour votre aide.

Voilà mon fichier :
https://www.cjoint.com/?0FDdhOgEl9Q


A voir également:

2 réponses

barnabe0057 Messages postés 14452 Date d'inscription lundi 2 mars 2009 Statut Contributeur Dernière intervention 3 août 2024 4 917
Modifié par barnabe0057 le 29/06/2013 à 13:27
J'avance un peu dans ma macro :

Sub auto_moulinette1 ()

Worksheets("moulinette").Activate
ActiveSheet.AutoFilterMode = False
Range("A2").Copy Destination:=Worksheets("moulinette").Range("B2")
ActiveSheet.Range("B2:B1000").AutoFilter

End Sub

Comment sélectionner les cellules des 4 dernières colonnes (E, F, G, H) en omettant la ligne 1 ?
0
barnabe0057 Messages postés 14452 Date d'inscription lundi 2 mars 2009 Statut Contributeur Dernière intervention 3 août 2024 4 917
29 juin 2013 à 16:27
Je patauge, je suis en train de me lobotomiser le cerveau !
0
barnabe0057 Messages postés 14452 Date d'inscription lundi 2 mars 2009 Statut Contributeur Dernière intervention 3 août 2024 4 917
29 juin 2013 à 16:28
Je vais essayer d'expliquer plus simplement :

je veux récupérer le contenu des 4 dernières colonnes mais sans les lignes vides, ensuite je les recopie dans mon tableau à la suite.
0