Problème de transfert de donnees
Résolu
atome59
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
atome59 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
atome59 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
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.
A voir également:
- Problème de transfert de donnees
- Fuite données maif - Guide
- Supprimer les données de navigation - Guide
- Transfert de mail - Guide
- Transfert de donnees entre 2 iphone - Guide
- Whatsapp transfert discussion - Accueil - WhatsApp
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
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