macro copie cell [Forums - Forum principal] : myDearFriend! Excel Pages

macro copie cell		#1
mahelnawe Semi pro XLPages Inscription: 30/01/2012 De Crévecoeur Messages: 108 Système d'exploitation: PC Version Excel utilisée: 2010	Posté le : 01-12-2012 04h54 Bonsoir le forum, pour alimente mes table j'utilise ce code pour 30 table ,serrai t'il ^possible de modifier ce code pour qu'il soit moins long mon souhait en utilisant toujour la derniere ligne contenant des valeur de TabTri copier vers TP ref comme dans example merci Pièce jointe: tabtri.xlsm [ Taille: 9.64 Ko - Téléchargements: 459 ]

Re: macro copie cell		#2
JeanMarie Accro XLPages Inscription: 09/05/2007 De Courcelles-les-Montbéliard Messages: 286 Système d'exploitation: PC & Mac Version Excel utilisée: Mac 2004 - 2011, et PC 2003 - 2010	Posté le : 01-12-2012 09h13 Bonjour Mahelnawe, Didier, le Forum Essaye le code ci-dessous Citation : Option Explicit Sub tp() Dim I As Byte Dim Lgn As Long Application.ScreenUpdating = False Application.EnableEvents = False Lgn = Range("J65536").End(xlUp).Row With Worksheets("TabTrie") For I = 1 To 30 .Range("J" & Lgn & ":Q" & Lgn).Offset(0, (I - 1) * 9).Copy Worksheets("TP").Range("S4").Offset(0, I).PasteSpecial Transpose:=True Next I End With Application.EnableEvents = True Application.ScreenUpdating = True End Sub Pour simplifier toutes tes lignes, on utilise la copie transposée d'une plage de cellule, le "tranposer" transforme les données copiées sous forme verticale en forme horizontale, et d'une forme horizontale en forme verticale. Après l'offset permet de faire les décalages nécessaires. @+Jean-Marie

Re: macro copie cell		#3
mahelnawe Semi pro XLPages Inscription: 30/01/2012 De Crévecoeur Messages: 108 Système d'exploitation: PC Version Excel utilisée: 2010	Posté le : 01-12-2012 15h09 Bonjour le Forum; Un grand grand merci pour l'epine que tu m'enleve ,une petite modif sur le pointage en TabTrie c niquel ... je test et reviens ..

Re: macro copie cell		#4
mahelnawe Semi pro XLPages Inscription: 30/01/2012 De Crévecoeur Messages: 108 Système d'exploitation: PC Version Excel utilisée: 2010	Posté le : 01-12-2012 18h03 Bonjour le forum,Bonjour Jean-Marie, ton code est niquel ,mes si tu pouvai ... Ou intervenir dans la macro pour qu'une nouvel feuil soit créer ,renomé par le contenue de la cellules kb1 ,et que la copie s'execute sur cette nouvel feuil renomé on cherche la derniere ligne contenant une valeur TabTti ,on copie de la premiere à la derniere dans le fichier si il existe ou dans un nouveau renome par le contenue kb1. Es ce que le fait que kb1 soit une liste validation contenant la liste des destination pour stokage de donnée soit un probleme Grand merci à toi pour ton aide Jean-Marie

Re: macro copie cell		#5
JeanMarie Accro XLPages Inscription: 09/05/2007 De Courcelles-les-Montbéliard Messages: 286 Système d'exploitation: PC & Mac Version Excel utilisée: Mac 2004 - 2011, et PC 2003 - 2010	Posté le : 02-12-2012 13h41 Bonjour maheknawe, Didier, le Forum J'ai rajouté dans le code la création de la feuille quand celle-ci n'existe pas dans le classeur, dans le cas contraire on utilise la feuille existante pour la copie des données. Citation : Option Explicit Sub tp() Dim I As Byte Dim Lgn As Long Dim vFllNom As String Application.ScreenUpdating = False Application.EnableEvents = False Lgn = Range("J65536").End(xlUp).Row vFllNom = "" With Worksheets("TabTrie") On Error Resume Next vFllNom = Sheets(.Range("Kb1").Value).Name If vFllNom = "" Then Sheets.Add after:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = .Range("Kb1") End If For I = 1 To 30 .Range("J" & Lgn & ":Q" & Lgn).Offset(0, (I - 1) * 9).Copy Worksheets(.Range("Kb1").Value).Range("S4").Offset(0, I).PasteSpecial Transpose:=True Next I End With Application.EnableEvents = True Application.ScreenUpdating = True End Sub Je n'ai pas tout compris, cela concerne "on copie de la première à la dernière dans le fichier" ? @+Jean-Marie

Re: macro copie cell		#6
mahelnawe Semi pro XLPages Inscription: 30/01/2012 De Crévecoeur Messages: 108 Système d'exploitation: PC Version Excel utilisée: 2010	Posté le : 02-12-2012 18h34 Bonjour Le Forum,Jean-Marie, Grand merci à toi pour ton aide ,j'ai posé le code , je test et reviens

Re: macro copie cell		#7
mahelnawe Semi pro XLPages Inscription: 30/01/2012 De Crévecoeur Messages: 108 Système d'exploitation: PC Version Excel utilisée: 2010	Posté le : 02-12-2012 23h03 Bonsoir le Forum,Bonsoir Jean-Marie, le code fonctionnent bien mais il faudrai que lorsque la copie ce lance se soit toujour la derniere ligne contenant des info qui soit copier. j'ai en TabTri les cellules ka2,kb2,kc2,kd2,ke2 ;chacune d'elles contient une information que j'instuit,je voudrai que chacune de ses informations mise bout à bout avec un espace entre chaqu'une d'elles deviennent ce qui va alimenté la cellule kb1 de TabTri ,es ce que cela est realisable merci pour ton aide efficace Jean-Marie Edité par mahelnawe le 03/12/2012 10:52:57

Vous pouvez voir les sujets.

Vous ne pouvez pas débuter de nouveaux sujets.

Vous ne pouvez pas répondre aux contributions.

Vous ne pouvez pas éditer vos contributions.

Vous ne pouvez pas effacez vos contributions.

Vous ne pouvez pas ajouter de nouveaux sondages.

Vous ne pouvez pas voter en sondage.

Vous ne pouvez pas attacher des fichiers à vos contributions.

Vous ne pouvez pas poster sans approbation.

Qui consulte actuellement ce sujet ? 1 Utilisateur(s) anonymes