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 :

Boucle concaténer dans une colonne


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Novembre 2010
    Messages
    68
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2010
    Messages : 68
    Par défaut Boucle concaténer dans une colonne
    Bonjour,

    J'aurais besoin de faire une petite macro pour concaténer ma colonne F et R séparé par "-" dans la colonne S et ce en fonction de x lignes.
    Ma feuille se nomme "extrac plannif".
    Et une petite question : je voulais savoir comment nommer un tableau dans une formule de mise en forme conditionnelle? J'ai beau mettre @nom du tableau et ça m'affiche toujours A1:E9 par exemple.
    Avez vous une solution ?

    Merci d'avance

  2. #2
    Membre Expert
    Inscrit en
    Décembre 2002
    Messages
    993
    Détails du profil
    Informations forums :
    Inscription : Décembre 2002
    Messages : 993
    Par défaut
    Salut, voici pour ton problème de concaténation:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    Sub ConcatenerColonnes()
        Dim ws As Worksheet
        Dim lastRow As Long
        Dim i As Long
     
         Set ws = ThisWorkbook.Worksheets("extrac plannif")
     
        ' Trouver la dernière ligne utilisée dans la colonne F
        lastRow = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row
     
        ' Boucle pour concaténer les colonnes F et R dans la colonne S
        For i = 1 To lastRow
            If ws.Cells(i, "F").Value <> "" And ws.Cells(i, "R").Value <> "" Then
                ws.Cells(i, "S").Value = ws.Cells(i, "F").Value & " - " & ws.Cells(i, "R").Value
            Else
                ws.Cells(i, "S").Value = ""
            End If
        Next i
     
        MsgBox "Concaténation terminée dans la colonne S", vbInformation
    End Sub
    Pour ton problème de mfc, ce serait bien d'être un peu plus explicite sur ce que tu veux faire, ou fournir un petit fichier exemple.

Discussions similaires

  1. Réponses: 6
    Dernier message: 04/03/2020, 14h32
  2. [XL-2010] boucle sur OptionButton avec injection de valeurs dans une colonne
    Par florent77 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 21/09/2018, 12h22
  3. Boucle for pour chercher le maximum dans une colonne
    Par khaoulagammoudi dans le forum R
    Réponses: 1
    Dernier message: 05/04/2017, 18h03
  4. Réponses: 5
    Dernier message: 21/11/2016, 18h28
  5. Réponses: 3
    Dernier message: 09/04/2011, 05h28

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