Bonjour le forum;
je voudrais juste savoir pourquoi un code ne marcherais pas sur un poste alors que sur un autre poste ça marche.
La version est la même sur les deux postes
Chose curieuse le code marche le matin et le soir il ne marche plus sur la même machine
exemple de code
With ListView1
ItemtSelect = .SelectedItem.Index 'N° de l'index sélectionné dans la lisview
Numlign = Right(.ListItems(ItemtSelect).Key, Len(.ListItems(.SelectedItem.Index).Key) - 1) 'N° ligne de la feuille
If MsgBox("Confirmation de la modification.", vbYesNo, "Confirmation") = vbYes Then
'mise à jour des colonnes de la listview
.ListItems(ItemSelect).Text = UCase(TextBox1)
For k = 1 To 3
If k <> 2 Then .ListItems(ItemSelect).ListSubItems(k).Text = Controls("TextBox" & k + 1)
Next
'.ListItems(ItemSelect).ListSubItems(2).Text = CDate(TextBox3)
'mise à jour de la feuille
Sheets("Feuil1").Cells(Numlign, 1) = UCase(.ListItems(ItemSelect).Text)
Sheets("Feuil1").Cells(Numlign, 2) = .ListItems(ItemSelect).ListSubItems(1).Text
Sheets("Feuil1").Cells(Numlign, 3) = .ListItems(ItemSelect).ListSubItems(2).Text
Sheets("Feuil1").Cells(Numlign, 4) = CLng(.ListItems(ItemSelect).ListSubItems(3).Text)
le système débogue sur le deuxième code en gras
Merci le Forum
je voudrais juste savoir pourquoi un code ne marcherais pas sur un poste alors que sur un autre poste ça marche.
La version est la même sur les deux postes
Chose curieuse le code marche le matin et le soir il ne marche plus sur la même machine
exemple de code
With ListView1
ItemtSelect = .SelectedItem.Index 'N° de l'index sélectionné dans la lisview
Numlign = Right(.ListItems(ItemtSelect).Key, Len(.ListItems(.SelectedItem.Index).Key) - 1) 'N° ligne de la feuille
If MsgBox("Confirmation de la modification.", vbYesNo, "Confirmation") = vbYes Then
'mise à jour des colonnes de la listview
.ListItems(ItemSelect).Text = UCase(TextBox1)
For k = 1 To 3
If k <> 2 Then .ListItems(ItemSelect).ListSubItems(k).Text = Controls("TextBox" & k + 1)
Next
'.ListItems(ItemSelect).ListSubItems(2).Text = CDate(TextBox3)
'mise à jour de la feuille
Sheets("Feuil1").Cells(Numlign, 1) = UCase(.ListItems(ItemSelect).Text)
Sheets("Feuil1").Cells(Numlign, 2) = .ListItems(ItemSelect).ListSubItems(1).Text
Sheets("Feuil1").Cells(Numlign, 3) = .ListItems(ItemSelect).ListSubItems(2).Text
Sheets("Feuil1").Cells(Numlign, 4) = CLng(.ListItems(ItemSelect).ListSubItems(3).Text)
le système débogue sur le deuxième code en gras
Merci le Forum