Discussion :

[PAT2794]

Bonjour

Il s'agit d'un formulaire rempli par des clubs sportifs renseignant des manifestations que je collationne et les enregistre dans un fichier Excel.
Les données sont ensuite remises en forme avant publication et impression.
Voici un extrait du fichier réel et le rendu souhaité en CH74.
je souhaite que la ligne 4 soit tanscrite dans CH79 - CN83 de la mêmemanière que la ligne 3 l'est dans CH77 - CN78

Et ainsi de suite jusqu'à la dernière ligne où la macro devra s'arrêter.

Je ute sur deux problèmes :
comment recopier la ligne 4 sur les lignes 79 à 84 ?
comment arrêter la macro à la dernière ligne ?

Merci d'avance pour votre aide
Patrick.

[419]

Bonsoir,

Le fichier joint contient des données. A moins qu'elles soient bidons, c'est un peu limite avec le RGPD..
Et le tableau est dur à lire, une version raccourci ou simplifiée aurait été plus cool.


Pour chercher la dernière ligne du tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim DerLigne as row
range("A10000").end(xlup).row ' partir d'un endroit du tableau puis remonter pour s'arrêter au dernier row non vide. Ce row donne donc la dernière ligne remplie(

Puis faire une boucle pour copier chaque ligne jusqu'à la dernière

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For i = 4 to DerLigne
    range("ch79").value = cells((i, 1).Value
    range("ci79").value = cells((i, 15).Value 'les colonnes indiquées sont bidons
    range("cj79").value = cells((i, 28).Value
    range("ck79").value = cells((i, 3).Value
 'etc, etc

au changement de i, prévoir un saut de 4 lignes pour repartir du bon endroit
et donc peut être prévoir une variable pour remplacer le numéro de la ligne CH79 et ainsi rajouter 4 à la variable lorsque une ligne i est faite

[Philippe Tulliez]

Bonjour 419,
Je m'interroge sur l'utilité de cette boucle car en finale les colonnes ch, ci, cj et ck de la ligne 79 auront les valeurs des colonnes 1, 15, 28 et 3 de la dernière ligne