Répartir des informations à partir d'un compteur [Forums - Forum principal] : myDearFriend! Excel Pages

Répartir des informations à partir d'un compteur		#1
Titom1978 Aspirant XLPages Inscription: 04/10/2009 Messages: 39 Système d'exploitation: PC & Mac Version Excel utilisée: 2007, 2010, 2011 MAC	Posté le : 29-07-2011 17h06 Bonjour à toutes et à tous! Je viens vers vous pour vous demander un petit service. Je me fais mal aux neurones depuis quelques heures pour faire ce qui suit: En colonne A: Une liste de données dont le type est similaire une ligne sur trois (Pour tout vous dire, je travaille sur les noms de communes / Code INSEE / Code postal). Le but de la manoeuvre est de mettre dans un tableau en Feuil2: Dans la colonne A: Le nom des communes Dans la colonne B: Le code INSEE Dans la colonne C: Le code postal Je n'arrive pas à faire un copier coller des valeurs dans la page deux, à partir des cellules sélectionnées à partir du compteur. Je n'ai fait que le premier compteur, vu que ce dernier ne fonctionnait pas... En deux mots: AU SECOURS!!!!! Et d'avance merci pour le coup de main. Titom Pièce jointe: Exemple_MDF.xls [ Taille: 35.00 Ko - Téléchargements: 408 ]

Re: Répartir des informations à partir d'un compteur		#2
Eric Semi pro XLPages Inscription: 12/06/2008 De Ile de France Sud Messages: 145 Système d'exploitation: PC Version Excel utilisée: 2003 _ 2010	Posté le : 29-07-2011 20h01 Bonsoir à tous Bonsoir Titom1978 Juste pour la partie "copie", essaie ceci : `Sub copie_sur_Feuil2() Dim a As Integer 'ou long Dim i As Integer 'ou long Dim derlign As Integer 'ou long Dim tablo() derlign = Sheets("Feuil1").Range("a65536").End(xlUp).Row ReDim tablo(derlign, 2) For i = 1 To derlign Step 3 tablo(a, 0) = Cells(i, 1) tablo(a, 1) = Cells(i + 1, 1) tablo(a, 2) = Cells(i + 2, 1) a = a + 1 Next i Sheets("Feuil2").Range("a1:c" & derlign / 3) = tablo() 'dans ce cas derlign est un multiple de 3 End Sub` si j'ai compris Dis nous Eric

Re: Répartir des informations à partir d'un compteur		#3
Titom1978 Aspirant XLPages Inscription: 04/10/2009 Messages: 39 Système d'exploitation: PC & Mac Version Excel utilisée: 2007, 2010, 2011 MAC	Posté le : 30-07-2011 09h00 Bonjour Eric, Bon, comment dire... C'est ENORME!!!! Merci beaucoup!! Ca fonctionne à merveille, exactement ce que je souhaitais! Bon, je sais que je vais abuser, mais serait-il possible que tu puisses m'expliquer en détail ta démarche? Comme tu as pu le voir, je débute en VBA et par soucis de progression, je ne veux pas juste profiter de ta réponse, mais également la comprendre complètement! D'avance merci! Titom

Re: Répartir des informations à partir d'un compteur		#4
Eric Semi pro XLPages Inscription: 12/06/2008 De Ile de France Sud Messages: 145 Système d'exploitation: PC Version Excel utilisée: 2003 _ 2010	Posté le : 30-07-2011 12h10 Bonjour à tous Bonjour Titom Une petite explication du code : Sub copie_sur_Feuil2() 'déclaration des variables Dim a As Integer 'ou long si a>32 767 (dans le cas présent plus de 98301 lignes) Dim i As Integer 'ou long si + de 32 767 lignes Dim derlign As Integer 'ou long si + de 32 767 lignes Dim tablo() 'déclaration d'une variable tableau derlign = Sheets("Feuil1").Range("a65536").End(xlUp).Row 'récupération de la derlign de la colonne "A" ReDim tablo(derlign, 2) 'redimensionnement de "tablo" en bidimensionnel For i = 1 To derlign Step 3 'boucle de lecture de la colonne "A" avec un pas de trois tablo(a, 0) = Cells(i, 1) 'affectation de la valeur de la cellule (i,1) à tablo(a, 0) tablo(a, 1) = Cells(i + 1, 1) ' ..... i+1 tablo(a, 2) = Cells(i + 2, 1) ' ..... i+2 a = a + 1 'on incrémente "a" de 1 Next i Sheets("Feuil2").Range("a1:c" & derlign / 3) = tablo() 'copie de "tablo" sur la feuille 2 ' derlign / 3 => dans ce cas derlign est un multiple de 3 End Sub si tu veux +, dis nous Bon WE à tous Eric

Re: Répartir des informations à partir d'un compteur		#5
Titom1978 Aspirant XLPages Inscription: 04/10/2009 Messages: 39 Système d'exploitation: PC & Mac Version Excel utilisée: 2007, 2010, 2011 MAC	Posté le : 30-07-2011 16h57 Merci beaucoup Eric pour tes explications! A bientôt sur le forum! Titom

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