Forum Discussion

bernard_daniel_1950's avatar
bernard_daniel_1950
Iron Contributor
Oct 13, 2022

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 27, 2022
Encore deux questions...
-J'appuie sur F8 et, effectivement, la macro se déroule ligne par ligne... mais je ne vois pas l'effet, étape par étape, sur la feuille de calcul elle-même!
- J'ai créé mon personal.XLSB, je voudrais maintenant y faire rentrer mes macros déjà créées. Comment faire?
Je n'ose plus dire merci, cela devient répétitif!
  • HansVogelaar's avatar
    HansVogelaar
    MVP
    Oct 27, 2022

    bernard_daniel_1950 

     

    > J'appuie sur F8 et, effectivement, la macro se déroule ligne par ligne... mais je ne vois pas l'effet, étape par étape, sur la feuille de calcul elle-même!

     

    C'est curieux - je ne comprends pas ça...

     

    > J'ai créé mon personal.XLSB, je voudrais maintenant y faire rentrer mes macros déjà créées. Comment faire?

     

    Vous pouvez faire glisser des modules de code d'un classeur ordinaire vers PERSONAL.XLSB dans le Visual Basic Editor pour effectuer une copie.

  • bernard_daniel_1950's avatar
    bernard_daniel_1950
    Iron Contributor
    Oct 28, 2022
    Bonjour,
    j'ai créé mon personal.xlsb. Est-il possible de changer le nom des modules pour le rendre plus explicite?
    par ailleurs, pour l'autre problème, la macro affiche la feuille de calcul uniquement en cas de MsgBox...
    et, enfin, je bute sur quelque chose:
    ---------------
    Dim j As String
    j = InputBox("Indiquez le jour d'insertion.", " Jour d'insertion")

    Range("A14").Select
    Do While ActiveCell.Value > j
    ActiveCell.Offset(1, 0).Activate
    Loop
    -------------------
    Je reste sur A14! Je dois rater quelque chose...
    Dank u!
  • HansVogelaar's avatar
    HansVogelaar
    MVP
    Oct 28, 2022

    bernard_daniel_1950 

    Oui, vous pouvez changer le nom des modules:

     

     

    Qu'est-ce que vous tapez dans le MsgBox?

  • bernard_daniel_1950's avatar
    bernard_daniel_1950
    Iron Contributor
    Oct 28, 2022
    -Merci, je n'avais pas cette fenêtre!
    -Un jour quelconque, sous forme numérique. Par exemple: 21 pour le 21ème jour du mois.
    Cela me servira pour entrer une ligne ou plusieurs dans un tableau, à une date postérieure.
  • HansVogelaar's avatar
    HansVogelaar
    MVP
    Oct 28, 2022

    bernard_daniel_1950 

    Dans le Visual Basic Editor, tapez F4 pour activer cette fenêtre.

     

    Serait-il possible de joindre un classeur (sans information personnalisée ou sensitive)? Ou de télécharger le classeur vers Google Drive ou OneDrive, et afficher un lien ici?

  • bernard_daniel_1950's avatar
    bernard_daniel_1950
    Iron Contributor
    Oct 28, 2022

    HansVogelaar 

    Mon tableau est -relativement- complexe... dans sa partie cachée!

     

     

    JourNOM- PrénomCarte perdueStatut particulierInscription  payanteInscription  gratuiteInscription  vacanciersRéinscription payanteRéinscrip-tion gratuiteimpr. NB A4impr. NB A3impr. Couleur A4impr. Couleur A3Montant dûMode de paiementEspècesChèqueCBGratuitQUI?
    1DRONET Stéphanie  1        20,00 €Chèque 20,00 €  Erwan
    1ROTTIER Nicolas   2       0,00 €Gratuit   0,00 €Erwan
    1DRONET Stéphanie       4 3 2,60 €Espèces2,60 €   Erwan
    1YENTUR Mesut   1       0,00 €Gratuit   0,00 €Erwan
    1LELIEVRE Adeline     1     20,00 €Espèces20,00 €   Erwan
    1SILVANO Eliane     1     20,00 €Espèces20,00 €   Erwan
    1PIAU Anne     1     20,00 €Chèque 20,00 €  Erwan

    ci dessous le début de macro:

    ---------------------

    Sub inserer_ligne_vb()
    '
    ' inserer_ligne_vb Macro
    ' insère une ou plusieurs lignes dans le tableau
    '

    '
    Dim s As String
    s = InputBox("Indiquez le nombre de lignes à insérer: de 1 à 3.", " Insertion")
    If s >= 3 Then
    MsgBox "Nombre de lignes trop important (3 max)!"
    Exit Sub
    End If
    Dim j As String
    j = InputBox("Indiquez le jour d'insertion.", " Jour d'insertion")

    Range("A14").Select
    Do While ActiveCell.Value > j
    ActiveCell.Offset(1, 0).Activate
    Loop

    End Sub

    ----------------------

    Je souhaite rajouter des lignes, sans insérer, car les 800 colonnes de traitement ne suivraient pas!

    donc, copier le tableau dans sa partie "public", le décaler d'une ou plusieurs lignes afin d'entrer de nouvelles saisies.

    Je ne sais pas si je suis bien clair!

  • bernard_daniel_1950's avatar
    bernard_daniel_1950
    Iron Contributor
    Oct 28, 2022
    Désolé, ce n'st qu'un extrait!
    Le tableau a 300 lignes... Actuellement, nous avons des entrées jusqu'au 21.
    Par exemple, pour le 21octobre, nous aurons un certain nombre d'entrées pour ce jour.
    Et donc, mon souci est d'intégrer une entrée tardive, par exemple au 15, pour respecter impérativement la chronologie.
  • bernard_daniel_1950's avatar
    bernard_daniel_1950
    Iron Contributor
    Oct 28, 2022
    Je m'en veux terriblement! surtout de vous avoir dérangé pour cette erreur grossière!

Share

Resources