Forum Discussion

bernard_daniel_1950's avatar
bernard_daniel_1950
Iron Contributor
Oct 13, 2022
Solved

macro VBA excel nommer une cellule

Dans une macro, je veux donner un nom à une cellule donnée, à savoir celle où je suis au lancement de la macro. si je laisse "range", avec des références absolues, la macro fonctionne, mais une seul...
Macros and VBA
  • HansVogelaar's avatar
    HansVogelaar
    Oct 16, 2022

    bernard_daniel_1950 

    Peut-être:

        Dim s As String
    Dim reto As Range
    Set reto = Selection
    Do
        s = InputBox("Scannez le document, puis cliquez sur 'OK'; en fin de série, cliquez sur OK! ", " Enregistrement du retour ")
        If s = "" Then Exit Do
        Application.Goto Reference:="codbarretour"
        Do While ActiveCell > 0
            ActiveCell.Offset(1, 0).Activate
        Loop
        reto.Select
        reto.Formula = s
        ActiveCell.Offset(0, 10).Activate
        Range(ActiveCell, Range("chrono")).Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues
        ActiveCell.Offset(0, -12).Activate
    Loop

     

HansVogelaar's avatar
HansVogelaar
MVP
Apr 24, 2024

bernard_daniel_1950 

Problème 1 : vous déchargez le userform avant d'appeler RecupSauv, donc la valeur de la listbox n'existe plus. Solution:

Private Sub recupération_Click()
    Call recupsauv
    Unload Me
End Sub

Problème 2 : afficher correctement la date. Solution:

    Dim d As String
    If Choixsauv.Listsauve.ListIndex > -1 Then
        d = Format(Choixsauv.Listsauve, "dd/mm/yyyy")
    End If
    s = InputBox("entrez la date désirée, sous la forme 'jj/mm'.", _
            "Recherche de journée sauvegardée", d)
bernard_daniel_1950's avatar
bernard_daniel_1950
Iron Contributor
Apr 27, 2024
Bonjour,
Je rencontre un phénomène étrange (du moins pour moi!):
si je rentre dans des userforms (boutons...) des cellules liées contenant des formules, celle ci sont parfois "écrasée" lors de l'utilisation des uforms (la formule se transforme en valeur!).
Pour être clair, si j'ai: =2=2 en formule, ça se transforme en : 4!
Est-ce "normal", ou y a t-il quelque chose à faire?
Ou alors le problème vient d'ailleurs?
  • HansVogelaar's avatar
    HansVogelaar
    MVP
    Apr 28, 2024

    bernard_daniel_1950 

    Quand une zone de texte est liée à une cellule, la valeur de la cellule est identique à la valeur de la zone de texte. Ainsi, la cellule contient une valeur, pas une formule...

     

  • bernard_daniel_1950's avatar
    bernard_daniel_1950
    Iron Contributor
    Apr 28, 2024
    Oui, merci, ça marche!
    Mais pourquoi ne peut on pas utiliser l'autre méthode (cellules liées)?
    Juste pour mon info personnelle!
  • bernard_daniel_1950's avatar
    bernard_daniel_1950
    Iron Contributor
    Apr 27, 2024
    Euh... Pourriez vous être plus explicite?
    Un exemple?
  • HansVogelaar's avatar
    HansVogelaar
    MVP
    Apr 27, 2024

    bernard_daniel_1950 

    C'est normal. Pour éviter cela, ne liez pas les zones de texte aux cellules, mais utilisez VBA pour transférer les valeurs entre les zones de texte et les cellules.

Resources