Modifier un code

[maval]

Bonjour,

J'ai un code qui fonctionne bien mais j'aimerai lui apporte une modification.
Voici mon code:

Sub inser_TR()
n = 1
ligne = 5

t2 = "</tr> <tr>"
For m = 5 To Range("H1") * 12 Step 12
t1 = "</tr><tr> <!--" & n & " -->"
  Range("d" & m) = t1
  Range("d" & m + 6) = t2
  n = n + 1
Next
End Sub
[code]Sub inser_TR()
n = 1
ligne = 5

t2 = "</tr> <tr>"
For m = 5 To Range("H1") * 12 Step 12
t1 = "</tr><tr> <!--" & n & " -->"
  Range("d" & m) = t1
  Range("d" & m + 6) = t2
  n = n + 1
Next
End Sub

J'aimerai que sur la première ligne il mette que <tr> au lieu de </tr> <tr>
et à la dernière ligne qu'il ajoute </tr> en sachant qu'il peut avoir 1500 lignes.

Je vous remercie d'avance

Cordialement

max

 

[vgendron]

Euh...suffit de mettre les noms???
je crois qu'il manque une info essentielle... le point de départ de ton classeur...

 

[maval]

Attend on va reprendre dès le début si tu veux bien.

Dans la colonne « A6 » je rentre une liste de nom manuellement « 500, 600, ou 1124 ect…. »

En cliquant sur le bouton « Exécuter la Macro il doit y avoir ceci je te donne un exemple.

 

[vgendron]

et les données avec des parenthèses et les liens hypertexte.. à quel moment ils interviennent?

 

[maval]

Parce-que quand je les récupères ils sont comme ceci:

62 013 - AGNY (*)
50 003 - AGON COUTAINVILLE (*)
34 005 - AGONES
65 004 - AGOS VIDALOS (*)
02 005 - AGUILCOURT
81 001 - AGUTS (*)
64 008 - AHAXE ALCIETTE BASCASSAN (*)
64 009 - AHETZE
23 001 - AHUN (*)
21 003 - AHUY (*)

Donc il faut que je supprime les liens hypertexte et les (*)

Voila!

 

[vgendron]

Dans PJ

1) j'ai fait un copier coller des données colonne A de la feuille INIT VERS la feuille "Feuil1"
--> donc je copie avec les (*) et lien hypertexte
2) ensuite tout se passe sur la feuil1
-->Clic sur Supprimer Liens pour supprimer les liens hypertexte
-->Clic sur Supprimer parenthèses
puis Clic sur Exécuter MyMacro

Noramlement. tu obtiens ce que tu souhaites

Maintenant. si tu tapes manuellement une liste SANS (*). pas besoin de cliquer sur "supprimer parenthèses"
au pire ca ne fera rien.

note: si justement tu fais comme moi.un copier coller avec des parenthèses;. il faut obligatoirement cliquer sur "supprimer parenthèses" AVANT la MyMacro.. (mais ca. on peut l'intégrer automatiquement dans le code)

 

[vgendron]

Tout intégré dans un seul bouton dans la rev 3

 

[maval]

La ont commence a devenir bon il y a deux trois chose a voir.
1- sur la ligne 17, 29, 41 ect.. de la feuil1 il y a ceci <tr><tr> <!--2 --> alors que l'on devrai avoir ceci
</tr><tr> <!--2 -->
2- sur les lignes 12 à 16 24 à 28 ect... ont a ceci <td class="td_image"><a href="BAIN DE BRETAGNE.html@"<img src="../../dossier_armorial/Blason_france/blason_alpha/BAIN DE BRETAGNE-35.png" width="95" height="120" ></a></td>

Pourquoi BAIN DE BRETAGNE.html@ ?
Et après si l'on pouvez intégrer dans le code pour enlever les parenthèses et les liens sa serais top

@+

Max

 

[vgendron]

Tu pourrais au moins faire l'effort d'aller voir le code pour corriger toi meme....
Depuis le temps que tu es sur ce forum...

Rev 4

 

[maval]

Les post se sont croiser je viens de régler le problème @ il ne reste plus que le problème de
sur la ligne 17, 29, 41 ect.. de la feuil1 il y a ceci <tr><tr> <!--2 --> alors que l'on devrai avoir ceci
</tr><tr> <!--2 -->

@+

Max

 

[maval]

Bon la c'est Nickel.

Je te remercie beaucoup de ta patience et du travail que tu as fait.
Je te souhaite une bonne fin d’après-midi.

Merci encore.

@+
Max