Copie dans d'autres feuilles + trialpha

[abc]

Bonsoir,
je désire via l'USERFORM , copier les données dans la Feuil2 et dans la Feuil3 dans les mêmes cellules,tout en gardant le tri alpha
Merci d'avance
A +

 

[Cousinhub]

Re : Copie dans d'autres feuilles + trialpha

Bonsoir, je te propose de modifier ton code comme ceci :

Private Sub valide_Click()
Sheets("Feuil1").Activate
If nom.Value = "" Then MsgBox " Veuillez inscrire le NOM": nom.SetFocus: Exit Sub
Range("B" & [B65000].End(xlUp).Row + 1) = nom.Value
Range("C" & [B65000].End(xlUp).Row) = prenom.Value
Range("B4:C" & [B65000].End(xlUp).Row).Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For i = 2 To 3
With Sheets(i)
.Range("B4:C" & [B65000].End(xlUp).Row).ClearContents
Selection.Copy Destination:=.[b4]
End With
Next i
Unload entree
End Sub

Bon courage

 

[abc]

Re : Copie dans d'autres feuilles + trialpha

Bonsoir,
je vais tester,mais cela répond à ma demande.
Merci pour la rapidité
A +