XL 2016 conversion de fonction à macro

zozo

zozo

XLDnaute Occasionnel
Bien le bonsoir à tous les membres,

Je sollicite votre aide pour convertir la fonction suivante en macro dont le fichier joint :

=INDEX(BARESULTAT!$C$2:$S$500;EQUIV('CHGE-DIRECT'!E$10;BARESULTAT!$A$2:$A$500;0);EQUIV('CHGE-DIRECT'!$A11;BARESULTAT!$C$1:$S$1;0))

Mon classeur contient 2 feuilles, BARESULTAT et CHGE-DIRECT, la fonction est au niveau de la feuille CHGE-DIRECT.

Merci pour toute solution et efforts de votre part.
 

Pièces jointes

  • CHARGES.xlsm
    233.7 KB · Affichages: 8
Solution
Jacky67
zozo à dit:
Bien le bonsoir à tous les membres,

Je sollicite votre aide pour convertir la fonction suivante en macro dont le fichier joint :

=INDEX(BARESULTAT!$C$2:$S$500;EQUIV('CHGE-DIRECT'!E$10;BARESULTAT!$A$2:$A$500;0);EQUIV('CHGE-DIRECT'!$A11;BARESULTAT!$C$1:$S$1;0))

Mon classeur contient 2 feuilles, BARESULTAT et CHGE-DIRECT, la fonction est au niveau de la feuille CHGE-DIRECT.

Merci pour toute solution et efforts de votre part.
Cliquez pour agrandir...
Bonjour,
Ceci peut-être..
VB: 
Sub testJJ()
    With Feuil4.[b11:l27]
        .Formula = "=INDEX(BARESULTAT!$C$2:$S$500,MATCH(B$10,BARESULTAT!$A$2:$A$500,0),MATCH($A11,BARESULTAT!$C$1:$S$1,0))"
        .Value = .Value
    End With
End Sub
Trier par date Trier par votes
Jacky67

Jacky67

XLDnaute Barbatruc
zozo à dit:
Bien le bonsoir à tous les membres,

Je sollicite votre aide pour convertir la fonction suivante en macro dont le fichier joint :

=INDEX(BARESULTAT!$C$2:$S$500;EQUIV('CHGE-DIRECT'!E$10;BARESULTAT!$A$2:$A$500;0);EQUIV('CHGE-DIRECT'!$A11;BARESULTAT!$C$1:$S$1;0))

Mon classeur contient 2 feuilles, BARESULTAT et CHGE-DIRECT, la fonction est au niveau de la feuille CHGE-DIRECT.

Merci pour toute solution et efforts de votre part.
Cliquez pour agrandir...
Bonjour,
Ceci peut-être..
VB: 
Sub testJJ()
    With Feuil4.[b11:l27]
        .Formula = "=INDEX(BARESULTAT!$C$2:$S$500,MATCH(B$10,BARESULTAT!$A$2:$A$500,0),MATCH($A11,BARESULTAT!$C$1:$S$1,0))"
        .Value = .Value
    End With
End Sub
 

Pièces jointes

  • CHARGES.xlsm
    237.8 KB · Affichages: 4
Vote positif 1 Vote négatif
Solution
mapomme

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour @zozo :) , @Jacky67 ;)

Voici une fonction personnalisée plus générique:
Function TableItem ( Table , dansPremCol , dansPremLig , SiAbsent , PresentMaisVide )
Cliquez pour agrandir...

  • Table est la plage du tableau dans lequel on va rechercher un élément
  • dansPremcol est la valeur recherchée dans la première colonne de Table
  • dansPremligne est la valeur recherchée dans la première colonne de Table
  • SiAbsent est la valeur renvoyée si au moins une des deux valeurs cherchées est absente
  • PresentMaisVide est la valeur renvoyée si l'élément a été trouvé et s'il est vide

Exemple d'utilisation en cellule b11 de la feuille "CHGE-DIRECT":
=TableItem ( BARESULTAT!$A$1:$T$144 ; B$10 ; $A11 ; 0 ; "" )
Cliquez pour agrandir...
On retourne 0 si on n'a pas pas trouvé une des deux valeurs B$10 ou $A11.
On retourne "" si les deux valeurs ont été trouvé mais si la valeur du tableau est 'vide'.

Pour l'exemple, la cellule C24 dans le tableau a été mise à vide (au lieu de la formule =somme(...))

Code de la fonction dans Module1:
VB: 
Function TableItem(Table As Range, ByVal dansPremCol, ByVal dansPremLig, ByVal SiAbsent, ByVal PresentMaisVide)
Dim t, i&, j&, y
   t = Table
   For i = 1 To UBound(t)
      If dansPremCol = t(i, 1) Then Exit For
   Next i
   If i >= UBound(t) Then TableItem = SiAbsent: Exit Function
   For j = 1 To UBound(t, 2)
      If dansPremLig = t(1, j) Then Exit For
   Next j
   If j >= UBound(t, 2) Then TableItem = SiAbsent: Exit Function
   y = Table(i, j)
   If y = "" Then TableItem = PresentMaisVide Else TableItem = y
End Function
 

Pièces jointes

  • zozo- CHARGES- v1.xlsm
    232.6 KB · Affichages: 6
Vote positif 0 Vote négatif
mapomme

mapomme

XLDnaute Barbatruc
Supporter XLD
Re,
Salut @Staple1600 :)

La même mais beaucoup moins gourmande en ressource mémoire. On ne stocke plus en mémoire vive le tableau dans sa totalité mais uniquement sa 1ère colonne puis sa 1ère ligne.

Exemple : un tableau de 1 000 colonnes et 50 000 lignes.
  • Première méthode : 50 000 000 de valeurs à stoker en mémoire
  • Deuxième méthode : on stocke d'abord 50 000 valeurs en mémoire remplacées ensuite par 1000 valeurs en mémoire soit 50 000 valeurs au maximum.

VB: 
Function TableItem(Table As Range, ByVal dansPremCol, ByVal dansPremLig, ByVal SiAbsent, ByVal PresentMaisVide)
'recherche le rang i de la valeur "dansPremCol" au sein de la 1ère colonne du tableau Table à partir de 2ème élément.
'recherche le rang j de la valeur "dansPremLig" au sein de la 1ère ligne du tableau Table à partir de 2ème élément.
'Si au moins une des 2 valeurs (i, j) n'est pas trouvée alors on retourne la valeur "SiAbsent"
'Sinon on retient la valeur y à l'intersection de la ligne i et de la colonne j
'NOTA: si y est vide alors on retourne la valeur "PresentMaisVide" sinon on retourne y
Dim t, i&, j&, y
   t = Table.Columns(1)
   For i = 1 To UBound(t)
      If dansPremCol = t(i, 1) Then Exit For
   Next i
   If i >= UBound(t) Then TableItem = SiAbsent: Exit Function
   t = Table.Rows(1)
   For j = 1 To UBound(t, 2)
      If dansPremLig = t(1, j) Then Exit For
   Next j
   If j >= UBound(t, 2) Then TableItem = SiAbsent: Exit Function
   y = Table.Cells(i, j)
   If y = "" Then TableItem = PresentMaisVide Else TableItem = y
End Function
 
Dernière édition:
Vote positif 0 Vote négatif
zozo

zozo

XLDnaute Occasionnel
Bonjour,
mapomme à dit:
Re,
Salut @Staple1600 :)

La même mais beaucoup moins gourmande en ressource mémoire. On ne stocke plus en mémoire vive le tableau dans sa totalité mais uniquement sa 1ère colonne puis sa 1ère ligne.

Exemple : un tableau de 1 000 colonnes et 50 000 lignes.
  • Première méthode : 50 000 000 de valeurs à stoker en mémoire
  • Deuxième méthode : on stocke d'abord 50 000 valeurs en mémoire remplacées ensuite par 1000 valeurs en mémoire soit 50 000 valeurs au maximum.

VB: 
Function TableItem(Table As Range, ByVal dansPremCol, ByVal dansPremLig, ByVal SiAbsent, ByVal PresentMaisVide)
'recherche le rang i de la valeur "dansPremCol" au sein de la 1ère colonne du tableau Table à partir de 2ème élément.
'recherche le rang j de la valeur "dansPremLig" au sein de la 1ère ligne du tableau Table à partir de 2ème élément.
'Si au moins une des 2 valeurs (i, j) n'est pas trouvée alors on retourne la valeur "SiAbsent"
'Sinon on retient la valeur y à l'intersection de la ligne i et de la colonne j
'NOTA: si y est vide alors on retourne la valeur "PresentMaisVide" sinon on retourne y
Dim t, i&, j&, y
   t = Table.Columns(1)
   For i = 1 To UBound(t)
      If dansPremCol = t(i, 1) Then Exit For
   Next i
   If i >= UBound(t) Then TableItem = SiAbsent: Exit Function
   t = Table.Rows(1)
   For j = 1 To UBound(t, 2)
      If dansPremLig = t(1, j) Then Exit For
   Next j
   If j >= UBound(t, 2) Then TableItem = SiAbsent: Exit Function
   y = Table.Cells(i, j)
   If y = "" Then TableItem = PresentMaisVide Else TableItem = y
End Function
Cliquez pour agrandir...

mapomme à dit:
Bonjour @zozo :) , @Jacky67 ;)

Voici une fonction personnalisée plus générique:


  • Table est la plage du tableau dans lequel on va rechercher un élément
  • dansPremcol est la valeur recherchée dans la première colonne de Table
  • dansPremligne est la valeur recherchée dans la première colonne de Table
  • SiAbsent est la valeur renvoyée si au moins une des deux valeurs cherchées est absente
  • PresentMaisVide est la valeur renvoyée si l'élément a été trouvé et s'il est vide

Exemple d'utilisation en cellule b11 de la feuille "CHGE-DIRECT":

On retourne 0 si on n'a pas pas trouvé une des deux valeurs B$10 ou $A11.
On retourne "" si les deux valeurs ont été trouvé mais si la valeur du tableau est 'vide'.

Pour l'exemple, la cellule C24 dans le tableau a été mise à vide (au lieu de la formule =somme(...))

Code de la fonction dans Module1:
VB: 
Function TableItem(Table As Range, ByVal dansPremCol, ByVal dansPremLig, ByVal SiAbsent, ByVal PresentMaisVide)
Dim t, i&, j&, y
   t = Table
   For i = 1 To UBound(t)
      If dansPremCol = t(i, 1) Then Exit For
   Next i
   If i >= UBound(t) Then TableItem = SiAbsent: Exit Function
   For j = 1 To UBound(t, 2)
      If dansPremLig = t(1, j) Then Exit For
   Next j
   If j >= UBound(t, 2) Then TableItem = SiAbsent: Exit Function
   y = Table(i, j)
   If y = "" Then TableItem = PresentMaisVide Else TableItem = y
End Function
Cliquez pour agrandir...
Bonjour,
Merci, pour ton aide.
 
Vote positif 0 Vote négatif

Discussions similaires

zozo
  • Question
XL 2016 Convertir Fonction Excel en VBA
2
Réponses
16
Affichages
990
Dranreb
Dranreb
cathodique
  • Question
XL 2010 Code de l'IA à corriger
2 3
Réponses
33
Affichages
2 K
cathodique
cathodique
V
  • Résolu(e)
XL 2019 Gestion de stock EQUIV, INDEX, ...
Réponses
6
Affichages
1 K
vilcoyotte90
V
L
  • Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
336
AtTheOne
AtTheOne
G
  • Résolu(e)
Microsoft 365 Formule avec pour référence le résultat d'une autre formule pour indiquer la colonne de référence
Réponses
1
Affichages
589
JHA
J
P
  • Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
424
Pimpon974
P
dysorthographie
Créez votre propre moteur de recherche pour vos recettes de cuisine en HTML !
Réponses
1
Affichages
315
dysorthographie
dysorthographie
N
  • Question
XL 2019 Aide sur fonction Rang avec une exclusion de certaines valeurs
Réponses
2
Affichages
721
Nyco129
N
N
  • Question
XL 2021 BESOIN D'aide macro
Réponses
7
Affichages
772
Gégé-45550
Gégé-45550
6
  • Question
XL 2019 Calcul à réaliser si une ou plusieurs cellules vides
Réponses
6
Affichages
888
vgendron
vgendron

Membres actuellement en ligne

5 membres et 37 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 098
Messages
2 116 189
Membres
112 679
dernier inscrit
Yupanki