Les Trucs & Astuces Informatiques de Michel

http://michel.vergriete.perso.sfr.fr/accueil.htm
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  

Partagez | 
 

 boucler une formule dans une tableau

Aller en bas 
AuteurMessage
sarlak



Nombre de messages : 13
Date d'inscription : 03/05/2007

MessageSujet: boucler une formule dans une tableau   Jeu 24 Mai - 22:29

bonjour

je suis a la recherche d'une maccro qui boucle une formule dans un tableau.

tableau qui evolue constamment et dans lequel j'aimerais ne pas avoir a copier la formule a chaque fois j'aimerais que ca se mette a jour selon le nombre de ligne.

merci d'avance de votre reponse
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
sarlak



Nombre de messages : 13
Date d'inscription : 03/05/2007

MessageSujet: Re: boucler une formule dans une tableau   Mar 29 Mai - 10:29

personne na d'idée pour mon post de base ???
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
sarlak



Nombre de messages : 13
Date d'inscription : 03/05/2007

MessageSujet: Re: boucler une formule dans une tableau   Ven 1 Juin - 2:36

vla un début que j'ai réussi a peu prêt a trouver cependant ca marche pas No

HELLLPPPP

Code:
 Sub nbr_ligne()

 'Recherche du nombre de lignes du tableau fichier 1
    Windows("fichier1.xls").Activate
    Range("A5").Select
    Columns("a:a").Select
    Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
      SendKeys "{down}"
    nbreligne = ActiveCell.Row


 'Recherche du nombre de lignes du tableau fichier 2
    Windows("fichier2.xls").Activate
    Range("A5").Select
    Columns("a:a").Select
    Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
      SendKeys "{down}"
    nbrelignex = ActiveCell.Row


  'Recherche des infos
    Windows("fichier1.xls").Activate
    Range("I6").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-4],[fichier2.xls]fichier1!R6C8:R" & nbreligne - 1 & " C13,5,FALSE)"
    Range("I6").Select
    Selection.AutoFill Destination:=Range("I6:I" & nbrelignex - 1), Type:=xlFillDefault
    Range("I6:O" & nbrelignex - 1).Select
        With Selection
        .HorizontalAlignment = xlCenter
        End With

 End Sub
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Liza60



Nombre de messages : 17
Date d'inscription : 29/03/2007

MessageSujet: Bonjour,   Lun 4 Juin - 4:32

Je crois qu'il y a une petit mélange dans vos noms de fichiers et de variables qui fait que ça ne tourne pas.

Essayez ça, où fichier1 est le classeur qui reçoit la formule et fichier2 celui qui contient les données à récupérer.

Sub nbr_ligne()

'Recherche du nombre de lignes du tableau fichier 1
Windows("fichier1.xls").Activate
Sheets("fichier1").Select
Range("A5").Select
Selection.CurrentRegion.Select
nbreligne = Selection.Rows.Count

'Recherche du nombre de lignes du tableau fichier 2
Windows("fichier2.xls").Activate
Sheets("fichier2").Select
Range("A5").Select
Selection.CurrentRegion.Select
nbrelignex = Selection.Rows.Count

'Recherche des infos
Windows("fichier1.xls").Activate
Range("I6").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-4],[fichier2.xls]fichier2!R6C8:R" & nbrelignex & "C13,5,FALSE)"
Selection.Copy
Range("I7:I" & nbreligne – 1).select
ActiveSheet.Paste

End Sub

N'hésitez pas à me laisser un message si ça ne marche pas (si ça marche aussi d'ailleurs)
Bon courage
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
sarlak



Nombre de messages : 13
Date d'inscription : 03/05/2007

MessageSujet: Re: boucler une formule dans une tableau   Lun 4 Juin - 23:48

je test ca et vous tiens au courant si ca a fonctionnner ou pas .
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: boucler une formule dans une tableau   

Revenir en haut Aller en bas
 
boucler une formule dans une tableau
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Texte catégorie dans un tableau
» Séparer en deux une cellule dans un tableau
» Fond coloré dans un tableau
» Problème de décalage de ligne dans un tableau en présentation du forum
» Problème image dans un tableau

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Les Trucs & Astuces Informatiques de Michel :: Bureautique-
Sauter vers: