[Excel] Mise à jour colonne...

vroum -  
Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour à tous,

J'ai un petit soucis sous excel 2007, le genre de truc que j'arrive à faire sans problème avec d'autres logiciels comme MapInfo ou Arcgis.. mais là j'essaye de le faire avec excel et je n'y arrive pas!
Je m'explique, je bosse sur des données météorologiques, il y a à peu près 10 000 lignes sur 6 colonnes.
Colonne A: un identifiant, propre à chaque station météo
Colonne B: date du relevé
Colonne C: un température mini
Colonne D: une température maxi
et ensuite j'ai deux autres colonnes (G et H en l'occurrence).
G: on retrouve les ID station et H le nom de la station. A savoir que l'ID en G correspond au nom de la station qui en face en H

Ce que je voudrais, c'est remplacer l'ID en A par le vrai nom de la station!
Donc expliquer à Excel qu'il doit se dépatouiller avec G et H pour me remplacer l'ID en A par le nom de la station!

J'espère avoir été clair...
Merci d'avance à ceux qui me débloqueront ou au moins pourront m'aiguiller!
A voir également:

5 réponses

gregg5l Messages postés 53 Statut Membre 28
 
Bonjour;
Le mieux est d'envoyer ton fichier, avec des cellules commentées pour expliquer ce que tu veux...
0
vroum
 
Ok, merci de réponse rapide:
Je te l'envoi comment?
0
gregg5l Messages postés 53 Statut Membre 28
 
xxxxxxx @ dbmail.com
0
vroum
 
Ok c'est fait! merci
0
vroum
 
Problème résolu grâce à gregg5l! Merci ^^
0
Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 447
 
Bonjour

on est ravi que votre problème soit résolu.

On l'est moins de constater que la solution qui pourrait profiter à beaucoup (c'est le but du forum) est restée entre vous et gregg51, qui n'hésite pas à transmettre ses coordonnées personnelles!

bonne route
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
vroum
 
Bonjour,
désolé de ne pas voir partagé la solution tout de suite!
Voici donc la solution proposée par gregg51:

Sub execute()
Dim c As Range
For Each c In Range("A5:A64000")
If c.Value <> "" And IsNumeric(c.Value) Then
Range("A1") = c.Value
c.Value = Range("B1").Value
End If
Next c
MsgBox "Travail terminé"
End Sub
0
Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 447
 
merci pour tous , vroum, bonne route
crdlmnt
0