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

     

bernard_daniel_1950's avatar
bernard_daniel_1950
Iron Contributor
Oct 13, 2022
Bonjour,
Je ne voudrais pas abuser... mais je souhaite désormais sélectionner une plage de cellules à partir de la position actuelle jusqu'à une cellule appelée "chrono".
En fait, je suis en train de remplacer mes vielles formules excel 4!!!
  • bernard_daniel_1950's avatar
    bernard_daniel_1950
    Iron Contributor
    Oct 13, 2022
    Encore merci!
    Mais je ne vais pas continuer à vous solliciter ainsi sans arrêt...
    Auriez vous un site ou un bouquin à me conseiller?
    ceux que j'ai trouvés sur le net ne sont pas très satisfaisants, du moins pour mon (très faible) niveau!
      • bernard_daniel_1950's avatar
        bernard_daniel_1950
        Iron Contributor
        Oct 14, 2022
        J'avais pourtant promis, mais le livre commandé n'arrivera que la semaine prochaine!
        Je bute sur une action:
        ------------------------------
        Application.ScreenUpdating = False
        Application.Goto Reference:="modpass"
        Dim mdp As String
        mdp = InputBox("Saisissez le mot de passe!", "Action protégée par mot de passe.")
        If mdp <> "biblio" Then
        MsgBox "mot de passe incorrect!"
        End If
        If MsgBox("Cette action va réinitialiser la grille; es données enregistrées seront conservées. Elle peut être renouvelée à tout moment. Si c'est ce que vous souhaitez faire, cliquez sur 'Oui', sinon sur 'Non'.", vbYesNo, "demande de confirmation") = vbNo Then
        MsgBox "Réinitialisation abandonnée!"
        End If
        Application.Goto Reference:="sauvcodbarre"
        ---------------------------------
        A chaque fois, le message s'affiche mais... la macro continue imperturbablement!
        Que faire pour qu'elle s'arrête si 1/ le mot de passe est incorrect; 2/ si la réponse est non à la deuxième question? (même problème, je suppose!)
        Cette fois ci, c'est vraiment promis!!!

Resources