[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!

5 réponses

  1. gregg5l Messages postés 43 Date d'inscription   Statut Membre Dernière intervention   28
     
    Bonjour;
    Le mieux est d'envoyer ton fichier, avec des cellules commentées pour expliquer ce que tu veux...
    0
    1. vroum
       
      Ok, merci de réponse rapide:
      Je te l'envoi comment?
      0
  2. gregg5l Messages postés 43 Date d'inscription   Statut Membre Dernière intervention   28
     
    xxxxxxx @ dbmail.com
    0
    1. vroum
       
      Ok c'est fait! merci
      0
  3. vroum
     
    Problème résolu grâce à gregg5l! Merci ^^
    0
  4. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    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
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. 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
    1. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
       
      merci pour tous , vroum, bonne route
      crdlmnt
      0