VBA - Tableau

Résolu/Fermé

maxile - Modifié par crapoulou le 9/04/2015 à 22:51
maxime - 11 avril 2015 à 19:38

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:

VBA - Tableau
Tableau word - Guide
Tableau ascii - Guide
Tableau croisé dynamique - Guide
Trier tableau excel - Guide
Imprimer tableau excel sur une page - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
10 avril 2015 à 08:30

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

maxime
11 avril 2015 à 19:38

Merci bcp

Réponse 2 / 2

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
Modifié par michel_m le 10/04/2015 à 08:45

Bonjour
d'après ton code
sans boucle

With ActiveSheet
    .Columns("A").Find("", .Range("A1")).Offset(0, 6) = .Range("A2")
 End With

Michel

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
Modifié par michel_m le 10/04/2015 à 10:33

oups ! mal réveillé :-/
With ActiveSheet
.Columns("G").Find("", .Range("G1"),xlvalues)= .Range("A2")
End With

G1 comporte une enteie

maxime
11 avril 2015 à 19:38

Votre solution répond exactement à ce que je voulais.
Un grand merci!

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Formule taux de marque

generateur de combinaison du loto 5/90