Bonjour à la communauté.
Voilà, je cherche une solution à ce que je pense être un ".formula".
J'ai des centaines de lignes (colonne A), et je cherche à concaténer les colonnes de 27 (AA) ) à 36 (AJ). Mais en faisant une formule, dans le style "Concatener" de la même ligne...
Mais je dois recréer cette formule pour beaucoup de ligne (j'ai misé sur 5000).
J'avais donc pensé à un .Formula, mais je ne m'en sors pas...
J'ai donc écris ce petit bout de code (que je vais devoir agrandir à l'avenir, car c'est du Excel<>AutoCAD).
Voici ce bout de code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ReinitExcel()
    NomFeuille = ActiveSheet.name
    For L = 2 To 5000
        SelectFormule = ""
        For Col = 27 To 36
            SelectFormule = SelectFormule & "A" & Trim(Str(Col)) & ";"
        Next
        SelectFormule = Left(Trim(SelectFormule), Len(Trim(SelectFormule)) - 1)
        SelectFormule = "=Concatener(" & SelectFormule & ")"
        Selection.Formula = SelectFormule
        Debug.Print "SelectFormule fini = " & SelectFormule
        ActiveWorkbook.Worksheets(NomFeuille).Range(SelectFormule).Select.Formula = SelectFormule
    Next
End Su
Si quelqu'un a une réponse, une astuce, une explication... Je suis preneur...
Bien à toi, la communauté.
Denis...