Copie et incrémentation VB

youky(BJ)

XLDnaute Barbatruc

• 30 Décembre 2016

• #2

Bienvenu au club Mauro,
Tu es tombé sur un bon forum.....

Sub Copie()
Worksheets("CH").Copy After:=Sheets(Worksheets.Count)
Set MySheet = ActiveSheet
With MySheet
.Name = Worksheets("CH").Range("A1")
.[A7T7].value=sheets("CH").[A6T6].value
'je peux me tromper entre 6 et 7
End With
End Sub

Bruno
les trucs à la ... sont des double-points

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 30 Décembre 2016

• #3

Bonjour Mauro et bienvenue sur XLD

EDIT: bonjour Bruno

Place le code suivant dans un module standart

VB:

Option Explicit

Sub Copie_Donnees()
Dim lig As Long, i as Long, PlageSource As Range, PlageDest As Range

  lig = Feuil1.Cells(Rows.Count, "A").End(xlUp).Row + 1

  For i = 7 To lig
  Set PlageSource = Feuil2.Range(Feuil2.Cells(i, "A"), Feuil2.Cells(i, "I"))
  Set PlageDest = Feuil1.Range(Feuil1.Cells(i, "A"), Feuil1.Cells(i, "I"))
  PlageDest.Value = PlageSource.Value
  If IsEmpty(Feuil2.Cells(i, "A")) Then
  MsgBox "Il n'y a plus de données à copier.", , "FIN DE COPIE"
  End If
  Next i
End Sub

 

Dernière édition: 30 Décembre 2016

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 30 Décembre 2016

• #4

Re

@ Bruno: serait-il possible de me donner un coup de main ICI ?

 

Vote positif 0 Vote négatif

Mauro

XLDnaute Nouveau

• 30 Décembre 2016

• #5

Coucou youky(BJ)!
tu as exactement compris ce que je cherchais!
Merci BEEEAUCOUP:!!!!
Cependant il faut que quand je refasse marcher la macro sur la nouvelle feuille, ça passe de la ligne 7 à la 8 et ainsi de suite

Lone-wolf, je n'arrive pas à faire marcher ta macro :/

Merci pour votre réactivité, c'est impressionnant!!

 

Vote positif 0 Vote négatif

Mauro

XLDnaute Nouveau

• 30 Décembre 2016

• #6

Lone Wolf: Quand je compile, il me met "erreur de compilation, variable non défini"
c'est i, qui est non défini :/

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 30 Décembre 2016

• #7

Mauro il me faut plus d'explications
de 7 à la 8............ deja de 6à 7 je pigeais pas le truc
Bruno

 

Vote positif 0 Vote négatif

Mauro

XLDnaute Nouveau

• 30 Décembre 2016

• #8

Haha... expliquer excel c'est trop dur...
Je tente avec une image

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 30 Décembre 2016

• #9

Re Mauro

1) Quelle est ta version excel?
2) Il Faut ajouter I As Long à la ligne Dim et mettre 7 ou 6 à la place de 2 (For i = 7 to lig). Désolé pour l'oubli.

EDIT: j'ai corrigé le code.

 

Vote positif 0 Vote négatif

Mauro

XLDnaute Nouveau

• 30 Décembre 2016

• #10

Haha
excel 2013
et oui c'est lig qui est non défini (pardon)

Merci

 

Vote positif 0 Vote négatif

Mauro

XLDnaute Nouveau

• 30 Décembre 2016

• #11

haha!
Le code marche mais me copie les colonnes à la place des lignes :/
J'ai essayer de corriger, mais Echec xD

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 30 Décembre 2016

• #12

Comment puis-je trouver la bonne ligne à copier ????
Quel détail fait la différence pour que ce soit la bonne ligne à recopier 1 ligne plus bas sur le nouvel onglet
Un petit exemple des données ou copie écran éclairerait bien ma lanterne.
Bruno

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 31 Décembre 2016

• #13

c'est pas parlant du tout.
Pas de quoi distinguer la ligne à copier !
Peut être avec les noms des onglets si ils sont toujours dans le même ordre
Un fichier avec le nom des onglets et qlqs données serait le bienvenu
Bruno

 

Vote positif 0 Vote négatif

Mauro

XLDnaute Nouveau

• 31 Décembre 2016

• #14

Merci énormément pour votre aide.
haha oui c’est dure de faire quelques choses de compressible...

Hum alors le 1er onglet s’appelle : données
Et il y a un seul onglet ensuite (l’onglet modèle que je cherche à copier et a incrémenter 120 fois)

Donc au final j’aurais 121 onglets


les lignes a exploiter dans l'onglet donnée sont de A à DT
qui se retrouve en O à EH dans l'onglet modèle


Merci beaucoup

 

Vote positif 0 Vote négatif

Mauro

XLDnaute Nouveau

• 2 Janvier 2017

• #15

Bonjour et Bonne année
Voici le fichier pour y voir plus clair!

Bonne journée =)

 

Pièces jointes

• tableau.xlsm

  129.9 KB · Affichages: 44

Vote positif 0 Vote négatif