Création de bouton particulière avec données non figées...

[LPhilou]

Bonjour nouveau problème que je vous propose avec fichier ci joint détaillé et j'espère pas 'trop' confus, j'aimerais créer des boutons avec des données non fixées à l'intérieur (donc qui se réactualisent toutes les x secondes) et ces boutons doivent toujours être au dessous de la dernière ligne remplie qui s'incrémente toutes les 5 mn (par exemple).
Voila et merci pour votre soutien,
Bonne journée


Ps : pour l'instant j'ai réussi à avoir les données qui se réactualisent et faire l'inscrémentation, mais je n'arrive pas à créer ces boutons ^^

 

[job75]

Re : Création de bouton particulière avec données non figées...

Bonjour Lphilou,

Question à cent sous : pourquoi des boutons ? Des cellules ne feraient pas l'affaire ?

A+

 

[job75]

Re : Création de bouton particulière avec données non figées...

Re,

En ne faisant que transférer des cellules, le code en Feuil2 :

Private Sub Worksheet_Change(ByVal Target As Range)
'Feuil1 est le CodeName de la 1ère feuille
If Intersect(Target, [C:I,K2:R2]) Is Nothing Then Exit Sub
Feuil1.Rows("12:" & Feuil1.Rows.Count).Delete 'RAZ
With Range("A3:I" & Range("C" & Rows.Count).End(xlUp)(2).Row)
  .Copy Feuil1.[A12]
  [K4:S4].Copy Feuil1.Cells(12 + .Rows.Count, 3)
End With
End Sub

Fichier joint.

Et maintenant ces 3 cellules colorées elles vont servir à quoi ?

A+

 

[job75]

Re : Création de bouton particulière avec données non figées...

Re,

Si vous tenez aux boutons c'est un peu plus compliqué.

Les anciens boutons sont supprimés en Feuil1 et les nouveaux transférés avec la plage J3:S4 :

Private Sub Worksheet_Change(ByVal Target As Range)
'Feuil1 est le CodeName de la 1ère feuille
If Intersect(Target, [C:I,K2:R2]) Is Nothing Then Exit Sub
Dim o As Object
For Each o In Feuil1.DrawingObjects 'suppression des objets
  If o.TopLeftCell.Row > 11 Then o.Delete
Next
Feuil1.Rows("12:" & Feuil1.Rows.Count).Delete 'RAZ
With Range("A3:I" & Range("C" & Rows.Count).End(xlUp)(2).Row)
  .Copy Feuil1.[A12]
  [J3:S4].Copy Feuil1.Cells(11 + .Rows.Count, 2) 'pour les objets
End With
End Sub

Clic droit sur un bouton pour voir le lien dans la barre de formule.

Une macro est affectée à chacun.

Fichier joint.

A+

 

[LPhilou]

Re : Création de bouton particulière avec données non figées...

Ok merci je vais regarder si ça passe... Pourquoi des boutons ? parce qu'avec ce que j'avais essayé de faire le problème que je rencontrais c'est que lors de l'incrémentation d'une nouvelle ligne sur la feuil1 ça efface du coup la cellule "live" et j'ai besoin que cette cellule reste constamment en dessous de la dernière ligne remplie donc j'ai pensé à des boutons mais bon si c'est possible plus simplement je prends ...

 

[job75]

Re : Création de bouton particulière avec données non figées...

Re,

(...) mais bon si c'est possible plus simplement je prends ...

Alors bien sûr prenez la solution de mon post #3, comme vous le voyez les cellules "live" sont toujours présentes !

A+

 

[LPhilou]

Re : Création de bouton particulière avec données non figées...

J'ai copier dans ma feuille excel votre code mais j'ai un message d'erreur qui me renvoie "Erreur d'execution 424" Bourse.Rows("12:" & Bourse.Rows.Count).Delete 'RAZ

 

[job75]

Re : Création de bouton particulière avec données non figées...

Re,

Ah oui les données "live" changent toutes les secondes, il ne faut pas transférer les plages à chaque fois !

Donc prenez cette macro où j'ai modifié le test If...Then :

Private Sub Worksheet_Change(ByVal Target As Range)
'Feuil1 est le CodeName de la 1ère feuille
If Intersect(Target, [C:I]) Is Nothing Then Exit Sub
Feuil1.Rows("12:" & Feuil1.Rows.Count).Delete 'RAZ
With Range("A3:I" & Range("C" & Rows.Count).End(xlUp)(2).Row)
  .Copy Feuil1.[A12]
  [K4:S4].Copy Feuil1.Cells(12 + .Rows.Count, 3)
End With
End Sub

Fichier (2).

A+

 

[job75]

Re : Création de bouton particulière avec données non figées...

J'ai copier dans ma feuille excel votre code mais j'ai un message d'erreur qui me renvoie "Erreur d'execution 424" Bourse.Rows("12:" & Bourse.Rows.Count).Delete 'RAZ

Bah j'ai bien dit que c'est le CodeName de la feuille qu'il faut utiliser.

Si vous n'avez pas compris ce que c'est voyez l'aide VBA, le forum ou le web.

Et n'oubliez pas mon post #8...

A+

 

[LPhilou]

Re : Création de bouton particulière avec données non figées...

Oui merci ça marche comme je voulais, pratique et encore merci pour votre temps et efficacité à plus

 

[LPhilou]

Re : Création de bouton particulière avec données non figées...

ps : effectivement le transfert des plages doit se faire toutes les X minutes (ici 5mn) et les cellules LIVE chaque seconde, merci encore bonne soirée

 

[LPhilou]

Re : Création de bouton particulière avec données non figées...

OUPS : par contre j'ai toutes mes formules de la colonne A (de la feuil1) qui s'efface à chaque mise à jour comment faire svp ?

 

[job75]

Re : Création de bouton particulière avec données non figées...

OUPS : par contre j'ai toutes mes formules de la colonne A (de la feuil1) qui s'efface à chaque mise à jour comment faire svp ?

Dans votre fichier du post #1 il n'y a pas de formules en colonne A de Feuil1.

Il y en a en colonne C mais qui ne servent à rien.

Joignez donc le bon fichier.

A+

 

[LPhilou]

Re : Création de bouton particulière avec données non figées...

Désolé comme cette colonne n'était pas concernée je l'ai pas rajouté, et de plus comme il me reste encore à rajouter d'autres formules par la suite (sur les autres colonnes à droite) autant avoir une solution qui ne se tient seulement à une sélection de colonnes j'aurais du préciser.. je renvoie un autre fichier plus détaillé merci...

 

[job75]

Re : Création de bouton particulière avec données non figées...

Re,

Non ça ne va pas :

- il faut que vous donniez les formules réellement utilisées

- sur la droite il faut que le nombre de colonnes soit limité à quelques unes

- idem pour la Mise en forme conditionnelle.

Car il faudra les recréer à chaque transfert.

Si ça ne vous convient pas c'est la conception de votre projet qu'il faut revoir.

A+