Bloqué sur une macro

Bonjour,

lstrw récupère la dernière ligne utilisée dans la colonne A de la feuille Orientations.

ligne_coller est défini comme lstrw + 1 pour insérer les données sur la ligne suivante.

Les valeurs des cellules des colonnes spécifiques de Suivi DO sont copiées dans Orientations aux nouvelles positions.

Je vais m'intéresser d'un peu plus près à ce code et je reviens vers vous. 

Après je ne suis pas trop sure de pouvoir réussir. D'autre personne doivent être bien plus calé que moi ici. 

Alors voilà. 

Je m'y suis penché plus en détail. Chez moi cela fonctionne.

Pour la 1ère macro pour copier les données de "Suivi DO" vers "DS2024"

Sub Retenus()
    Dim lig As Long, i As Long
    i = ActiveCell.Row 'ligne de la cellule active
    ActiveCell.Interior.ColorIndex = 35 'interieur couleur verte
    
    'ligne destination (dernière ligne + 1)
    lig = Sheets("DS2024").Range("A" & Rows.Count).End(xlUp).Row + 1
    
    ' Copier les valeurs des cellules
    Sheets("DS2024").Range("A" & lig).Value = ActiveSheet.Range("A" & i).Value
    Sheets("DS2024").Range("B" & lig).Value = ActiveSheet.Range("B" & i).Value
    Sheets("DS2024").Range("C" & lig).Value = ActiveSheet.Range("J" & i).Value
    Sheets("DS2024").Range("D" & lig).Value = ActiveSheet.Range("Z" & i).Value
    Sheets("DS2024").Range("E" & lig).Value = ActiveSheet.Range("L" & i).Value
End Sub

Ensuite, la 2ème macro pour copier les données de "DS2024" vers l'autre classeur "Point candidature" dans la feuille "Orientations" :

Sub commission_test()
    Dim wk_fichier1 As Workbook
    Dim ws_fichier1feuil1 As Worksheet
    Dim wk_fichier2 As Workbook
    Dim ws_fichier2feuil1 As Worksheet
    Dim lstrw As Long
    Dim ligne_coller As Long
    Dim i As Long
    Dim filePath As String
    
    ' Définir les variables fichiers et onglets
    Set wk_fichier1 = ActiveWorkbook
    Set ws_fichier1feuil1 = wk_fichier1.Worksheets("DS2024")
    
    ' Définir le chemin du fichier
    filePath = "C:\Users\VotreNomUtilisateur\Desktop\Point candidature.xlsx"
    
    ' Ouvrir le fichier Point candidature.xlsx avec gestion des erreurs
    On Error GoTo ErrorHandler
    Set wk_fichier2 = Application.Workbooks.Open(filePath)
    On Error GoTo 0 ' Réinitialiser la gestion des erreurs
    
    Set ws_fichier2feuil1 = wk_fichier2.Worksheets("Orientations")
    
    ' Identifier la dernière ligne de la colonne A dans ws_fichier2feuil1
    lstrw = ws_fichier2feuil1.Cells(ws_fichier2feuil1.Rows.Count, 1).End(xlUp).Row
    ligne_coller = lstrw + 1
    
    ' Récupérer la ligne active dans DS2024
    i = ws_fichier1feuil1.Cells(ws_fichier1feuil1.Rows.Count, 1).End(xlUp).Row
    
    ' Copier-coller les cellules
    ws_fichier2feuil1.Cells(ligne_coller, 1).Value = ws_fichier1feuil1.Cells(i, 1).Value ' Colonne A
    ws_fichier2feuil1.Cells(ligne_coller, 2).Value = ws_fichier1feuil1.Cells(i, 2).Value ' Colonne B
    ws_fichier2feuil1.Cells(ligne_coller, 3).Value = ws_fichier1feuil1.Cells(i, 3).Value ' Colonne C
    ws_fichier2feuil1.Cells(ligne_coller, 4).Value = ws_fichier1feuil1.Cells(i, 4).Value ' Colonne D
    ws_fichier2feuil1.Cells(ligne_coller, 5).Value = ws_fichier1feuil1.Cells(i, 5).Value ' Colonne E
    
    ' Sauvegarder et fermer le fichier 2
    wk_fichier2.Close SaveChanges:=True
    
    MsgBox "Données copiées et fichier enregistré avec succès."
    
    Exit Sub
    
ErrorHandler:
    MsgBox "Erreur lors de l'ouverture du fichier : " & Err.Description
End Sub

Dans la 2ème macro, il faut définir le chemin d'accès du classeur "Point candidature"

J'ai pris comme exemple celui que j'ai créer sur mon bureau en .xlsx :

' Définir le chemin du fichier
    filePath = "C:\Users\VotreNomUtilisateur\Desktop\Point candidature.xlsx"

Tu dois modifier selon l'emplacement de ton fichier Excel "Point candidature" :)

J'ai ajouté les MsgBox. Tu peux les supprimer si tu veux. C'était pour moi tester.

Bonjour !

Merci beaucoup pour ta prise de tête pour mon petit casse tête ^^

J'ai tenté de mettre le code sur mon fichier en modifiant les noms d'onglet et le chemin.

ça donne :

Sub commission_test2()

Dim wk_fichier1 As Workbook
Dim ws_fichier1feuil1 As Worksheet
Dim wk_fichier2 As Workbook
Dim ws_fichier2feuil1 As Worksheet
Dim lstrw As Long
Dim ligne_coller As Long
Dim i As Long
Dim filePath As String
    
    ' Définir les variables fichiers et onglets
    Set wk_fichier1 = ActiveWorkbook
    Set ws_fichier1feuil1 = wk_fichier1.Worksheets("Suivi DO")
    
    ' Définir le chemin du fichier
    filePath = "C:\Users\XXX\Desktop\point candidature.xlsx"
    
    ' Ouvrir le fichier Point candidature.xlsx avec gestion des erreurs
    On Error GoTo ErrorHandler
    Set wk_fichier2 = Application.Workbooks.Open(filePath)
    On Error GoTo 0 ' Réinitialiser la gestion des erreurs
    
    Set ws_fichier2feuil1 = wk_fichier2.Worksheets("Orientations")
    
    ' Identifier la dernière ligne de la colonne A dans ws_fichier2feuil1
    lstrw = ws_fichier2feuil1.Cells(ws_fichier2feuil1.Rows.Count, 1).End(xlUp).Row
    ligne_coller = lstrw + 1
    
    ' Récupérer la ligne active dans Suivi DO
    i = ws_fichier1feuil1.Cells(ws_fichier1feuil1.Rows.Count, 1).End(xlUp).Row
    
    ' Copier-coller les cellules
    ws_fichier2feuil1.Cells(ligne_coller, 1).Value = ws_fichier1feuil1.Cells(i, 1).Value ' Colonne A
    ws_fichier2feuil1.Cells(ligne_coller, 2).Value = ws_fichier1feuil1.Cells(i, 2).Value ' Colonne B
    ws_fichier2feuil1.Cells(ligne_coller, 3).Value = ws_fichier1feuil1.Cells(i, 10).Value ' Colonne J
    ws_fichier2feuil1.Cells(ligne_coller, 4).Value = ws_fichier1feuil1.Cells(i, 26).Value ' Colonne Z
    ws_fichier2feuil1.Cells(ligne_coller, 5).Value = ws_fichier1feuil1.Cells(i, 12).Value ' Colonne L
    
    ' Sauvegarder et fermer le fichier 2
    wk_fichier2.Close SaveChanges:=True
    
    MsgBox "Données copiées et fichier enregistré avec succès."
    
    Exit Sub
    
ErrorHandler:
    MsgBox "Erreur lors de l'ouverture du fichier : " & Err.Description
End Sub

Cela copie bien les données dans l'autre tableau !

Mais, sinon c'est pas drôle, quand je sélectionne un nom dans une case (exemple A15) il ne me copie uniquement la dernière ligne de "Suivi DO"... et il va les mettre à partir de la 4e ligne de "Orientations"...

Je pense que l'erreur vient de :

 ' Récupérer la ligne active dans Suivi DO
    i = ws_fichier1feuil1.Cells(ws_fichier1feuil1.Rows.Count, 1).End(xlUp).Row

J'ai tenté de remplacer par :

i = ActiveCell.Row

Mais là ça va me copier maintenant les colonnes de la ligne 17 uniquement... et à partir de la 3e ligne.

J'ai supprimé la mise en forme automatique du tableau et fait un tableau classique.

Maintenant, il ne me copie uniquement les colonnes de la ligne 9...

Je ne comprends pas le problème... Peut-être que c'est mon tableau qui pose problème ? J'ai donc recréé deux tableaux en partant de zéro mais cela ne fonctionne pas non plus...

Je deviens fou...

Je comprend la situation. Il faudrait le fichier comme exemple :)

Dans ta première macro, tu as :

Range("A" & lig)

Dans la seconde, il doit falloir mettre :

Range("A" & ligne_coller)

J'avoue ne pas avoir cherché à comprendre plus avant le code.

Daniel

Exact ! en plus, j'avais deux "end sub" et ça n'a pas fait tilt ! Merci.

Daniel

Bonjour à tous,

En fait, le "With" sert à simplifier la syntaxe :

    With ws_fichier1feuil1
      i = ActiveCell.Row
      
      ' Copier-coller les cellules
      ws_fichier2feuil1.Cells(ligne_coller, 1).Value = .Cells(i, 1).Value ' Colonne A
      ws_fichier2feuil1.Cells(ligne_coller, 2).Value = .Cells(i, 2).Value ' Colonne B
      ws_fichier2feuil1.Cells(ligne_coller, 3).Value = .Cells(i, 10).Value ' Colonne J
      ws_fichier2feuil1.Cells(ligne_coller, 4).Value = .Cells(i, 26).Value ' Colonne Z
      ws_fichier2feuil1.Cells(ligne_coller, 5).Value = .Cells(i, 12).Value ' Colonne L
    End With

au lieu de :

    ws_fichier2feuil1.Cells(ligne_coller, 1).Value = ws_fichier1feuil1.Cells(i, 1).Value ' Colonne A
    ws_fichier2feuil1.Cells(ligne_coller, 2).Value = ws_fichier1feuil1.Cells(i, 2).Value ' Colonne B
    ws_fichier2feuil1.Cells(ligne_coller, 3).Value = ws_fichier1feuil1.Cells(i, 10).Value ' Colonne J
    ws_fichier2feuil1.Cells(ligne_coller, 4).Value = ws_fichier1feuil1.Cells(i, 26).Value ' Colonne Z
    ws_fichier2feuil1.Cells(ligne_coller, 5).Value = ws_fichier1feuil1.Cells(i, 12).Value ' Colonne L
    

Ce que j'ai surtout ajouté, c'est :

wk_fichier1.Activate

"Activecell" se réfère au classeur actif. Cette ligne permet d'afficher le premier classeur qui était passé en arrière-plan avec l'ouverture du second fichier.

Daniel