Ecrire une ligne de calcul depuis une macro dans plusieurs cellule

Bonjour

Je souhaite depuis une macro écrire une ligne de calcul depuis une macro dans plusieurs cellule grâce à une incrémentation

    

    Dim Nb As Integer
    Dim Num As Integer
    Dim Apo As String

    Nb = 36
    Num = 1
    Apo = """"

    Do While Num <= Nb 
        '
        'Cette ligne fonctionne
        Cells(Num, 51) = "=AG" & Num
        '
        '
        ' Sans le = ça fonctionne et quand je vais dans la cellule et que je rajoute le = le calcul se fait     
        Cells(Num, 52) = "SI(A2=0;" & Apo & Num & Apo & ";" & Apo & Num & Apo & ")"
        ' J'ai une erreur 1004      
        Cells(Num, 52) = "=SI(A2=0;" & Apo & Num & Apo & ";" & Apo & Num & Apo & ")"
        '
        Num = Num + 1 'Le numéro est augmenté de 1 à chaque boucle
    Loop

Mais je bloque avec une erreur 1004

Bonjour,

N'oubliez pas d'ajouter le .Formula pour qu'Excel comprenne que c'est une formule que vous insérez. Ensuite, il faut écrire les instructions en anglais car elles sont lues par VBA et non Excel.

Vous pouvez donc utiliser :

Cells(Num, 51).Formula = "=AG" & Num
Cells(Num, 52).Formula = "=IF(A2=0," & Apo & Num & Apo & "," & Apo & Num & Apo & ")"

Bonne journée !

Cindy

Pfff

Merci beaucoup

après avec et sans .formula ça fonctionne

Donc pour la version française

Cells(Num, 52).Formula = "=SI(AD" & Num & "=0;" & Apo & Apo & ";CONCATENER($B$10;10*NBVAL($AD$1:AD" & Num & ");$B$11))"

=SI(AD1=0;"";CONCATENER($B$10;10*NBVAL($AD$1:AD1);$B$11))

Pour la version Anglais pour le VBA mais ne fonctionne pas non plus me donne encore l'erreur 1004

=IF($AD$1=0;"";CONCATENATE($B$10;10*COUNTA($AD$1:$AD$1);$B$11))

Et si je met ce calcul dans mon fichier excel j'ai l'erreur #NOM?

car le IF ce programme avec des , et non des ;

https://support.office.com/en-gb/article/if-function-69aed7c9-4e8a-4755-a9bc-aa8bbff73be2

Sauf que quand je met des , mon excel n'en veut pas

Vous pouvez ignorer mon dernier message