Une partie de colonne B le mettre en colonne C

[Sylvie64]

Bonjour,

J'aimerai mettre ce qui se trouve en rouge de la colonne B en colonne C sur la même ligne que la date qui se trouve en colonne A

Est ce possible ?

Merci pour votre aide

 

[job75]

Re : Une partie de colonne B le mettre en colonne C

Bonjour Sylvie64,

Voyez le fichier et cette macro :

Private Sub CommandButton1_Click()
Dim derlig As Long, i As Long, plage As Range
derlig = Range("B65536").End(xlUp).Row
Application.ScreenUpdating = False
'---Fusion des textes en colonne B---
For i = derlig To 2 Step -1
  If Cells(i, 1) = "" Then
    Cells(i - 1, 2) = Application.Trim(Cells(i - 1, 2) & " " & Cells(i, 2))
    Cells(i, 2) = ""
  End If
Next
'---suppression des lignes vides (facultatif)---
'Set plage = Range("A1:A" & derlig).SpecialCells(xlBlanks)
'If Not plage Is Nothing Then Intersect(plage.EntireRow, Range("A:B")).Delete xlUp
End Sub

J'ai préféré fusionner tous les textes en colonne B, mais à vous d'adapter si vous voulez autre chose.

J'ai mis en commentaires la suppression des lignes vides, au cas où ça vous intéresserait.

Pour la colonne B, l'option "Renvoyer à la ligne automatiquement" a été cochée.

A+

 

[Sylvie64]

Re : Une partie de colonne B le mettre en colonne C

Bonjour job75,

Excellent c'est vraiment se que je voulais mais vous pouvez m'expliquer la macro !
il n'y a pas longtemps que je pratique Excel et cela me passionne fortement par contre la macro je connais pas du tout.

Merci bien de votre aide

 

[job75]

Re : Une partie de colonne B le mettre en colonne C

Re,

Quelques commentaires supplémentaires :

Private Sub CommandButton1_Click()
Dim derlig As Long, i As Long, plage As Range 'déclaration des variables
derlig = Range("B65536").End(xlUp).Row 'n° de la dernière ligne remplie en colonne B
Application.ScreenUpdating = False 'fige l'écran
'---Fusion des textes en colonne B---
For i = derlig To 2 Step -1 'balayage de la colonne A en commençant par la dernière ligne et en remontant
  If Cells(i, 1) = "" Then 'si la cellule étudiée en colonne A est vide
    Cells(i - 1, 2) = Application.Trim(Cells(i - 1, 2) & " " & Cells(i, 2)) 'concatène les textes et renseigne la cellule précédente en colonne B
    Cells(i, 2) = "" 'efface la cellule en colonne B
  End If
Next
'---suppression des lignes vides (facultatif)---
'Set plage = Range("A1:A" & derlig).SpecialCells(xlBlanks) 'détermine les cellules vides en colonne A
'If Not plage Is Nothing Then Intersect(plage.EntireRow, Range("A:B")).Delete xlUp 'supprime les cellules vides en colonnes A et B
End Sub

Edit : Application.Trim c'est la même chose que la fonction SUPPRESPACE dans une feuille de calcul.

A+

 

[Sylvie64]

Re : Une partie de colonne B le mettre en colonne C

Merci job75, mais je ne sais pas utiliser la macro, comment tu intègres la touche 'fusionner" !! je ne vois comment mettre la formule!! je cherche depuis ce matin, mais là je n'y arrive pas.
Désolé j'ai cherché sur le net l'explication d'une macro mais je n'y suis pas arrivé.
Merci encore
Sylvie