mercredi, juin 18, 2008

Les réseaux sociaux tissent des liens en amont du processus de recrutement

Les entreprises peuvent maintenant se mettre en contact avec des personnes au profil intéressant, avant même de viser un poste à pourvoir. Ce, sans que la recrue potentielle soit en recherche active d'emploi.

en lire plus...

samedi, juin 14, 2008

Excel visual basic macro generates table of contents

Excel visual basic macro generates table of contents that has one entry per worksheet.

download excel file


   1:rem Eric Mariacher
2:rem generate some charts and build a table of contents as 1st worksheet
3:Sub charts and TOC()
4: Dim ws As Worksheet
5: Dim cpt, cptpoint As Long
6: Dim color_index As Long
7: For Each ws In ActiveWorkbook.Worksheets
8: ActiveWorkbook.Activate
9: ws.Select
10: ws.Activate
11: Worksheets.Add
12: With ActiveSheet
13: .Name = "G" + ws.Name
14: Rem ch = .Controls.AddChart("B2:F7", "tagada")
15: End With
16: Charts.Add
17: ActiveChart.ChartType = xlColumnStacked
18: ActiveChart.SetSourceData Source:=Range(ws.Name), PlotBy:=xlColumns
19: With ActiveChart
20: .HasTitle = True
21: .ChartTitle.Characters.Text = ws.Name
22:
23: cpt = 1
24: For cpt = 1 To .SeriesCollection.Count
25: Select Case cpt
26: Case 1
27: color_index = 1
28: Case 2
29: color_index = 9
30: End Select
31: .SeriesCollection(cpt).Interior.ColorIndex = color_index
32: Next cpt
33: End With
34: ActiveChart.Location Where:=xlLocationAsObject, Name:="G" + ws.Name
35: With Worksheets("G" + ws.Name)
36: .ChartObjects(1).Width = 900
37: .ChartObjects(1).Height = 600
38: .ChartObjects(1).Left = .Columns("A").Left
39: .ChartObjects(1).Top = .Rows("2").Top
40: End With
41: Next ws
42:
43: Dim wsTOC As Worksheet
44: Dim Chart As Chart
45: Dim r As Long
46: Application.ScreenUpdating = False
47: Set wsTOC = ActiveWorkbook.Worksheets.Add _
48: (Before:=ActiveWorkbook.Sheets(1))
49: wsTOC.Name = "Table_of_Contents"
50: wsTOC.Range("A1") = "Table of Contents"
51: wsTOC.Range("A1").Font.Size = 18
52: wsTOC.Columns("A:A").ColumnWidth = 40
53: r = 3
54: For Each ws In ActiveWorkbook.Worksheets
55: If ws.Name <> wsTOC.Name And ws.Name Like "G*" Then
56: wsTOC.Hyperlinks.Add _
57: anchor:=wsTOC.Cells(r, 1), _
58: Address:="", _
59: SubAddress:=ws.Name & "!A1", _
60: TextToDisplay:=ws.Name
61: r = r + 1
62: ws.Hyperlinks.Add _
63: anchor:=ws.Cells(1, 1), _
64: Address:="", _
65: SubAddress:="Table_of_Contents!A1", _
66: TextToDisplay:="Table of Contents"
67: End If
68: Next
69: Application.ScreenUpdating = True
70:End Sub

lundi, juin 09, 2008

Logitech Cordless Desktop® EX 100: a product I am proud of

Here is (yet another) Logitech product I am proud of:

I am proud of this keyboard because first of all I like to use it for my daily work. Though I have the opportunity to use all keyboards we are developing at Logitech Switzerland, I like the simplicity, comfort and ease of use of it, especially for it's low-cost price point. I can only recommend it to you.

I am also proud of this keyboard because it has been developed by a junior engineer coming out of school. The embedded software developed for this keyboard is 90% legacy code, and seasoned engineers do not enjoy working on legacy code as much as when they are doing completely new development. This is why I assigned this job to a beginner. She successfully stayed focused on the development of this keyboard and all issues occuring, especially when communicating with development teams in China.