[Excel] Mise à jour colonne...
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!
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!
5 réponses
-
Bonjour;
Le mieux est d'envoyer ton fichier, avec des cellules commentées pour expliquer ce que tu veux... -
xxxxxxx @ dbmail.com
-
Problème résolu grâce à gregg5l! Merci ^^
-
ContributeurBonjour
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
-
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
