Problème de transfert de donnees Résolu/Fermé

Question

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.

via55 · Answer

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

atome59 · Answer

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é.

Problème de transfert de donnees

2 réponses

Discussions similaires