Recuperer données dans liste + exploitation

re Guillaume,

Je ne comprends pas bien ce message :S :huh:

Essaie ceci :

' on supprime la virgule en trop
For Each Cell In Cells(2, ColonneSkills).Resize(Range('A65536').End(xlUp).Row - 1, 1)
  If Len(Cell.Text) > 0 Then
    Cell.Text = Left(Cell.Text, Len(Cell.Text) - 2)
  End If
Next Cell

Et si ça pose encore des problèmes, eh bien... Supprime-le !!! :woohoo:

C'est juste un bout de code pour supprimer les ', ' dus à la formule SI.

Tiens-nous au courant

EDITION : Si je te donne un bout de code non modifié, ça sert pas à grand chose :whistle:

A+ 😉

Message édité par: Charly2, à: 13/06/2006 17:22

re,

Oups ! J'ai oublié de répondre à ta question sur '-AC' !!! 😱hmy:

Ton code peut être inséré à la place de la croix dans Module11:

If .TransfertEffectue Then
  X
  With Cells(2, ColonneSkills).Resize(Range('A65536').End(xlUp).Row - 1, 1)
    .FormulaR1C1 = 'Bla bla bla'
    .Copy
    .PasteSpecial xlPasteValues
    Application.CutCopyMode = False
  End With
  ...
End If

A+ 😉

re,

Alors, pour la suppression de la virgule je laisse tomber, maintenant c'est 'Objets Requis' ...

Bon d'aprés ce que tu dis po grave ....

Ensuite pour balancé le code modifié vers mon fichier complet, voici ce que j'ai fait :
1-je suppr la feuille 'QUALIF PASSAGE' (de mon fichier complet)
2-je copie/colle la feuille 'QUALIF PASSAGE' (du nouveau vers mon fichier complet)
3-je fais la meme manipe pour le 'module11' et la 'classe de donnée1'

Et ... ca ne marche pas ... lol
je te joint le fichier qui se crée.

Question : est ce que les definitions de nom suivent un copier coller ?

Pour les '-AC' ca à l'air de marcher ... en tous les cas les -ac disparaissent bien ... mais j'ai pas les qualifs qui suivent (cf pj)

Merci... (grr le lourd !!)
😱

A+