Copie de cellule d'une feuille vers une autre

bonjour,

je viens de me lancer dans le VBA et j'ai besoin de votre aide :

j'ai un classeur avec les colonnes suivante :

NomPrenom - Entité - CodeProjet - Prime1 - Prime2

et dans un autre fichier qui a le nom du code projet que je dois ouvrir et mettre

NomPrenom - Entité - Prime1 - Prime 2

mon problème et je n'arrive pas à copier les céllules non vide dans le 2ème fichiers.

merci d'avance pour votre aide

Bonjour,

manuellement ou par code, l'idéal dans ce cas est un filtre avancé, en consultant l'aide d'Excel …

par code

voila ce que je fait

Sub Macro_TJM_CJM()
'
'Execution de la Macro TJM-CJM

'Désactivation de la mise à jour écran
Application.ScreenUpdating = False

'Déclaration des variables
Dim Cellule_NomPrenom
Dim Cellule_Entiter
Dim Cellule_CodeProjet
Dim Cellule_TJM
Dim Cellule_CJM
Dim CheminDossierCodeProjet
Dim Fichier_CodeProjet As String
Dim CodeProjet
Dim fichier_a_completer As Workbook
Dim chemincomplet
Dim wb1
Dim wb2

Worksheets("Tab_TJM-CJM").Activate

'répertoire de travail + sélection de la cellule
CheminDossierCodeProjet = Sheets("Code").Range("A1").Value
'MsgBox CheminDossierCodeProjet

'Nom du fichier CodeProjet
CodeProjet = Sheets("Tab_TJM-CJM").Range("C2").Value
Fichier_CodeProjet = CodeProjet + ".xlsx"

'MsgBox (DossierCodeProjet + Fichier_CodeProjet)
chemincomplet = CheminDossierCodeProjet + Fichier_CodeProjet

'Vérification du Fichier_CodeProjet
If Dir(CheminDossierCodeProjet + Fichier_CodeProjet) <> "" Then

'Copier le nom et le prénom dans la feuille codeprojet
 MaselectionA = Range("A2:A" & [A65536].End(xlUp).Row).Copy

End If

'Ouvrir le fichier CodeProjet
 Set wb2 = Application.Workbooks.Open((chemincomplet), True)
 Worksheets("run").Activate
  Range("A2").Select
 ActiveSheet.Paste

'Rétablir la mise à jour de l'affichage
Application.ScreenUpdating = True
wb2.Close
'wb2.Quit

Worksheets("Tab_TJM-CJM").Activate
'Copier le nom et le prénom dans la feuille codeprojet
 MaselectionA = Range("B2:B" & [A65536].End(xlUp).Row).Copy

 'Ouvrir le fichier CodeProjet
 Set wb2 = Application.Workbooks.Open((chemincomplet), True)
 Worksheets("run").Activate
  Range("B2").Select
 ActiveSheet.Paste

Set xlSheet = Nothing
Set wb2 = Nothing
Set xlApp = Nothing
End Sub

Peu de lignes de code avec un filtre avancé comme dans ce sujet par exemple …

Sinon consulter l'aide de la méthode Range.Copy pour effectuer une copie directe en indiquant sa destination …

Merci pour tes réponses, je vais tester

merci pour ton aide, j'ai réussi grâce à tes réponses