VBA - Tableau
Résolu/Fermé
A voir également:
- VBA - Tableau
- Tableau croisé dynamique - Guide
- Erreur 1004 vba ✓ - Forum VB / VBA
- Tableau ascii - Guide
- Afficher un tableau en c - Forum C
- Find vba - Astuces et Solutions
2 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
10 avril 2015 à 08:30
10 avril 2015 à 08:30
Bonjour,
si j'ai compris ce que vous voulez:
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
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
Modifié par michel_m le 10/04/2015 à 08:45
Modifié par michel_m le 10/04/2015 à 08:45
Bonjour
d'après ton code
sans boucle
d'après ton code
sans boucle
With ActiveSheetMichel
.Columns("A").Find("", .Range("A1")).Offset(0, 6) = .Range("A2")
End With
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
Modifié par michel_m le 10/04/2015 à 10:33
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
With ActiveSheet
.Columns("G").Find("", .Range("G1"),xlvalues)= .Range("A2")
End With
G1 comporte une enteie
11 avril 2015 à 19:38