J'ai un problème assez spécifique avec la fonction CInt. N'ayant pas trouvé de réponse sur Internet, je me permets de demander votre aide.
Je vous décris rapidement le problème global : j'ai dans une colonne un ensemble de String, qui sont soit vides, soit des entiers éventuellement négatifs. A partir de ces entiers, je veux mettre des croix dans une autre feuille, les cases remplies dépendant de ces entiers.
J'arrive à faire marcher une version test lorsque la colone de données est DANS la feuille à remplir :
Sub Macro2()
' test2 Macro
' deuxieme macro test
'
Dim d As String
Dim n As Integer
n = 0
For Each cel In Worksheets("test2").Range("A1:A8").Cells
If Not cel.Value = "" Then
d = CStr(cel.Value)
Sheets("test2").Range("$D$4").Offset(1 * n, CInt(d)).Value = "x"
End If
n = n + 1
Next cel
MsgBox " Done "
End Sub
Le problème survient lorsque j'utilise deux feuilles différentes (ce qui doit être le cas pour l'application finale) :
Sub Test3()
'
' test3 Macro
' troisième macro test
'
Dim d As String
Dim n As Integer
n = 0
For Each cel In Worksheets("feul1").Range("H9:H87").Cells
If cel.Value <> "" Then
d = CStr(cel.Value)
Sheets("feuil2").Range("$AS$118").Offset(25 * n, CInt(d)).Value = "x" n = n + 1
End If
Next cel
MsgBox " Done "
End Sub
J'obtiens une erreur sur CInt sur la ligne soulignée. Un problème de type.
Je ne comprends pas pourquoi quand les données sont sur deux feuilles séparées, ça ne marche plus. Quelqu'un pourrait-il m'aider, svp ?
