VBA insertion chaine contenant = et parenthèses

[aclech]

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

 

[david84]

Re : VBA insertion chaine contenant = et parenthèses

Bonjour,
sans fichier pour tester...place toto entre guillemets au cas où.
A+

 

[Pierrot93]

Re : VBA insertion chaine contenant = et parenthèses

Bonjour,

A priori, ton "range" est erroné... utilise "cells" si "col" continent le numéro de colonne et si "646" est le numéro de ligne :

wbOriginal.Sheets(1).Cells(606, Col) = toto

bon après midi
@+

 

[aclech]

Re : VBA insertion chaine contenant = et parenthèses

j'ai essayé la solution de Pierrot93 mais c'est idem

ci joint le fichier

 

[Grand Chaman Excel]

Re : VBA insertion chaine contenant = et parenthèses

Bonjour,

Le truc, c'est qu'il faut écrire la formule en US, en utilisant les , au lieu des ; comme séparateur :

Voici :

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
    toto = "=Sumifs(" & Col & "12:" & Col & "598,C12:C598,C606)"
    wbOriginal.Sheets(1).Range(Col & "606").Formula = toto
Next i

A+

 

[aclech]

Re : VBA insertion chaine contenant = et parenthèses

trop fort !
ca fonctionne comme je voulais

merci Grand chaman

par contre c'est noté qqpart dans l'aide excel que les formules doivent être insérées en anglais !!