Discussion :

[serna]

Bonjour,

est ce qu'il existe une macro pour faire la chose suivante sur excel ,
j'ai deux colonnes ( entre autres ) ,a et b
je voudrais déplacer dans la colonne b quant dans la colonne a il y'a une valeur sur la même ligne et que la cellule dans b est vide.

exemple j'ai ceci



j'aimerais que tutu et tita de la colonne A passe dans la colonne B, et que pour les autres lignes ça ne change pas

ce qui donnerais ça



merci pour vos pistes et réponses

[OBO29]

Bonjour,

Voici un exemple de code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub CommandButton2_Click()
    Dim DerLig As Double, Count As Double
    DerLig = Worksheets("Feuil1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
    For Count = 1 To DerLig
        If (Worksheets("Feuil1").Range("A" & Count) <> "") And (Worksheets("Feuil1").Range("B" & Count) = "") Then
            Worksheets("Feuil1").Range("B" & Count) = Worksheets("Feuil1").Range("A" & Count)
            Worksheets("Feuil1").Range("A" & Count) = ""
        End If
    Next Count
End Sub

[serna]

Merci ça fonctionne parfaitement !