matthunter
XLDnaute Nouveau
Bonjour, je cherche actuellement une solution à deux de mes problèmes que je n'arrive pas a résoudre.
J'aimerai mettre en forme les informations coller de la même façon que les lignes au dessus.
De plus j'aimerai que les informations soit collées dans un certain ordre selon le GRADE. (La solution des plage ne fonctionnant pas ici car certains grade ne sont pas défini de base = tri personnalisé ?)
L'ajout et la suppression de personne ne fonctionnant pas encore très bien.
J'aimerai mettre en forme les informations coller de la même façon que les lignes au dessus.
Mon code actuel :
VB:
Private Sub CommandButton1_Click()
If GRADE = "" Or NOM = "" Or PRENOM = "" Or SEXE = "" Then
MsgBox "Vous devez renseigner les 4 critères d'identification.", 0, "Information"
Else
Range("B13").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = GRADE.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = NOM.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = PRENOM.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SEXE.Value
ActiveCell.Offset(0, 1).Select
Range("B13").Select
Range("B13").Copy
With ActiveCell.Value
End With
ActiveCell.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'MISE EN FORME
MsgBox "Personnel enregistré."
Unload Me
End If
End SubDe plus j'aimerai que les informations soit collées dans un certain ordre selon le GRADE. (La solution des plage ne fonctionnant pas ici car certains grade ne sont pas défini de base = tri personnalisé ?)
L'ajout et la suppression de personne ne fonctionnant pas encore très bien.