Ecrire avec une macro

Bonjour

J’ai une macro qui me crée automatiquement un tableau de X colonnes sur Y lignes, qui écrit automatiquement un texte dans la case X1Y1 et ce quel que soit la case sélectionnée dans ma page EXCEL.

Je n’arrive pas à trouver le « code » pour faire écrire :

• Un texte spécifique dans les cases X2Y1
• Un texte spécifique dans les cases X3Y1
• Un texte spécifique dans les cases X4Y1
• Ainsi de suite jusqu’à la fin de mon tableau en X8Y1

j'ai bien essayé de dupliquer le code qui ecrit en X1Y1 mais cela ne focntionne pas.

Est-que quelqu’un aurai une idée ?

Merci

Bonjour et bienvenu sur le site

Sub CreerTableauEtEcrireTexte()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1) ' Changez le numéro de la feuille si nécessaire

    Dim X As Integer
    Dim Y As Integer
    X = 8 
    Y = 8 
    Dim i As Integer
    Dim j As Integer
    For i = 1 To Y
        For j = 1 To X
            ws.Cells(i, j).Value = "" 
        Next j
    Next i  
    Dim textes(1 To 8) As String
    textes(1) = "Texte pour X1Y1" ' Texte pour X1Y1
    textes(2) = "Texte spécifique 1" ' Texte pour X2Y1
    textes(3) = "Texte spécifique 2" ' Texte pour X3Y1
    textes(4) = "Texte spécifique 3" ' Texte pour X4Y1
    textes(5) = "Texte spécifique 4" ' Texte pour X5Y1
    textes(6) = "Texte spécifique 5" ' Texte pour X6Y1
    textes(7) = "Texte spécifique 6" ' Texte pour X7Y1
    textes(8) = "Texte spécifique 7" ' Texte pour X8Y1   
    For i = 1 To 8
        ws.Cells(i, 1).Value = textes(i)
    Next i
End Sub

A tester

super rapide merci beaucoup

je vais tester

bonne journee