Discussion :

[Paenitentia]

Bonjour à tous, je souhaiterais écrire dans une cellule donnée le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(Ax="";"";Coefficients!$C$1)

En sachant que x est la ligne de la cellule et Coefficients une feuille de calcul contenue dans le même tableur. J'ai essayé ce code dans une cellule et celui-ci fonctionne.

Seulement, je souhaiterais le réaliser sur l'ensemble des cellules. Je réalise donc une macro avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub init()
    For A = 6 To 65536
        Cells(A, 23).Value = "=SI(A" & A & "=" & Chr(34) & Chr(34) & ";" & Chr(34) & Chr(34) & ";" & Chr(34) & "Coefficients!$C$1)"
    Next A
End Sub

Toutefois, il m'affiche une erreur lors de la lecture de la ligne contenant la commande Cells. Est-ce que l'un d'entre vous pourrait m'apporter son aide ?

En vous remerciant par avance.

[aalex_38]

Bonjour,


remplace le .value par .FormulaR1C1

[BenjGe]

plus simplement tu as aussi ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub main()
 
Range("R6:R65536").FormulaR1C1Local = "=SI(LC(-1)="""";"""";Coefficients!L1C3)"
 
End Sub

ou encore ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub main2()
Application.Range(Cells(6, 23), Cells(65536, 23)) _
              .FormulaR1C1Local = "=SI(LC(-1)="""";"""";Coefficients!L1C3)"
End Sub

Dans le cas où tu ajoutes une colonne de calcul en 23ème colonne d'une base de données (attention compter 1 à partir de la première colonne) dont une des cellules est A1, et ne comportant qu'une ligne d'en tête. la base doit aussi comprendre au moins 23 en têtes minimum:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub main3()
 
Dim plage As Range
Set plage = Range("A1").CurrentRegion
With plage
    Application.Range(.Cells(2, 23), .Cells(.Rows.Count, 23)) _
               .FormulaR1C1Local = "=SI(LC(-1)="""";"""";Coefficients!L1C3)"
End With
 
End Sub

Enfin une petite dernière en précisant la feuille sur laquelle il faut opérer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Main4()
Dim plage As Range
Set plage = Worksheets("MA FEUILLE").Range("A1").CurrentRegion
With plage
    Application.Range(.Cells(2, 23), .Cells(.Rows.Count, 23)) _
               .FormulaR1C1Local = "=SI(LC(-1)="""";"""";Coefficients!L1C3)"
End With

End Sub


Bon code!!

[Pierre Fauconnier]

Salut.

Perso, je n'aime pas le .formulalocal parce qu'en cas d'utilisation sur une autre version linguistique d'excel => bug.

Une bonne manière d'insérer une formule dans un code VBA est de la créer en Excel puis de la récupérer en VBA.

J'ai donné tout à l'heure cette réponse dont tu peux t'inspirer.

Cela étant, utiliser une formule sur les lignes 6 à 65536 va bouffer des ressources. Tu as intérêt à délimiter ta plage avec plus de précision.

[Paenitentia]

Merci beaucoup à tous.