VBA - Tableau Résolu

Question

Bonjour, 

J'ai créé un Chrono dans la case A1. 
J'ai fais une macro qui me permet : 
- de Stopper le temps
- Copier le temps en A2 
- de faire un Reset du temps
- de relancer le chrono

Je souhaite maintenant créer une macro 'Insert' ou ajouter à la macro précédente le code me permettant de mettre tous les temps dans un tableau.
Ainsi tous les temps se mettraient dans un tableau. 
Je n'arrive pas à mettre le temps dans la case suivante sans effacer l'ancier...

Voici mon début : 

Sub Insert()
Do While Not (IsEmpty(ActiveSheet.Cells(i, 1)))
ActiveSheet.Cells(i, 7) = Range("A2")
i = i + 1
Loop
End Sub

Merci pour votre aide ! 
Maxime

f894009 · Answer

Bonjour,
si j'ai compris ce que vous voulez:
Sub Insert()
    With Worksheets("feuil1")
        'premiere cellule vide colonne G
        PCV = .Range("G" & Rows.Count).End(xlUp).Row + 1
        'ecriture temps
        .Range("G" & PCV) = .Range("A2")
    End With
End Sub

michel_m · Answer

Bonjour
d'après ton code 
sans boucle 
 With ActiveSheet    .Columns("A").Find("", .Range("A1")).Offset(0, 6) = .Range("A2") End With  Michel

VBA - Tableau

2 réponses

Votre réponse

Discussions similaires