Problème de transfert de donnees
Résolu
atome59
Messages postés
7
Statut
Membre
-
atome59 Messages postés 7 Statut Membre -
atome59 Messages postés 7 Statut Membre -
N'étant pas expert en VBA je patauge lamentablement depuis une éternité .
Voici mon problème: A partir d'une "FEUILLE1" avec une Macro je voudrais couper coller le contenu de toutes les cellules A-B-C-D de chaque ligne, lorsque la cellule F est "NonVide" (documentée) dans une Feuille "VIDAGE" colonne A-B-C-D à la suite des données de cette Feuille sans écraser les précédentes. D'avance je vous remercie de vos efforts.
Voici mon problème: A partir d'une "FEUILLE1" avec une Macro je voudrais couper coller le contenu de toutes les cellules A-B-C-D de chaque ligne, lorsque la cellule F est "NonVide" (documentée) dans une Feuille "VIDAGE" colonne A-B-C-D à la suite des données de cette Feuille sans écraser les précédentes. D'avance je vous remercie de vos efforts.
2 réponses
-
Bonsoir
Si j'ai bien compris ta problématique, exemple de macro, à adapter à tes besoins :
Sub transfert()
Dim DernLigne1 As Long
DernLigne1 = Sheets("FEUILLE1").Range("A" & Rows.Count).End(xlUp).Row
Dim DernLigne2 As Long
DernLigne2 = Sheets("VIDAGE").Range("A" & Rows.Count).End(xlUp).Row
nl = DernLigne2 + 1
Application.ScreenUpdating = False
For n = 2 To DernLigne1
If Sheets("FEUILLE1").Range("F" & n) <> "" And Sheets("FEUILLE1").Range("E" & n) <> "" Then
Sheets("FEUILLE1").Select
Range("A" & n & ":E" & n).Select
Selection.Cut
Sheets("VIDAGE").Select
Range("A" & nl).Select
ActiveSheet.Paste
nl = nl + 1
End If
Next n
Application.ScreenUpdating = True
End Sub
Cdlmnt -
Bonjour,
Un grand merci a Via55 pour: ton aide, la maîtrise de la solution, et surtout la rapidité de résolution.
Mon problème est enfin réglé.
