VBA - Tableau

Résolu
maxile -  
 maxime -
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
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
maxime
 
Merci bcp
0
Réponse 2 / 2
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
Bonjour
d'après ton code
sans boucle 
With ActiveSheet
    .Columns("A").Find("", .Range("A1")).Offset(0, 6) = .Range("A2")
 End With
Michel
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
oups ! mal réveillé :-/
With ActiveSheet
.Columns("G").Find("", .Range("G1"),xlvalues)= .Range("A2")
End With

G1 comporte une enteie
0
maxime
 
Votre solution répond exactement à ce que je voulais.
Un grand merci!
0

Discussions similaires

Formule taux de marque
vcloclo1 -
vcloclo1 -

26 réponses
Tableau croisé dynamique - absence de certaines données
crazyrider71 -
Hana -

4 réponses
generateur de combinaison du loto 5/90
Riccilo -
ccm81 -

3 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses