collage multiple avec intervalle

pierrejean

XLDnaute Barbatruc

• 5 Août 2008

• #2

Re : collage multiple avec intervalle

bonjour jipé77

Une macro a tester:

Code:

Sub test()
lin = 2
For n = 2 To 8
 feuil = Sheets("Liste").Cells(2, n).Value
 Sheets(feuil).Cells.ClearContents
   For m = 3 To Sheets("Liste").Cells(65536, n).End(xlUp).Row
     With Sheets(feuil)
       .Range("E" & lin) = Sheets("Liste").Cells(m, n)
       Range("LaMatrice").Copy Destination:=.Range("B" & lin + 1)
     End With
     lin = lin + 7
  Next m
lin = 2
Next n
End Sub

 

Pièces jointes

• Remplissage Nom-Tableau.zip

  14.8 KB · Affichages: 28
• Remplissage Nom-Tableau.zip

  14.8 KB · Affichages: 28
• Remplissage Nom-Tableau.zip

  14.8 KB · Affichages: 28

Vote positif 0 Vote négatif

J

jipé77

Guest

• 5 Août 2008

• #3

Re : collage multiple avec intervalle

PierreJean
Merci mille fois je viens de tester ta macro, C SUPER, je vais l'intégrer dans le fichier réel.
Merçi encore, C'est vrai que par rapport à la macro enregistrée il n'y a pas photo
@+
Amicalement
Jipé
🙂

 

Vote positif 0 Vote négatif

J

jipé77

Guest

• 5 Août 2008

• #4

Re : collage multiple avec intervalle

PierreJean,
Je viens de tester ta macro C SUPER, je vais l'intégrer au fichier réel. MERCI mille fois, par rapport à la macro enregistrée il n'y a pas photo!! Merci encore
@+
Amicalement
Jipé

 

Vote positif 0 Vote négatif

J

jipé77

Guest

• 6 Août 2008

• #5

Re : collage multiple avec intervalle

Bonjour PierreJean
J'ai adapté la macro à mon fichier j'ai modifié pour le nbre de colonnes à
n = 2 to 8 car il y 40 colonnes par contre lorsque j'envoie test la macro s'arrête j'ai le message erreur d'exécution "1004", la ligne correspondante est : Range("LaMatrice")..... a quoi cela est-il du? Les listes sont au même nombre et positionnées exactement comme le tableau initialement fourni.
@+ amicalement
Jipé

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 6 Août 2008

• #6

Re : collage multiple avec intervalle

Re

LaMatrice est le nom de la plage contenant la Matrice a copier

Pour nommer une plage:
La selectionner puis remplacer son adresse en haut a gauche (juste au dessus du A) par le nom voulu (ici LaMatrice) est taper sur Entrée

 

Vote positif 0 Vote négatif

J

jipé77

Guest

• 6 Août 2008

• #7

Re : collage multiple avec intervalle

C'est OK autant pour moi je pensais nom de la feuille, quelle est l'astuce pour que le format des cellules largeur colonne soit identique à la matrice
Merci d'avance
Jipé

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 7 Août 2008

• #8

Re : collage multiple avec intervalle

Re

Voici la version avec copie des largeurs de colonne

 

Pièces jointes

• Remplissage Nom-Tableau.zip

  16.2 KB · Affichages: 38
• Remplissage Nom-Tableau.zip

  16.2 KB · Affichages: 39
• Remplissage Nom-Tableau.zip

  16.2 KB · Affichages: 42

Vote positif 0 Vote négatif

J

jipé77

Guest

• 8 Août 2008

• #9

Re : collage multiple avec intervalle

Bonjour PierreJean,
Désolé du retard pour le suivi de ce PB, c'est OK merci mille fois
Bon Week-End
Jipé

 

Vote positif 0 Vote négatif