Aller d'un résultat à une cellule

oublier de dire que c en excel 2003

J'ai rien compris

Joint un fichier via [cjoint.com] stp

Bjr
- je suis désolé si je ne me suis pas bien expliqué, c la 1ère fois que je pose un problème dans le forum

-
je suis dans la feuil1

la cellule A1 que j'ai nommé "MAT" donne un résultat exemple "5"

mes infos sont écrites en cellules B1; C1; D1

je veux transférer mes infos dans la feuil2
à la colonne D
c à dire la colonne "D" et le résultat "MAT"=5
ce qui donne ("D"&""&MAT) = "D5" cellule
donc mes infos B1; C1; D1 (Feuil1) seront transférer
à la Feuil2 des cellules D5; E5; F5
je cherche si c possible de faire Une seule macro

merci

Bonjour
en D1 tu écris

=SI(LIGNE()=MAT;Feuil1!B$1;"")
à tirer vers le droite et vers le bas suivant la valeur maxi dans A1 nommée "MAT"

Si tu tiens absolument à une macro, tu fais signe
Michel

https://www.cjoint.com/?AIwsZvbZC8r

Bonsoir,

je ne sais pas si quelqu'un a télécharger mon fichier, en voici le lien:
https://www.cjoint.com/?AIwsZvbZC8r

mais si jamais c'est fait, tu auras un aperçu de ce que je veux faire.
Tu consulteras les macros que j'ai fait et tu comprendras tout.
C'est un peu classique mais ça marche
Le problème c'est que ça prend beaucoup de temps et d'espace, et je devrais faire 5 autres fichiers de la sorte

C'est pour cela que je veux faire une seule macro s'il y a possibilité.
Merci pour toute personne qui peut m'aider dans cette tache.

Bonjour

je ne sais pas si j'ai bien compris ta demande mais voici une proposition: les données du mois et du jour sélectionné sont copiés dans la feuille du mois à la ligne du jour

Option Explicit 

Sub reporter_donnees_jour() 
Dim M_mois As String, Jour As Byte, Donnee As Range 
Dim Lig As Byte, Mois As String * 2 

     'mémorisation des données de travail 
     With Sheets("SK_Fichier_SS") 
          M_mois = .Range("periode") 
          Jour = .Range("mat") 
          Set Donnee = .Range("C4:E4") 
     End With 
      
     ' conversion mois littéraire 
     With Sheets("feuil4") 
          Lig = .Columns(2).Find(M_mois, .Range("B65536")).Row 
          Mois = .Cells(Lig, 1) 
     End With 
      
     'report des données du jour du mois 
     With Sheets(Mois) 
          .Range(.Cells(Jour, 4), .Cells(Jour, 6)) = Donnee.Value 
          .Activate 
     End With 
      
End Sub

au besoin, je peux te renvoyer ton classeur avec la macro ci dessus

edit= rectifié étourderie dans le bloc report (point devant cells)
Michel

Bonjour michel_m
tu es exceptionnel, je ne sais comment te remercié, j'ai exécuter ta macro et elle est fantastique.
Mille fois merci je suis super content