Transfert de données en VBA

  • Initiateur de la discussion Jacques
  • Date de début
J

Jacques

Guest
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
 
J

Jacques

Guest
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]
 

Pièces jointes

  • Transfertdedonnees.zip
    8.4 KB · Affichages: 16

myDearFriend!

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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
 

Pièces jointes

  • Transfert_20050831010902.zip
    11.1 KB · Affichages: 33

Discussions similaires

Réponses
7
Affichages
462
Réponses
1
Affichages
358

Statistiques des forums

Discussions
312 920
Messages
2 093 640
Membres
105 770
dernier inscrit
fredericdupont03