Concaténer des colonnes et supprimer la colonne d'origine [Résolu]

[fherolvera]

Bonjour a toutes et tous
Je suis un novice en VBA et j'ai une demande qui pourrait etre simple a solutionner par un ''pro''.. Merci d'avance pour vos réponses.

Je dispose de 3 colonnes C1 C2 et C3. la macro ci-dessous a pour fonction de concatener les colonnes C1 et C2 en C3 par la selection d'une plage de cellules sur colonne 2.
Cette macro fonctionne très bien mais je souhaiterai la completer afin de supprimer automatique C1 et C2 après concatenation (obtention de C3)..

Ma macro (obtenu sur un forum) :

Code :

1
2
3
4
5
6
7
8
9
10
Sub ConcatColumns()
      Do While ActiveCell <> ""  'Loops until the active cell is blank.
         'The "&" must have a space on both sides or it will be
         'treated as a variable type of long integer.
         ActiveCell.Offset(0, 1).FormulaR1C1 = _
         ActiveCell.Offset(0, -1) & "/" & ActiveCell.Offset(0, 0)
         ActiveCell.Offset(1, 0).Select
      Loop
 
   End Sub

Merci beaucoup pour vos réponses!!

Fher

[patricktoulon]

bonjour
tu avais presque trouvé tout seul!!

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub ConcatColumns()
      Do While ActiveCell <> ""  'Loops until the active cell is blank.
         'The "&" must have a space on both sides or it will be
         'treated as a variable type of long integer.
         ActiveCell.Offset(0, 1).FormulaR1C1 = _
         ActiveCell.Offset(0, -1) & "/" & ActiveCell.Offset(0, 0)
         ActiveCell.Offset(0, -1) =""
           ActiveCell.Offset(0, 0)=""
 
 
 
ActiveCell.Offset(1, 0).Select
      Loop
 
   End Sub

maintenant si c'est la colonne entière que tu voulais supprimer il va te falloir attendre d'avoir fini la boucle pour supprimer la colonne
au plaisir

[mercatog]

Bonsoir
Exemple à adapter sans boucle qui permet de concaténer en colonne C les valeurs respectives des colonnes A et B et de supprimer les colonnes A et B initiales:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ConcatColumns()
Dim LastLig As Long
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")                                  'a adapter
    'Ligne de la dernière cellule remplie de colonne A
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    'On écrit la formule dans A2&"/"&B2 dans C2:Cxx puis on fige les valeurs
    With .Range("C2:C" & LastLig)
        .Formula = "=A2&""/""&B2"
        .Value = .Value
    End With
    'On supprime les colonnes A et B
    .Range("A:B").Delete
End With
End Sub

[fherolvera]

C'est exactement ce que je voulais faire!!
PARFAIT!! merci les amis, vous êtes TOP!!


Patrick? tu es de Toulon?? .. Je suis de Marseille... Bonne soirée

[patricktoulon]

bonsoir
un petit coucou a la cité phocéenne a plus
n'oublie pas de cliquer résolu si tu a vraiment trouver ce que tu cherchais


au plaisir