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

2 réponses

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

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

Discussions similaires

Tableau (croisé dynamique?) à 3 entrées
ClementH3o -
ClementH3o -

10 réponses
Formule taux de marque
vcloclo1 -
vcloclo1 -

26 réponses