poipoi
XLDnaute Impliqué
bonjour le forum
ma fille travaille sur MAC loin d'ici et moi sur PC
grace à vos contributions je lui ai mis des macros dans un petit classeur.
une pour trier automatiquement dès l'insertion d'un nom dans A:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
m = Target
[a4:O1000].Sort Key1:=[A4]
[a:a].Find(What:=m, LookIn:=xlValues).Select
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
et l'autre pour colorer la ligne active:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
ma question rejoint celle de nombreux autres, comment faire pour que ça marchez chez elle... (sachant que je n'ai pas de MAC ici) ? est-ce qu'il existe des concordances, des similitudes pour qu'à distance je puisse éventuellemnt bricoler un truc
d'avance merci à vous
ma fille travaille sur MAC loin d'ici et moi sur PC
grace à vos contributions je lui ai mis des macros dans un petit classeur.
une pour trier automatiquement dès l'insertion d'un nom dans A:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
m = Target
[a4:O1000].Sort Key1:=[A4]
[a:a].Find(What:=m, LookIn:=xlValues).Select
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
et l'autre pour colorer la ligne active:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
ma question rejoint celle de nombreux autres, comment faire pour que ça marchez chez elle... (sachant que je n'ai pas de MAC ici) ? est-ce qu'il existe des concordances, des similitudes pour qu'à distance je puisse éventuellemnt bricoler un truc
d'avance merci à vous