Déclaration de constante VBA

Bonjour

Quel est le Code pour déclarer comme constante la valeur indiquée dans la cellule A1 de Feuil1 ?

Merci

Cordialement

Bonjour Amadeus

Si on se réfère au fil "valeur sur bureau" je dirais :

Const MaCellule As String = "A1"

Edit : j'ai oublié la feuille. Peut-être en nommant la cellule ?

Const MaCellule As String = "NomDéfini"

Amicalement

Nad

Bonjour Nad

Merci, mais j'aurai du commencer par ça!

Amicalement

Re

En sortant la constante et en utilisant ReDim

Option Explicit
Sub Distribuer()
    Dim Temp As Integer, Existe As Boolean
    Dim I As Integer, J As Integer, n As Integer
    n = [Donne]
    Dim RDest As Range
    ActiveSheet.Range("C1:IV1").ClearContents
    ReDim Tableau(n)
    Set RDest = ActiveSheet.Range("C1:IV1")
    Application.ScreenUpdating = False
    Randomize
    For I = 1 To n
    Existe = True
    While Existe
    Temp = Int(n * Rnd + 1)
    For J = 1 To n
    If Temp = Tableau(J) Then
    Existe = True
    Exit For
    Else
    Existe = False
    End If
    Next J
    Wend
    Tableau(I) = Temp
    Next I
    For I = 1 To n
    RDest(I).Value = Tableau(I)
    Next I
    Application.ScreenUpdating = True
End Sub

Amicalement

Nad

Bonjour Nad

Je m'étais absenté

Je te remercie. ça marche impeccable.

Amicalement

Re

Tu m'invites ?

Nad

Nad

Pour l'instant, j'ai l'odeur et je passe à table dans 5mn. Je t'ai envoyé les photos en MP pour que tu saches ce que tu aurais pu manger.

Je sais, c'est dur, mais bon..

Amicalement