Bonjour,
les remontées d'info dans le TCD sont en Euros ????
- Aller dans votre feuille TCD
- Cliquer dans la cellule A3 (en sélectionnant juste entre A2 et A3, vous allez voir le pointeur de souris en forme de flèche - cela va permettre de sélectionner tout le TCD
- une fois le TCD sélectionné, aller dans format --> Monétaire et choisir CHF Suisse dans la liste (c'est assez bas dans la liste..)
je vais sur la ligne correspondante, j'effectue mes changements.... mais après, il n'y a pas de bouton "valider" ou "enregistrer" qqch comme cela ? En plus, lorsque je fais une modification, il me met un message : saisir du numérique.
Normal car les montant sont notés en format US
Dans l'USF, remplacer le code ListBox1_Click() par celui ci-dessous :
Private Sub ListBox1_Click()
Dim ligne As Long
With Ws
ligne = ListBox1.ListIndex + 2
TextBox1 = .Cells(ligne, 1)
ComboBox1 = .Cells(ligne, 2)
ComboBox2 = .Cells(ligne, 16)
For i = 3 To 11 Step 2
Controls("TextBox" & i) = .Cells(ligne, i + 3)
Next i
If Application.OperatingSystem Like "Win*" Then
TextBox2 = Format(.Cells(ligne, 3), "0.00")
TextBox13 = Format(.Cells(ligne, 4), "0.00")
TextBox14 = Format(.Cells(ligne, 5), "0.00")
For i = 4 To 12 Step 2
Controls("TextBox" & i) = Format(.Cells(ligne, i + 3), "0.00")
Next i
Else: 'cas pour MAC
TextBox2 = Format(.Cells(ligne, 3), "0,00")
TextBox13 = Format(.Cells(ligne, 4), "0,00")
TextBox14 = Format(.Cells(ligne, 5), "0,00")
For i = 4 To 12 Step 2
Controls("TextBox" & i) = Format(.Cells(ligne, i + 3), "0,00")
Next i
End If
End With
Me.CommandButton1.Caption = "Modifier"
Me.CommandButton3.Visible = True
Label3.Visible = True
TextBox2.Visible = True
Label20.Visible = True
TextBox13.Visible = True
Label21.Visible = True
TextBox14.Visible = True
End Sub