Excel 2007, défilement du cellules dans une!
Juan
-
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
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.
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.
A voir également:
- Excel 2007, défilement du cellules dans une!
- Save as pdf office 2007 - Télécharger - Bureautique
- Liste déroulante excel - Guide
- Excel additionner plusieurs cellules - Guide
- Verrouiller cellules excel - Guide
- Déplacer une colonne excel - Guide
2 réponses
Salut le forum
Colle le code suivant dans ThisWorkBook
Enregistre et ferme le fichier, à la prochaine ouverture tu verras le travail.
Mytå
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å