Transfert de données en VBA

Private Sub CommandButton1_Click()
Dim C As Byte, RC As Byte
      On Error Resume Next
      ' Pour chaque colonne du tableau
      For C = 1 To UsedRange.Columns.Count
            With Range(Cells(5, C), Cells(11, C))
                  'Si moins de 7 cellules vides
                  If .SpecialCells(xlCellTypeBlanks).Count < 7 Then
                        'on recopie les données en lignes 21 à 27
                        RC = RC + 1
                        Range(Cells(21, RC), Cells(27, RC)).Value = .Value
                  End If
            End With
      Next C
End Sub

Cliquez pour agrandir...