Discussion :

[vgrenet]

Bonjour à tous,

pour ma macro (débutant) je bute sur 2 ou 3 choses.

Premièrement :
Je souhaiterais par le résultat d'une liste déroulante en F2, ouvrir le fichier.xlsx correpondant.

Voici un morceau de mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

Workbooks.Open ("\\...\Pilote CSV XLS\" & Range ("F2") & ".xlsx") 'ouverture du fichier
Sheets(1).Select
ActiveSheet.UsedRange.Rows("9:12").Select
Selection.Copy

Windows("Cal_Ligne.xlsm").Activate

Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets(1).Range("F2").Value
Range("B1").Select
ActiveSheet.Paste

Windows("& Range ("F2") &.xlsx").Activate
ActiveWindow.Close
Windows("Cal_Ligne.xlsm").Activate

Deuxièmement :
J'ai une formule en B5 et j'aimerais l'étirer sur toutes les lignes et les colonnes de mon tableau à partir de B5.
Voici le code formule compris dans ma macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Range("B5").Select 
ActiveCell.FormulaR1C1 = "=SUMPRODUCT((Feuil1!R1C1:R2499C1=RC1)*(Feuil1!R1C 3:R2499C3=R1C)*(NOT(ISERROR(FIND(Feuil1!R1C4:R2499 C4,R4C)))))"

C'est une macro qui créera un nouveau tableau sur une nouvelle feuille. Le nombre de ligne et de colonne seront changeant mais la formule se situera toujours en B5.

Quelqu'un a une idée ?

Merci

[vgrenet]

C'est bon pour la première question, j'ai déclaré une variable et cela fonctionne, mais je bloque toujours sur la deuxième question...

Comment étirer une formule sur l'ensemble du tableau, sachant que le nombre de colonne et de ligne est aléatoire (car le tableau change)..

Cdt

[Theze]

Bonsoir,

Avec avec la méthode "AutoFill", exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
[B5].FormulaR1C1 = "=SUMPRODUCT((Feuil1!R1C1:R2499C1=RC1)*(Feuil1!R1C3:R2499C3=R1C)*(NOT(ISERROR(FIND(Feuil1!R1C4:R2499C4,R4C)))))"
'de B5 à B15
[B5].AutoFill [B5:B15]
'puis de B5 à G15
[B5:B15].AutoFill [B5:G15]

Hervé.