mémoriser données importées en temps réel par dde

Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Entraide Applications Microsoft Office Excel mémoriser données importées en temps réel par dde

12 réponses

bouak

12/06/2005 à 10:09

Bonjour,
Si vous pouviez m'aider ce serait super, voici mon problème:

Par lien dde je réceptionne sur excel en C1 un nombre qui change en temps
réel. Au fur et à mesure de l'apparition de chaque dernier nombre, je désire
l'enregistrer en A1 et lorsque le suivant apparait le précédant passe en
A2 et ainsi desuite jusqu'à A5 afin d'avoir en permanence les 5 derniers
nombres entre les cellules A1 et A5.

SVP comment faire pour y arriver.

Merci de votre aide.

--
bouak

2 réponses

1 2

AV

12/06/2005 à 17:22

Clic droit sur l'onglet de feuille > visualiser le code > copier/coller le code
suivant :

Private Sub Worksheet_Change(ByVal zz As Range)
Select Case zz.Address
Case "$B$13"
Application.EnableEvents = False
[B18] = [B17]: [B17] = [B16]: [B16] = [B15]: [B15] = [B14]
[B14] = zz
Application.EnableEvents = True
Case "$C$13"
Application.EnableEvents = False
[C18] = [C17]: [C17] = [C16]: [C16] = [C15]: [C15] = [C14]
[C14] = zz
Application.EnableEvents = True
End Select
End Sub

AV

bouak

12/06/2005 à 18:50

Cà fonctionne super, vifs remerciements, je vai me mettre à bouquinner pour
être moins cancre.

--
bouak

Clic droit sur l'onglet de feuille > visualiser le code > copier/coller le code
suivant :

Private Sub Worksheet_Change(ByVal zz As Range)
Select Case zz.Address
Case "$B$13"
Application.EnableEvents = False
[B18] = [B17]: [B17] = [B16]: [B16] = [B15]: [B15] = [B14]
[B14] = zz
Application.EnableEvents = True
Case "$C$13"
Application.EnableEvents = False
[C18] = [C17]: [C17] = [C16]: [C16] = [C15]: [C15] = [C14]
[C14] = zz
Application.EnableEvents = True
End Select
End Sub

AV

1 2

mémoriser données importées en temps réel par dde

2 réponses

Veuillez sélectionner un problème