Excel 2007, défilement du cellules dans une!

[Fermé]
Signaler
-
Messages postés
2967
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
-
Bonjour,

Je réalise un petit travail sous excel, et j'ai une petite question.
J'aimerai dans une cellule fixe, faire afficher à tour de rôle (genre toutes les secondes), ce qui est affiché dans une cellule puis la seconde d'après afficher la cellule d'â coté....
EN A1, je veux afficher B1 puis C1 puis D1 puis E1... jusqu'à M1
Existe-t'il une formule pour ça? Laquelle?
Ou dois-je utiliser une macro? Laquelle? Par contre je débute dans le VBA...
Merci.

2 réponses

Messages postés
2967
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
880
Salut le forum

Colle le code suivant dans ThisWorkBook
Option Explicit

Dim bstop As Boolean
Dim HeureProchainAppel
Dim Position As Byte

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 bstop = True
 CelluleEnA1
 End Sub
Private Sub Workbook_Open()
 Position = 2
 CelluleEnA1
 End Sub
Sub CelluleEnA1()
 If bstop = True Then
 'Annuler le paramétrage du OnTime programmé précédemment.
 Application.OnTime EarliestTime:=HeureProchainAppel, _
  Procedure:="ThisWorkbook.CelluleEnA1", Schedule:=False
  Exit Sub
 End If
 
 With Sheets("Feuil1")
   .Range("A1") = .Cells(1, Position)
   Position = Position + 1
   If Position > 13 Then Position = 2
 End With
 
 'Nouveau paramétrage de OnTime
 HeureProchainAppel = Now + TimeValue("00:00:01")
 Application.OnTime HeureProchainAppel, "ThisWorkbook.CelluleEnA1", False
 
 End Sub

Enregistre et ferme le fichier, à la prochaine ouverture tu verras le travail.

Mytå
Messages postés
54645
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
16 septembre 2021
16 553
Non, pas de formule.

Quant aux macros, je n'y connais rien ...