Merci pour vos réponses rapides,
Encore désolée pour mes erreurs de débutante qui "dérangent"mais soyez indulgent
Et merci pour les Conseils.
Jean-Eric a écrit :
Bonjour,
Tout cela est un peu brouillon.
Essaie ceci :
Option Explicit
Private Sub Workbook_Open()
Dim I As Long
Dim valPrec As String
For I = 1 To 10
valPrec = "Valeur" & I
Feuil1.Cells(I, 1) = valPrec
Next I
End Sub
Le but de la macro n'est pas d'écrire à chaque fois Valeur1 dans les cellules mais plutôt de definir des variables Valeur1 à Valeurs10 de la manière suivante mais en utilisant une boucle car j'ai plus de 10 Valeurs en vrai.
Dim Valeur1, Valeur2, Valeur3, Valeur4, Valeur5, Valeur6, Valeur8, Valeur9, Valeur10 As Integer
Feuil1.Valeur1 = Feuil1.Cells(1, 1)
Feuil1.Valeur2 = Feuil1.Cells(2, 1)
Feuil1.Valeur3 = Feuil1.Cells(3, 1)
Feuil1.Valeur4 = Feuil1.Cells(4, 1)
Feuil1.Valeur5 = Feuil1.Cells(5, 1)
Feuil1.Valeur6 = Feuil1.Cells(6, 1)
Feuil1.Valeur7 = Feuil1.Cells(7, 1)
Feuil1.Valeur8 = Feuil1.Cells(8, 1)
Feuil1.Valeur9 = Feuil1.Cells(9, 1)
Feuil1.Valeur10 = Feuil1.Cells(10, 1)
Merci encore pour vos réponses.