Transfert de données en VBA

[Jacques]

Bonsoir à tous,

Je souhaiterai faire un tranfert de données d'une zone à une autre en VBA. Vous l'expliquer plus clairement c'est difficile, c'est pourquoi j'ai joint un exemple de fichier plus explicite.
Le nombre de colonne est variable et les nommer n'est pas possible. Je ne parles pas trop bien le VBA mais qu'en j'ai l'exemple je le décortique pour le comprendre et surtout pour apprendre.

Merci donc d'enrichir mes connaissances

Jacques

 

[Jacques]

Voila le fichier il y avait un accent [file name=Transfertdedonnees.zip size=8554]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Transfertdedonnees.zip[/file]

 

[myDearFriend!]

Bonsoir Jacques, le Forum.

Ci-joint ton exemple modifié avec une façon de faire utilisant cette procédure :

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

Cordialement,

 

[CBernardT]

Bonsoir Jacques et Didier,

Un essai qui j'espère répond à ta problématique ?

cordialement

Bernard

Message édité par: CBernardT, à: 31/08/2005 01:07 [file name=Transfert_20050831010902.zip size=11370]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Transfert_20050831010902.zip[/file]

Message édité par: CBernardT, à: 31/08/2005 01:09

 

[Jacques]

Bonjour à tous,

Merci à tout les 2 de votre aide, je regardes ça et je vous redis.

Jacques

 

[Jacques]

Bonsoir à tous,

Juste vous dire que c'est parfait, je vais pouvoir adapter ça à mon fichier.

Merci @ plus

Jacques