milsodor
XLDnaute Nouveau
bonsoir,
c'est toujours moi,le débutant..
j'avance tout doucement dans mon apprentissage,mais il y a un truc que j'arrive pas à cerner..
je fait une macro je la commence par sub,elle apparait dans les macros,je peut l'appliquer grace à un bouton par exemple,mais si je met private sub,je la vois pas..??
par exemple pour trier automatiquement une colonne voila ce que j'ai tapé:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer 'indice de parcours de toutes les valeurs du trie
Dim temp As String '
Dim cell As Variant
Dim lettreCellule As String
Dim lettreColone As String
Dim nbColonesApres As Integer
Dim nbColonesAvant As Integer
Dim derCellule As String
Dim premCellule As String
cell = "b3"
nbColonesApres = 9
nbColonesAvant = 1
lettreColone = Mid(cell, 1, 1)
temp = ActiveCell.Address
lettreCellule = Mid(temp, 2, 1)
If lettreCellule = lettreColone Then
Range(cell).Select
i = 0
While ActiveCell.Offset(i, 0).Text <> ""
i = i + 1
Wend
premCellule = Range(cell).Offset(0, -nbColonesAvant).Address
derCellule = Range(cell).Offset(i - 1, nbColonesApres).Address
Range(premCellule & ":" & derCellule).Select
Selection.Sort Key1:=Range(cell), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub
donc mon probleme est que j'ai pas encore tout saisi la nuance entre ces 2 termes,malgré mes recherches....
y'a un truc qui m'echappe
,car meme en rajoutant à la fin de ma colonne un mot quelconque,la colonne n'est pas triée.
auriez vous une piste??
merci
c'est toujours moi,le débutant..
j'avance tout doucement dans mon apprentissage,mais il y a un truc que j'arrive pas à cerner..
je fait une macro je la commence par sub,elle apparait dans les macros,je peut l'appliquer grace à un bouton par exemple,mais si je met private sub,je la vois pas..??
par exemple pour trier automatiquement une colonne voila ce que j'ai tapé:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer 'indice de parcours de toutes les valeurs du trie
Dim temp As String '
Dim cell As Variant
Dim lettreCellule As String
Dim lettreColone As String
Dim nbColonesApres As Integer
Dim nbColonesAvant As Integer
Dim derCellule As String
Dim premCellule As String
cell = "b3"
nbColonesApres = 9
nbColonesAvant = 1
lettreColone = Mid(cell, 1, 1)
temp = ActiveCell.Address
lettreCellule = Mid(temp, 2, 1)
If lettreCellule = lettreColone Then
Range(cell).Select
i = 0
While ActiveCell.Offset(i, 0).Text <> ""
i = i + 1
Wend
premCellule = Range(cell).Offset(0, -nbColonesAvant).Address
derCellule = Range(cell).Offset(i - 1, nbColonesApres).Address
Range(premCellule & ":" & derCellule).Select
Selection.Sort Key1:=Range(cell), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub
donc mon probleme est que j'ai pas encore tout saisi la nuance entre ces 2 termes,malgré mes recherches....
y'a un truc qui m'echappe
,car meme en rajoutant à la fin de ma colonne un mot quelconque,la colonne n'est pas triée.
auriez vous une piste??
merci