Discussion :

[Imadlee]

ko

[mjpmjp]

bonjour,

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
 
Private Sub CommandButton1_Click()
    'DataColB
    'DataColC
    'DataColD
    With ActiveSheet
        'boucle sur ligne 1 à 10
        For n = 1 To 10
            If Not .Range("B" & n).Value = "" Then
                DataColB = .Range("B" & n).Value: .Range("B" & n).Value = ""
                DataColD = .Range("D" & n).Value: .Range("D" & n).Value = ""
            End If
            If Not .Range("C" & n).Value = "" Then
                DataColC = .Range("C" & n).Value: .Range("C" & n).Value = ""
                .Range("A" & n).Value = DataColB
                .Range("B" & n).Value = DataColC
                .Range("C" & n).Value = DataColD
            End If
        Next n
    End With
End Sub

@+JP