Le problème est que !=
ne fonctionne pas comme une fonction dans Excel vba.
Je veux pouvoir utiliser
If strTest != "" Then
au lieu de If strTest = "" Then
Existe-t-il une autre approche pour faire cela en plus de !=
?
Ma fonction d'imiter !=
est
Sub test()
Dim intTest As Integer
Dim strTest As String
intTest = 5
strTest = CStr(intTest) ' convert
Range("A" + strTest) = "5"
For i = 1 To 10
Cells(i, 1) = i
If strTest = "" Then
Cells(i, 1) = i
End If
Next i
End Sub
Parce que l'opérateur d'inégalité dans VBA est <>
If strTest <> "" Then
.....
l'opérateur !=
est utilisé en C #, C++.
Dans VBA, l'opérateur !=
est l'opérateur Not
, comme ceci:
If Not strTest = "" Then ...
Juste une note. Si vous voulez comparer une chaîne avec ""
, dans votre cas, utilisez
If LEN(str) > 0 Then
ou même juste
If LEN(str) Then
au lieu.
Essayez d'utiliser <>
au lieu de !=
.