Maj plage de cellules dans macro excel

pitchoune85 Messages postés 8 Date d'inscription vendredi 24 février 2006 Statut Membre Dernière intervention 7 mars 2006 - 24 févr. 2006 à 10:55
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 24 févr. 2006 à 11:13
bonjour
je viens de m'inscrire sur ce forum que je découvre car je débute dans la création de macros dans excel.
j'ai créer une macro afin d'effectuer un tri sur une plage de cellule.
Cette plage est amenée à évoluer en y insérant ou supprimant des lignes.
mais cette évoluation ne suit pas dans ma macro.
Comment faire pour que la plage de cellules se modifie aussi dans la macro :
Sub tri_alpha_ecole()
Rows("25:35").Select
Selection.Sort Key1:=Range("A25"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A25").Select
End Sub
merci

1 réponse

jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
24 févr. 2006 à 11:13
Salut,

Il faut que tu memorise ta plage de cellule, du style

Dim LigneDebut as integer
Dim LigneFin as integer

Private Sub Command1_Click()
LigneDebut = 25
LigneFin = 35
end if

Sub tri_alpha_ecole()
Rows(LigneDebut ":" LigneFin).Select
Selection.Sort Key1:=Range("A" & LigneDebut), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A" & LigneDebut).Select
End Sub

En revanche comme je ne sais pas quand elle peut evoluer, c est a toi de savoir quand reaffecter les valeur de LigneDebut et LigneFin

Voila en esperant avoir pu t 'aider

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée
0
Rejoignez-nous