IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Bouton ajouter et supprimer


Sujet :

Macros et VBA Excel

  1. #21
    Futur Membre du Club
    Profil pro
    Inscrit en
    Janvier 2008
    Messages
    20
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2008
    Messages : 20
    Points : 9
    Points
    9
    Par défaut
    Je comprend pas bien le code,
    La procedure Boucle permet de mettre en memoire la ligne du dernier enregistrement dans le panier, c'est ça ?
    Il faut la lancer après chaque execution de ma procedure Ajout ?

  2. #22
    Membre confirmé
    Avatar de Bigalo
    Profil pro
    Inscrit en
    Décembre 2007
    Messages
    445
    Détails du profil
    Informations personnelles :
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Décembre 2007
    Messages : 445
    Points : 563
    Points
    563
    Par défaut
    Re

    Pas du tout, c’était juste le principe à mettre en œuvre. Je t’ai dit que je n’avais pas regardé les messages précédents. L’adaptation semble pourtant simple :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub Ajout(Ref As Range, RefCol as String)
    Dim i As Long, RefDeb As Range
        ' Recherche la prochaine ligne disponible pour insertion
        i = 69
            Do While Range(RefCol & i).Value <> ""
                i = i + 1
            Loop
        ' Suite et fin
     End Sub

  3. #23
    Futur Membre du Club
    Profil pro
    Inscrit en
    Janvier 2008
    Messages
    20
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2008
    Messages : 20
    Points : 9
    Points
    9
    Par défaut
    Au final ça me donne :

    Pour l'appel du bouton :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub CommandButton1_Click()
    Call Ajout(Range("G14"), 3)
    End Sub

    et la procedure :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Sub Ajout(Ref As Range, RefCol As String)
    Dim i As Long, RefDeb As Range
        ' Recherche la prochaine ligne disponible pour insertion
        i = 69
            Do While Range(RefCol & i).Value <> ""
                i = i + 1
            Loop
        ' Suite et fin
        Set RefDeb = Cells(Ref.Row, Ref.Column - 3)
    Range(RefDeb.Address & ":" & Ref.Address).Copy
     
    Cells(i, 4).PasteSpecial (xlPasteValues)
     
     End Sub
    ok?

    Avec un autre raisonnement, je ne peu pas récupérer la variable i d'une fonction à l'autre ? De cette manière mon compteur ne pose plus de prob

  4. #24
    Membre confirmé
    Avatar de Bigalo
    Profil pro
    Inscrit en
    Décembre 2007
    Messages
    445
    Détails du profil
    Informations personnelles :
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Décembre 2007
    Messages : 445
    Points : 563
    Points
    563
    Par défaut
    Re,

    Dans

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
        Call Ajout(Range("G14"), 3)
    Call est superflu, c’est un résidu des Basic moyenageux

    suffit, mais surtout, le second argument ne doit pas être 3, mais une lettre, puisqu’il s’agit selon le cas de remplacer "D" ou "K" ! :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
       Ajout(Range("G14"), "D")
    Ce n’est pas par hasard que dans

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sub Ajout(Ref As Range, RefCol As String)
    RefCol est défini comme String, c ’est-à-dire comme une chaîne de caractères, en gros du texte !

    Quand à la variable i, on peut également la passer comme argument, pourquoi pas. Simplement j’ai une idée très vague ce qu’est censé faire ton programme. Je suis juste intervenu sur un point qui me semblait trivial.

  5. #25
    Futur Membre du Club
    Profil pro
    Inscrit en
    Janvier 2008
    Messages
    20
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2008
    Messages : 20
    Points : 9
    Points
    9
    Par défaut
    C'est bon, 00h21, je viens de terminé le tout ouff... Je vais pouvoir allez me couché, merci a tous pour votre aide précieuse.
    @+

+ Répondre à la discussion
Cette discussion est résolue.
Page 2 sur 2 PremièrePremière 12

Discussions similaires

  1. boutons mobiles pour ajouter ou supprimer des colonnes
    Par jnowe dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 27/06/2010, 16h03
  2. [WD-2007] Case bouton qui ajoute ou supprime un champ
    Par Pepitos dans le forum Word
    Réponses: 14
    Dernier message: 13/06/2010, 03h11
  3. PHP_EOL à coté des boutons "ajouter" et "supprimer"
    Par Flipmode dans le forum Langage
    Réponses: 1
    Dernier message: 17/11/2008, 17h51
  4. [DisplayTag] bouton ajouter et supprimer
    Par newmar dans le forum Struts 1
    Réponses: 7
    Dernier message: 02/05/2008, 15h43

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo