Insérer une tabulation ou CR dans Macro

Bonjour le Forum

J'ai une question toute bête :

Dans une macro j'ai un code du type :

c2 = "=SOMME(A1:A4)"

Cells(i,j) = c2

Et quand je vais voir dans ma feuille Excel, à l'emplacement de la cellule : Cells(i,j), j'ai le symbole d'erreur "#NOM?"

Visiblement c'est parce que je n'ai pas inséré un caractère Tabulation ou Retour Chariot, car si je vais sur la cellule et que je tape un "Retour chariot" ou une "Tabulation", le message disparait, et la somme demandée apparait.

Mais comment faire pour insérer une Tabulation ?

Merci pour vos idées

Alhay94

bonsoir,

remplacer par :

Cells(i,j).Formula = "=SOMME(A1:A4)"

A+

Bonsoir,

Merci pour ta réponse, mais c'est la même chose.

Je joins le fichier

La macro est activée sur clic sur le bouton en haut à droite "génère ligne de banque"

Merci d'avance

A+

Bonjour,

Pfff... C'est capilo-tracté sont truc !

Au lieu de tout ce charabia moi je déterminerai juste la plage à sommer et au lieu de mettre une formule je ferai faire l'addition par VBA :

Sub Bouton4_Cliquer() '  génération de la ligne de banque
   Dim i, j, lastrow As Integer
   Dim a#, o As Object
   Dim c1, c3, c4, plage As String

    lastrow = Range("B6").End(xlDown).Row
    If (Cells(lastrow, 4) = "BANQUE" Or Cells(lastrow, 4) = "") Then
       MsgBox "Ligne Banque déjà générée ou absente"
       Exit Sub
    End If

    Range("A" & lastrow, "D" & lastrow).Copy Range("A" & lastrow + 1, "D" & lastrow + 1)
    Cells(lastrow + 1, 4) = "BANQUE"

    ' recherche de toutes les lignes de l operation

    c1 = Cells(lastrow, 3)
    While (Cells(lastrow - i, 3) = c1)      '
        i = i + 1
    Wend

    If (Cells(lastrow, 2) = op_v) Or (Cells(lastrow, 2) = op_ce) Or (Cells(lastrow, 2) = op_pr) Then
      c3 = "I"
      c4 = "G"
      j = 9
    Else
      c3 = "G"
      c4 = "I"
      j = 7
    End If
    plage = c4 & lastrow & ":" & c4 & (lastrow - i + 1)
    For Each o In Range(plage)
      a = a + o
    Next
    Cells(lastrow + 1, j) = a
End Sub

Bon je te dis pas que c'est une merveille hein... Je me suis contenté d'adapter ce que j'ai trouvé !

A+

bonjour

mettre FormulaLocal

Cells(i, j).FormulaLocal = "=SOMME(A1:A4)"

A+

Maurice

mettre FormulaLocal

Ça ne m'a même pas effleuré !

Il reste à voir si c'est vraiment utile de poser une formule pour un calcul que VBA peut très bien faire.

A minima, tu pourras au moins t'inspirer de mon code pour faire le ménage des variables inutiles et des Select/Selection, Activesheet inutile...

A+

Merci bien, çà marche bien !

A+