Modifier un code

maval · 23 Août 2017

Bonjour,

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

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 · 25 Août 2017

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

maval · 25 Août 2017

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 · 25 Août 2017

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

maval · 25 Août 2017

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 · 25 Août 2017

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 · 25 Août 2017

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

maval · 25 Août 2017

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>  alors que l'on devrai avoir ceci
</tr><tr> 
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 · 25 Août 2017

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 · 25 Août 2017

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>  alors que l'on devrai avoir ceci
</tr><tr> 

@+

Max

maval · 25 Août 2017

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

Modifier un code

maval

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Pièces jointes

vgendron

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Pièces jointes

vgendron

XLDnaute Barbatruc

Pièces jointes

maval

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Pièces jointes

maval

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires