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 :
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.
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 :
Code:
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
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.