Requêtes de données web et décalage de colonne

[yoda63]

Bonjour à tous.

Je cherche le moyen de faire un décalage de colonne suite à la mise à jour de requête web.

Exemple :

En colonne A, je récupère une série de donnée web par requêtes A1 =1000 - A2 = 2000 - A3 = 3000.
La mise à jour des données étant de 1 minute, la mise à jour ce fait.
Les nouvelles données en A1 - A2 - A3 sont 1150 - 2125 - 3130.

Y-a-t-il moyen de retrouver sur la feuille :

A1 = 1150 - B1 = 1000 -
A2 = 2125 - B2 = 2000 -
A3 = 3130 - B3 = 3000 -

et ce sur une série de 30 colonnes (si possible) ?

Merci de vos réponses.

 

[phlaurent55]

Re : Requêtes de données web et décalage de colonne

Salut yoda63
voici une façon de faire en VB

    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    Range("A1").Select

une colonne vide sera insérée à gauche de la col A, elle prend la place de cette dernière les données présentes en A se retrouveront donc en B, celles de B en C................
tu dois utiliser ce code avant chaque m-à-j et tu peux le faire autant de fois que nécessaire...................avec pour contrainte de ne pas dépasser le nombre maxi de colonnes autorisé

 

[yoda63]

Re : Requêtes de données web et décalage de colonne

Je viens d'essayer, j'ai une erreur de compilation sur A:A

Et j'avoue que je rame sévère ^^

 

[jeanpierre]

Re : Requêtes de données web et décalage de colonne

Bonsoir yoda63, phlaurent,

Le problème, c'est que ton fichier joint, en ZIP évidemment, n'est pas très explicite....

Ah, t'as pas joint de fichier, c'est peut-être pour cela aussi....

En Zip, et après on discute.........

 

[phlaurent55]

Re : Requêtes de données web et décalage de colonne

Re,
voici en fichier joint ce que je t'explique plus haut
pour info j'utilise Excel 2003

 

[yoda63]

Re : Requêtes de données web et décalage de colonne

Super de ta part, merci beaucoup du temps que tu as pris pour moi, je vais d'écortiquer tout cela je te tiens au courant du résultat ^^

 

[yoda63]

Re : Requêtes de données web et décalage de colonne

Ok, je viens de comprendre le fonctionnement.

    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    Range("A1").Select

Maintenant plus dur :

J'ai une feuille qui ce nomme Rapport, y'a-t-il moyen à partir de la feuille 1 de faire le même décalage sur la feuille nommée rapport ?

ce qui reviendrai à faire un décalage de colonne sur une autre feuille.

 

[phlaurent55]

Re : Requêtes de données web et décalage de colonne

Salut yoda,
là, il vaudrait mieux que tu joignes ton fichier(zippé, - de 48K) sans données confidentielles et AVEC plus de précisions concernant tes attentes car il me faudrait voir l'endroit exact où il faut copier les données de la première feuille, ceci afin d'éviter "d'écraser"d'autres cellules.
un peu de patience, aujourd'hui------->soleil je vais en profiter un peu

 

[Compte Supprimé 979]

Re : Requêtes de données web et décalage de colonne

Salut Yoda63,

Merci de rester sur le même fil
https://www.excel-downloads.com/threads/decalage-dune-autre-feuille.91332/

Si tu veux l'utiliser sur plusieurs feuilles, le mieux est de mettre le code dans un "Module" séparé.

D'utiliser le code légèrement modifié :

With ActiveSheet
  .Columns("A:A").Insert Shift:=xlToRight
  .Range("A1").Select
End With

Et de mettre un bouton dans chaque feuille

Sinon pour ta feuille rapport, tu as juste à mettre

 With Sheets("Rapport")
  .Columns("A:A").Insert Shift:=xlToRight
  .Range("A1").Select
End With

Voilà.

 

[yoda63]

Re : Requêtes de données web et décalage de colonne

Yes super ça fonctionne vous êtes tous des anges gardiens géniaux !!!

Merci beaucoup, un jour je saurais répondre à vos questions.. enfin j'espère ^^