Utilitaire en Béta test

Hellboy

XLDnaute Accro
Bonjour

Il y a de cela un moment, lors de mon 500ième Post, je vous offrais une mise a jour d'un utilitaire exixtant VBA_TO_XLD.xla (Fait par Sylvain) qui en gros permettais de mettre vos proses de Code VBA sous un format agréable pour les lecteurs du Forum.

Je suis dans les dernier milles de faire une mise a jour assez exaustive de l'utilitaire. Après une telle transformation, et de longues Heures de recherches et de Codage, je vais l'offrir comme un outil venant de mon cru.

La raison de ce post va servir que l'intérèt de la vérification de mon utilitaire et au Bêta tester si il en a de besoin.

Si l'envie folle vous prend de vouloir utiliser ce post pour tout autre chose, allez y gaiement ! :)
 

Hellboy

XLDnaute Accro
:)
:p
:p
B)
b)
: S
<)
:Q
:R
: S
:X
:s
:x

:)

Message édité par: Hellboy, à: 29/09/2005 04:43

Message édité par: Hellboy, à: 29/09/2005 04:45
 

Pièces jointes

  • classeur1.zip
    3.4 KB · Affichages: 41
  • classeur1.zip
    3.4 KB · Affichages: 39
  • classeur1.zip
    3.4 KB · Affichages: 34

myDearFriend!

XLDnaute Barbatruc
Test

Salut Hellboy,
Je m'invite dans ton fil...

A bientôt. [file name=TestVide.zip size=122]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TestVide.zip[/file]
 

Pièces jointes

  • TestVide.zip
    122 bytes · Affichages: 37

myDearFriend!

XLDnaute Barbatruc
Re:Test

Et encore une petite fois.... [file name=TestVide_20050827001131.zip size=122]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TestVide_20050827001131.zip[/file]
 

Pièces jointes

  • TestVide_20050827001131.zip
    122 bytes · Affichages: 45

myDearFriend!

XLDnaute Barbatruc
Re:Test

Salut HellBoy,

Heu...non désolé je ne me suis pas penché sur la question encore...
Je faisais juste un test pour répondre à DavidXLD pour son fil Lien supprimé

Cela dit, si je peux me permettre, dans ce genre de manip, il vaut mieux laisser l'utilisateur de ton appli le faire 'manuellement' si tu peux, car je trouve l'opération assez 'risquée' par macro... La manip est très simple à faire manuellement et tu vois pourtant déjà le nombre de fois où les gens oublient de joindre leur fichier ou même joignent un mauvais fichier (ça m'est arrivé lol !)...

Je te souhaite en tout cas bon courage pour ton appli.

A bientôt.
 

Hellboy

XLDnaute Accro
Re:Test

Message édité par: Hellboy, à: 29/08/2005 05:09 [file name=classeur1_20050829051951.zip size=540]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/classeur1_20050829051951.zip[/file]

Message édité par: Hellboy, à: 29/08/2005 05:19
 

Pièces jointes

  • classeur1_20050829051951.zip
    540 bytes · Affichages: 38

Hellboy

XLDnaute Accro
Re:Test

Message édité par: Hellboy, à: 25/09/2005 20:34
 

Pièces jointes

  • classeur1.zip
    3.4 KB · Affichages: 37
  • classeur1.zip
    3.4 KB · Affichages: 39
  • classeur1.zip
    3.4 KB · Affichages: 41

Hervé

XLDnaute Barbatruc
Re:Test

bonsoir

faites comme si j'etais pas là, je test

salut


Private Sub UserForm_Initialize()
Dim tablo As Variant
With Sheets('feuil2')
&nbsp; &nbsp; &nbsp; &nbsp; tablo = .Range('a2:c' & .Range('a65536').End(xlUp).Row)
End With
With ComboBox1
&nbsp; &nbsp; &nbsp; &nbsp; .ColumnCount = 3
&nbsp; &nbsp; &nbsp; &nbsp; .ColumnWidths = '90;0;0'
&nbsp; &nbsp; &nbsp; &nbsp; .List = tablo
End With
End Sub
 

Hervé

XLDnaute Barbatruc
Re:Test

re

toujours moi :)

re salut


&nbsp; &nbsp; &nbsp; &nbsp; For i = 2 To derligne
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
If compteur = 8 Then compteur = 2
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; controle = .Cells(i, 8)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
If controle > 10 And colonnevoyelle = 4 Then colonnevoyelle = colonnevoyelle + 2
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
If controle > 10 And colonnevoyelle = 5 Then colonnevoyelle = colonnevoyelle + 2
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
If InStr(1, .Cells(i, colonne), '$') > 0 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; conjugue = .Cells(compteur, colonnevoyelle) & ' ' & Replace(.Cells(i, colonne), '$', verbe)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
Else
 

Hellboy

XLDnaute Accro
Re:Test

re

J'ai beaucoup d'amitier a offrir et comme on dit l'argent fait pas le bonheur( du moins pas de tous).

En passant, tu peux ré-éditer ton post, au lieu d'en créer d'autre a chaque fois

a+
 

Statistiques des forums

Discussions
312 294
Messages
2 086 895
Membres
103 404
dernier inscrit
sultan87