Souci Userform multiligne + col, et mise en forme

[Beast464]

Re,

Comme prevu, je me casse les dents sur un userform...bcp bcp d'excel et de vba ces dernieres semaines... moi qui ne m'en etaitjms servi.

Voici mon souci, trainant sur le site de boisgontier, j'ai trouve un formulaire super pratique, aui me permet de recup les donnees d'une feuille et de les recopier sur une autre.

Pour qu'il soit parfait j'ai voulu activer la multi selection, pour ne copier que les lignes voulues...helas sans resultat, j'ai active le multi select et fait kkes manip.

Mais le code est tres proche de Regarde la pièce jointe FormIntuitive42.zip

Je pense que mon souci se trouve par la :

Private Sub b_recupLigne_Click()
  Sheets("Recup").Cells.ClearContents
  Sheets("Recup").Range("A2").Resize(, nbcol) = _
     Application.Index(Me.ListBox1.List, Me.ListBox1.ListIndex + 1)
  For i = 1 To nbcol
    Sheets("recup").Cells(1, i) = Me("label" & i).Caption
    Sheets("recup").Cells(1, i).Font.Bold = True
  Next i
  
End Sub

J'ai essayer de rajouter une boucle For j = 2 to 150
mais ca ne m'a donner qu'une vilaine boucle infinie...

et question subsidiaire.. peut on conserver la mise en forme source?

Merci d'avance.

 

[Pierrot93]

Re : Souci Userform multiligne + col, et mise en forme

Bonjour Beast,

tu as une clé 4...

Key4:=Range("D2"), Order4:=xlAscending,

A moins que tu sois sous 2007....

un code qui fonctionne sous 2003, les données à trier commence à partir de la ligne 1, qui est une ligne de titre...

Range("A1:D" & Range("a65536").End(xlUp).Row).Sort Range("A1"), xlAscending, _
Range("B1"), , xlAscending, Range("C1"), xlAscending, header:=xlYes

bonne journée
@+

 

[Beast464]

Re : Souci Userform multiligne + col, et mise en forme

Je suis sous 2007
Mais ton code m'a l'air d'etre efficace, souvent mes differences sont sur la 4eme colonne donc si j'arrive pas a la mettre dans l'ordre pour effacer.

 

[Beast464]

Re : Souci Userform multiligne + col, et mise en forme

Je vois que Mr Boisgontier traine sur le forum ce matin.
Est-il possible via son exemple joint precedement, de copier sur des feuilles differentes certaines colonnes uniquement?