OVH Cloud OVH Cloud

excel

1 réponse
Avatar
John Smith
Bonjour,

J'ai un problème avec le contrôle de excel 2003 avec vb6

J'ai deux workbook que je veux faire des transfert de donné avec l'aide de
l'utilisateur


Je vais donner les codes d'une macro que j'ai enregistré

Choisit et copie les cellules
Windows("OriFtravail.xls").Activate
Range("B9:Z10,B12:Z12").Select
Selection.Copy

Retourne dans l'autre workbook
Windows("ftravail.xls").Activate
Range("B10").Select 'Choisit une emplacement
Selection.EntireRow.Insert 'Insert le nombre le nombre de ligne copier
Selection.EntireRow.Insert
Selection.EntireRow.Insert
ActiveSheet.Paste 'colle les cellules

Efface les lignes sélectionnées en premier
Windows("OriFtravail.xls").Activate

Application.CutCopyMode = False
Selection.EntireRow.Delete

Maintenant je voudrais rendre ca dynamique
les range change (donc le nombre de ligne a insérer)
et mettre ca en vb6

Merci pour vos réponses

1 réponse

Avatar
KaDrA MPFE
comment est ta dynamique, il s' agit d' une boucle de quoi précisement ?
"John Smith" a écrit dans le message de news:
KdJEf.12978$
Bonjour,

J'ai un problème avec le contrôle de excel 2003 avec vb6

J'ai deux workbook que je veux faire des transfert de donné avec l'aide de
l'utilisateur


Je vais donner les codes d'une macro que j'ai enregistré

Choisit et copie les cellules
Windows("OriFtravail.xls").Activate
Range("B9:Z10,B12:Z12").Select
Selection.Copy

Retourne dans l'autre workbook
Windows("ftravail.xls").Activate
Range("B10").Select 'Choisit une emplacement
Selection.EntireRow.Insert 'Insert le nombre le nombre de ligne copier
Selection.EntireRow.Insert
Selection.EntireRow.Insert
ActiveSheet.Paste 'colle les cellules

Efface les lignes sélectionnées en premier
Windows("OriFtravail.xls").Activate

Application.CutCopyMode = False
Selection.EntireRow.Delete

Maintenant je voudrais rendre ca dynamique
les range change (donc le nombre de ligne a insérer)
et mettre ca en vb6

Merci pour vos réponses