Bonjour,
Je cherche à faire une "sauvegarde" de données d'une feuille à l'heure via une macro.
En gros j'ai des données dans les colonnes A, B et C sur une feuille et j'aimerais copier les valeurs uniquement dans les colonnes A,B,C de l'autre feuille et que si je sauvegarde de nouveau, la nouvelle "sauvegarde" se retrouve dans les colonnes D,E et F et ainsi de suite.
J'ai trouvé sur les forums la formule suivante:
Public Sub Save_Click2()
Dim dest As Range
Dim p As Range
Dim cel As Range
Dim x As Byte
Set p = Sheets("feuil3").Range("a14:a33,b14:b33,c14:c33,")
With Sheets("feuil4")
If .Range("B1").Value = "" Then
Set dest = .Range("B1")
Else 'sinon
Set dest = .Range("B65536").End(xlUp).Offset(1, 0)
End If
End With
For Each cel In p
cel.Copy dest.Offset(0, x)
x = x + 1
Next cel
End Sub
Seulement elle sauvegarde les données ligne par ligne, les unes après les autres ce qui n'est pas que je cherche et les modifications apportées (en changeant end(xlup) en end(xltoright) et l'offset) ne fonctionne pas correctement.
Toute aide est appréciée.
Merci
Je cherche à faire une "sauvegarde" de données d'une feuille à l'heure via une macro.
En gros j'ai des données dans les colonnes A, B et C sur une feuille et j'aimerais copier les valeurs uniquement dans les colonnes A,B,C de l'autre feuille et que si je sauvegarde de nouveau, la nouvelle "sauvegarde" se retrouve dans les colonnes D,E et F et ainsi de suite.
J'ai trouvé sur les forums la formule suivante:
Public Sub Save_Click2()
Dim dest As Range
Dim p As Range
Dim cel As Range
Dim x As Byte
Set p = Sheets("feuil3").Range("a14:a33,b14:b33,c14:c33,")
With Sheets("feuil4")
If .Range("B1").Value = "" Then
Set dest = .Range("B1")
Else 'sinon
Set dest = .Range("B65536").End(xlUp).Offset(1, 0)
End If
End With
For Each cel In p
cel.Copy dest.Offset(0, x)
x = x + 1
Next cel
End Sub
Seulement elle sauvegarde les données ligne par ligne, les unes après les autres ce qui n'est pas que je cherche et les modifications apportées (en changeant end(xlup) en end(xltoright) et l'offset) ne fonctionne pas correctement.
Toute aide est appréciée.
Merci