Bonjour à tous
Avis aux spécialistes de macros et combobox
cette combobox ne fonctionne pas sur des ordinateurs auxquels j'envois un fichier la contenant
j'ai un message d'erreur de debogage et est mis en surbrillance la ligne jaune
ci dessous,
comment réparer cette erreur et faire que cette combo fonctionne partout ?
je suis sous excel 2003 , pour les autres pc c'est variable excel 2003, 2007, 2010
Je vous remercie d'avance de m'éclairer
Bonne journée à tous
Giorgios
Private Sub ComboBox1_Click()
Set ligne = Range("A:M").Find(CStr(ComboBox1.Value), LookIn:=xlValues, lookat:=xlWhole)
If ligne Is Nothing Then Exit Sub
ligne = ligne.Row
ComboBox1.Top = Range("A" & ligne).Top - 24
ActiveWindow.ScrollRow = ligne - 1
Cells(ligne, 1).Select
ComboBox1 = "Sélectionnez une journée,CLIQUEZ ICI"
End Sub
Private Sub ComboBox1_GotFocus()
ComboBox1.DropDown
End Sub
Private Sub ComboBox2_Change()
End Sub
Private Sub Worksheet_Activate()
MaJListe
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
MaJListe
End Sub
Avis aux spécialistes de macros et combobox
cette combobox ne fonctionne pas sur des ordinateurs auxquels j'envois un fichier la contenant
j'ai un message d'erreur de debogage et est mis en surbrillance la ligne jaune
ci dessous,
comment réparer cette erreur et faire que cette combo fonctionne partout ?
je suis sous excel 2003 , pour les autres pc c'est variable excel 2003, 2007, 2010
Je vous remercie d'avance de m'éclairer
Bonne journée à tous
Giorgios
Private Sub ComboBox1_Click()
Set ligne = Range("A:M").Find(CStr(ComboBox1.Value), LookIn:=xlValues, lookat:=xlWhole)
If ligne Is Nothing Then Exit Sub
ligne = ligne.Row
ComboBox1.Top = Range("A" & ligne).Top - 24
ActiveWindow.ScrollRow = ligne - 1
Cells(ligne, 1).Select
ComboBox1 = "Sélectionnez une journée,CLIQUEZ ICI"
End Sub
Private Sub ComboBox1_GotFocus()
ComboBox1.DropDown
End Sub
Private Sub ComboBox2_Change()
End Sub
Private Sub Worksheet_Activate()
MaJListe
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
MaJListe
End Sub