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 :

Besoin d'aide sur une boucle VBA


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre actif
    Homme Profil pro
    Technicien
    Inscrit en
    Mars 2018
    Messages
    20
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Technicien
    Secteur : Bâtiment

    Informations forums :
    Inscription : Mars 2018
    Messages : 20
    Par défaut Besoin d'aide sur une boucle VBA
    Bonjour,

    Je souhaiterais avoir de l'aide concernant une boucle que je souhaite effectuer (je met en pièce jointe un .xlsm pour avoir une idée de ce que je veux faire)

    J'ai dans une feuille "Convocation":
    La colonne A avec une liste déroulante (5 choix : ###, P, R, PC, RC)
    La colonne C, pour double cliquer et donc ouvrir une nouvelle feuille intitulé "Fiche de Suivi"

    La fiche de suivi se génère bien avec un bandeau et ce que j'ai mis dedans.

    Du coup c'est la que je suis bloqué, je m'explique :

    Dès que dans ma feuille "Convocation" il y a par exemple : en A2 = "P", A3 = "R", A4 = "PC" et A5 = "RC" et le reste avec "###"
    Je veux qu'il y est une boucle de n :
    n étant le nombre de cellule différente de ###

    La boucle servira a fusionner ("A7:A12") soit 5 cellules dans ma feuille "Fiche de Suivi", autant de fois n.

    A7 étant le début de la boucle. (en dessous de mon bandeau)

    J'espère que j'ai été assez clair.

    Je reste à votre disposition pour toutes informations complémentaires.

    Merci d'avance.
    Fichiers attachés Fichiers attachés

  2. #2
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Dim n As Long, St As String
    St = ""
    For n = 6 To Range("A" & Columns.Count).End(xlToLeft).Column
        St = St & Cells(n, 1).Text
    Next n
    Il ne te reste plus qu'à placer le résultat (la variable St) où tu le souhaites.

  3. #3
    Membre actif
    Homme Profil pro
    Technicien
    Inscrit en
    Mars 2018
    Messages
    20
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Technicien
    Secteur : Bâtiment

    Informations forums :
    Inscription : Mars 2018
    Messages : 20
    Par défaut
    Super, je commence à avoir des idées sur la suite.
    Néanmoins, le but n'est pas d'appliquer bêtement ce que tu m'as concocté, mais aussi de comprendre.
    Or je ne comprend la variable St ?

  4. #4
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Citation Envoyé par Swam.logx3 Voir le message
    Or je ne comprend la variable St ?
    Bin... c'est une variable... de type chaine de caractère.
    Je ne vois pas trop ce qu'on pourrait en dire de plus.

  5. #5
    Membre actif
    Homme Profil pro
    Technicien
    Inscrit en
    Mars 2018
    Messages
    20
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Technicien
    Secteur : Bâtiment

    Informations forums :
    Inscription : Mars 2018
    Messages : 20
    Par défaut
    J'ai bien compris que c'était une variable mais j'ai mal formulé ma question, à quoi sert-elle ?
    De plus, je ne vois pas le worksheet "Convocation" pour la colonne A, ce n'est pas nécessaire ?

    Peut tu remplir St =
    Pour que je vois à quoi ça ressemble en exécution ?

  6. #6
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Je t'ai donné le principe, il faut que tu comprennes ce code (3 lignes, c'est quand même pas un effort surhumain) et que tu l'adaptes à ton cas.

Discussions similaires

  1. Besoin d'aide sur une boucle "do..while"
    Par Mattness69 dans le forum Langage
    Réponses: 3
    Dernier message: 25/06/2016, 17h57
  2. [XL-2013] VBA function.Vlookup debogage et aide sur une boucle
    Par Jeremy.ch dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 20/08/2014, 10h32
  3. [XL-2013] Besoin d'aide sur une boucle en vba dans excel
    Par ppfun dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 22/04/2014, 21h25
  4. Réponses: 1
    Dernier message: 03/08/2005, 12h41
  5. Besoin d'aide sur une requête (JOIN + COUNT ?)
    Par PanzerKunst dans le forum Langage SQL
    Réponses: 2
    Dernier message: 01/06/2005, 11h29

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