A
aclech
Guest
bonjour
je demande un peu d'aide car la je suis perdu
j'ai une erreur 1004 avec le code suivant (ligne ou j'affecte la valeur toto dans la cellule)
pouvez vous me dire ce qui cloche ?
j'ai utiliser des Chr pour échapper les caractères = et () mais il ne veut toujours pas
Dim i As Integer
Dim Col As String
Dim wbOriginal As Workbook
Dim toto As String
Set wbOriginal = Application.ActiveWorkbook
On Error GoTo GestErreurs
For i = 9 To 250
Col = NumCol2Lettre(i)
toto = Chr(61) & "SOMME.SI.ENS" & Chr(40) & Col & "12:" & Col & "598;C12:C598;C606" & Chr(41)
wbOriginal.Sheets(1).Range(Col & "606") = toto
Next i
Exit Sub
je demande un peu d'aide car la je suis perdu
j'ai une erreur 1004 avec le code suivant (ligne ou j'affecte la valeur toto dans la cellule)
pouvez vous me dire ce qui cloche ?
j'ai utiliser des Chr pour échapper les caractères = et () mais il ne veut toujours pas
Dim i As Integer
Dim Col As String
Dim wbOriginal As Workbook
Dim toto As String
Set wbOriginal = Application.ActiveWorkbook
On Error GoTo GestErreurs
For i = 9 To 250
Col = NumCol2Lettre(i)
toto = Chr(61) & "SOMME.SI.ENS" & Chr(40) & Col & "12:" & Col & "598;C12:C598;C606" & Chr(41)
wbOriginal.Sheets(1).Range(Col & "606") = toto
Next i
Exit Sub