Aller d'un résultat à une cellule Résolu

Question

Bonjour, 
je cherche comment à partir d'un résultat d'une cellule d'une feuille, aller à la colonne et ligne correspondante d'une autre feuille

exemple

je suis dans la feuil1
cellule A1 que j'ai nommé MAT = 5
mes infos en cellules B1; C1; D1

dans la feuil2
je veux transférer mes infos à la colonne D et ça devrait être "D5"


Configuration: Windows XP / Firefox 6.0.2

shinai.west · Answer

oublier de dire que c en excel 2003

Lentz · Answer

J'ai rien compris

Joint un fichier via [cjoint.com] stp

shinai.west · Answer

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

michel_m · Answer

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

shinai.west · Answer

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

shinai.west · Answer

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.

michel_m · Answer

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

shinai.west · Answer

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

Aller d'un résultat à une cellule

8 réponses

Votre réponse

Discussions similaires

Newsletters