Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Transformation d'une formule matricielle en VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion hypo78
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

hypo78

XLDnaute Impliqué
Bonjour à tous,
Grâce à l'aide du forum il y a quelques années, j'avais mis en place au niveau de mon boulot un fichier comportant une formule matricielle.
Depuis, avec le succès ce fichier s'est répandu sur différents sites mais je suis obligé d'en assurer l'évolution d'une année sur l'autre ce qui devient très contraignant.

L'idée est donc de passer par du VBA.

Sur la feuille nommée "Piquets" on trouve des liens vers d'autres classeurs que je vais tenter de transformer en VBA pour alléger mon fichier.

La formule matricielle que l'on trouve sur la feuille "aide rotation" fait référence aux données de la feuille "Piquets".
Code: 
=SI(MAX(SI((Piquets!$B$1:$AL$1=B$1)*(Piquets!$B$2:$AL$29=$A2);Piquets!$A$2:$A$29))=0;"";MAX(SI((Piquets!$B$1:$AL$1=B$1)*(Piquets!$B$2:$AL$29=$A2);Piquets!$A$2:$A$29)))

Mon problème, si j'ajoute des lignes (par exemple 150) à la suite des lignes remplies sur la feuille "Piquets" et que je supprime les 150 premières, la formule matricielle réduit la zone de 150 lignes..... (pour l'exemple je n'ai laissé que 29 lignes)

Dans l'idéal, il faudrait travailler sur 6 mois de données, que mon code que je vais tenter de réaliser, crée une nouvelle ligne, supprime la plus ancienne et que la formule matricielle ne change pas.

Je joins un bout du fichier pour l'exemple.

Merci d'avance
 

Pièces jointes

Trier par date Trier par votes
Re : Transformation d'une formule matricielle en VBA

J'ai réussi par ce petit code à mettre les dates comme je veux en colonne 1

Code: 
 Sub MAJdate()

Sheets("feuil1").Activate

For i = 2 To 150
Cells(i, 1) = Date - (140 - i)
Next i

Call MAJpiquets

End Sub

Je souhaiterais maintenant copier les données provenant d'un autre classeur en fonction de ces dates en colonne 1

J'ai commencé à écrire ce code mais mon classeur n'est pas reconnu, pourquoi??

Code: 
Sub MAJpiquets()

Dim rotation As Workbook
Dim GardeDuJour As Workbook
Dim garde As Sheets

jourgarde = Cells(2, 1)
jourgarde = Format((jourgarde), "dd/mm/yyyy")

GardeDuJour = ThisWorkbook.Path & "\" & Format(jourgarde, "yyyy") & "\" & Format(jourgarde, "mmmmyyyy") & "\" & Format(jourgarde, "ddmmmmyyyy") & ".xls"
MsgBox GardeDuJour

End Sub

L'arborescence dans mon exemple est la suivante :
2013\septembre2013\09septembre2013.xls

Merci d'avance
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Transformation d'une formule matricielle en VBA

Bonjour à tous

Peux-tu tester ceci?
Code: 
MsgBox ThisWorkbook.Path
Qu'affiche alors le MsgBox ?

PS: Personnellement j'écrirai simplement
jourgarde = Format(Cells(2,1), "dd/mm/yyyy")
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Transformation d'une formule matricielle en VBA

Re


Et les sous-répertoires 2013 et septembre sont déjà existants?
Le résultat de ton MsgBox indiquerait que le classeur contenant le code VBA est enregistré dans
[noparse]C:\Documents and Settings\nom\Bureau\rotation[/noparse]
C'est bien cela?

Sinon voir aussi dans l'aide VBA (touche F1), du côté de ChDir et MkDir
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Transformation d'une formule matricielle en VBA

ce code
Code: 
 Sub MAJpiquets()


Dim rotation As Workbook
Dim garde As Sheets

jourgarde = Cells(2, 1)
jourgarde = Format(jourgarde, "dd/mm/yyyy")

GardeDuJour = Racine & Format(jourgarde, "yyyy") & "\" & Format(jourgarde, "mmmmyyyy") & "\" & Format(jourgarde, "ddmmmmyyyy"".xls")

MsgBox GardeDuJour

End Sub


me renvoit

Code: 
 2013\septembre2013\09septembre2013

il me manque juste le dossier....
 
Vote positif 0 Vote négatif
Re : Transformation d'une formule matricielle en VBA

Code: 
 Sub MAJpiquets()


Dim rotation As Workbook
Dim garde As Sheets



jourgarde = Cells(2, 1)
jourgarde = Format(jourgarde, "dd/mm/yyyy")

GardeDuJour = ThisWorkbook.Path & Format(jourgarde, "yyyy") & "\" & Format(jourgarde, "mmmmyyyy") & "\" & Format(jourgarde, "ddmmmmyyyy"".xls")

MsgBox GardeDuJour

End Sub
c est ok avec çà.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
XL 2021 SOMME INDIRECT AVEC PLUSIEUR CONDITIONS
Réponses
4
Affichages
347
Jimmy_fidu
J
X
  • Question Question
XL 2019 Matricielle NBVAL SI
Réponses
3
Affichages
319
sylvanu
F
  • Question Question
XL 2021 problème pour calculer ecart actuel et ecart max
Réponses
3
Affichages
111
fab5152
F
T
  • Question Question
XL pour MAC Formule matricielle
Réponses
10
Affichages
597
crocrocro
C
A
  • Question Question
XL 2019 Mise en forme
Réponses
4
Affichages
132
TooFatBoy
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
243
xavieralvaro
X
M
  • Résolu(e)
XL 2010 Ressortir uniquement les nombres de la musique d'une course hippique
Réponses
5
Affichages
202
mamarus1
M
N
  • Question Question
Microsoft 365 appliquer la formule en changeant de ligne et de colonne
Réponses
2
Affichages
73
ndranghettino
N
S
  • Résolu(e)
Microsoft 365 Formule qui me permet de regrouper les résultats de plusieurs lignes en fonction d'une recherche par nom
Réponses
9
Affichages
238
Sylvia57
S
D
  • Résolu(e)
XL 2019 Formule qui suit le total général d'un TCD ( galère ! )
Réponses
4
Affichages
138
AtTheOne
P
  • Résolu(e)
Microsoft 365 Conversion texte en heure puis soustraire 8H30
Réponses
6
Affichages
189
Philippe Château
P
  • Résolu(e)
XL 2021 Comportement bizarre en Batch
Réponses
12
Affichages
247
jurassic pork
R
  • Question Question
Microsoft 365 Problème SI et OU imbriqués
Réponses
4
Affichages
386
job75
E
  • Question Question
XL 2016 Formule MFC
Réponses
7
Affichages
116
excelnoober
E
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
132
Yogean
Y
M
  • Question Question
XL 2016 Formule RECHERCHE V pas figé et fusion TCD
Réponses
1
Affichages
87
Gégé-45550
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
126
ChTi160
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
489
patricktoulon
S
  • Question Question
XL 2016 Différents calculs et graphiques
Réponses
8
Affichages
222
Stephane72
S
  • Question Question
Microsoft 365 Formule matricielle dynamique : Utilisation de OU
Réponses
5
Affichages
664
Efgé
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…