Comment renommer une colonne avec VBA

strikas06 Messages postés 22 Statut Membre -  
strikas06 Messages postés 22 Statut Membre -
Bonjour à tous,

débutant en excel, j'aurai voulu savoir comment remplacer les valeurs d'une colonnes par des valeurs qui leurs sont attachées. Par exemple, dans ma première colonne j'ai les valeurs 1,2,3,4,5,6,7,8,9 et ces numéros correspondent à des noms d'élèves RESPECTIFS.

En effet dans un autre fichier (2) j'ai ma Sheet1 avec en colonne A les valeurs 1,2,3,4,5,6,7,8,9 et dans le meme ordre j'ai dans la colonne B des noms d'élèves.

Je voudrais un macro qui va remplacer (dans mon premier fichier) les numéros par les noms associés en allant chercher dans le feuille 1 de mon deuxième fichier la correspondance.

C'est un peu compliqué mais assez intéressant à faire! Mais chui trop mauvais encore pour le faire tout seul...

Merci pour tout aide, bonne journée à tous.
A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Bonjour

Tu es sûr de vouloir utiliser VBA pour faire cela alors qu'avec un simple rechercheV ...... ?
0
Réponse 2 / 2
strikas06 Messages postés 22 Statut Membre
 
Salut Michel!

Oui en fait en utilisant une macro ça me permettra de faire ça plus rapidement au lieu de tirer la formule à chauqe fois... Etça prendra moins de^place dans mon fichier :).

Merci de t'intéresser à ma question en tout cas!
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Excuse moi d'insister mais tu écris la formule dans la colonne sur la ligne du premier numéro et tu doubles clic sur le carré noir en bas et à droite de la cellule.

Ca prendra moins de poids si ton classeur dépasse les 2 Mo sinon, le gain est faible

Bon, je fais te faire un truc en vba puisque ca a l'air une question de vie ou de mort; un peu de patience
;o)
0
strikas06 Messages postés 22 Statut Membre
 
:))))

Merci beaucoup Michel! En fait le classeur que je vais faire va peser très lourd puisque chaque jour je vais rajouter à peu près 100 lignes à mon tableau et il doit durer sur toute la période 2013... il pèsera plus que 2Mo je pense.

Merci beaucoup! Bien sur que je serai patient ;)
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
  
Sub macro_pour_faire_plaisir_quand_même()
Dim Fin As Integer, Cptr As Integer

With Sheets(2)
     Fin = .Columns("A").Find("*", , , , , xlPrevious).Row
     T_liste = .Range("A2:B" & Fin).Value
End With


Sheets(1).Range("A2").Resize(UBound(T_liste), 2) = T_liste

End Sub
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
je vais rajouter à peu près 100 lignes à mon tableau

???? non précisé au départ : tu m'inquiètes.....
0
strikas06 Messages postés 22 Statut Membre
 
Oui je sais... La tache qu'on m'a confiée est tellement longue à expliquer que je pouvais pas tout décrire dans le message malheureusement :(. Merci beaucoup michel! Je vais essayer d'intégrer cette macro dans le mienne!
0

Discussions similaires

Renommer un contact sur insta
Rosie_17 -
Rrr -

2 réponses
Changer son nom sur Instagram
Max_69 -
Utilisateur anonyme -

1 réponse