Transfert de données selon plusieurs conditions à différentes feuilles

re,

oui c'est possible mais il faut plus de détail

nom des fichiers,

les fichiers sont il ouvert

nom des onglets de chacun des fichiers

si les fichiers ne sont pas ouvert, quel est leur emplacement (répertoire)

marquer le premier problème comme résolu

Super ça serait parfait ^^

ça marche j'ai mis résolu

Il y aurait deux fichiers donc, tous les deux dans un dossier qui est sur le bureau pour le moment.

Le dossier s'appelle " Dossier tableau projets "

Le classeur où il y a le bouton se nommerait " Formulaire tableau des projets "

et le classeur qui reçoit les données avec 3 feuilles se nommerait " Tableau des projets"

je mets en pièce jointe au cas où

merci

re,

les 2 fichiers seront déjà ouvert au moment du transfert ?

ah oui désolé j'ai oublié de le préciser

re,

à tester,

Sub Bouton4_Cliquer()
Dim F As Object
Dim P As Object
Dim sh As Object
Dim wk1 As Workbook, wk2 As Workbook

Set wk1 = Workbooks("Formulaire tableau des projets.xlsm")
Set wk2 = Workbooks("Tableau des projets.xlsx")

col = Array(1, 2, 3, 16, 17)

Set F = wk1.Sheets("RENTREE")

For i = 10 To F.Cells(Rows.Count, 1).End(xlUp).Row

        Set sh = wk2.Sheets(F.Cells(i, 6).Value)
        rw = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1

        For j = 1 To 5
          sh.Cells(rw, col(j - 1)) = F.Cells(i, j).Value
        Next j
Next i
End Sub

C'est parfait !

vraiment merci beaucoup ! c'est exactement ce à quoi ressemblait le fichier excel dans mes désirs :p !

Je vais étudier ce code maintenant pour essayer de comprendre car le VBA ça a l'air d'être vraiment génial pour la gestion.