Bonjour le forum
Je galère depuis hier soir sur ce problème
dans ce code
Private Sub UserForm_Activate()
Dim Montant As Integer
ligne = ActiveCell.Row
Cells(ligne, 10).Activate
ligne = ActiveCell.Row
If Cells(ligne, 6) <> "" Then
If Cells(ligne, 7) <> "" Then 'valeurs négatives
Montant = Range(ligne, 7).Value
End If
If Cells(ligne, 8) <> "" Then 'valeurs positives
Montant = Cells(ligne, 8).Value
End If
TxtCC1Lib = "Date : " & Cells(ligne, 4) & Chr(10) & Chr(10) & "Libellé : " & Cells(ligne, 6) & Chr(10) & Chr(10) & "Montant : " & Montant & "€" 'TxtCC1Lib est une textbox
End If
End Sub
Quand la valeur est positive, j'obtiens un résultat correct
Quand la valeur est négative, la méthode Range échoue.
Pouvez vous m'expliquer pourquoi cette erreur ?