Index equiv onglets
Résolu
xmma1995
-
Patrice33740 Messages postés 8930 Statut Membre -
Patrice33740 Messages postés 8930 Statut Membre -
Bonjour,
je cherche à inclure cette formule dans mon code vba
M5 =
=INDEX(A!$C$5:$M$300;EQUIV('feuil2'!$B5;A!$C$5:$C$300;0);EQUIV('feuil2'!M$4;A!$C$5:$M$5;0))
=INDEX(B!$C$5:$M$300;EQUIV('feuil2'!$B5;B!$C$5:$C$300;0);EQUIV('feuil2'!M$4;B!$C$5:$M$5;0))
=INDEX(C!$C$5:$M$300;EQUIV('feuil2'!$B5;C!$C$5:$C$300;0);EQUIV('feuil2'!M$4;C!$C$5:$M$5;0))
Pour info A B C sont des onglets crées, l'objectif est d'allez chercher dans chaque onglets et tout mettre au niveau de feuil2.
Merci,
Bon début de semaine,
je cherche à inclure cette formule dans mon code vba
M5 =
=INDEX(A!$C$5:$M$300;EQUIV('feuil2'!$B5;A!$C$5:$C$300;0);EQUIV('feuil2'!M$4;A!$C$5:$M$5;0))
=INDEX(B!$C$5:$M$300;EQUIV('feuil2'!$B5;B!$C$5:$C$300;0);EQUIV('feuil2'!M$4;B!$C$5:$M$5;0))
=INDEX(C!$C$5:$M$300;EQUIV('feuil2'!$B5;C!$C$5:$C$300;0);EQUIV('feuil2'!M$4;C!$C$5:$M$5;0))
Pour info A B C sont des onglets crées, l'objectif est d'allez chercher dans chaque onglets et tout mettre au niveau de feuil2.
Merci,
Bon début de semaine,
A voir également:
- Index equiv onglets
- Index téléphonique - Guide
- Restaurer les onglets chrome - Guide
- Telecharger index - Télécharger - Gestion de fichiers
- Equiv excel anglais - Guide
- Index rapport de stage - Guide
2 réponses
Bonjour
M5 a 3 valeurs ???... en attendant M5 M6 M7
non testé: pas de classeur en PJ réponse en VBA
au brsoin
Dans l’attente
Michel
M5 a 3 valeurs ???... en attendant M5 M6 M7
non testé: pas de classeur en PJ réponse en VBA
Option Explicit
Dim Var_lig As Integer, Var_col As Integer
Sub xxx()
Dim Cptr As Byte, Onglet As String, Cellule As String
With Sheets("feuil2")
Var_lig = .Range("B5")
Var_col = .Range("M4")
For Cptr = 1 To 3
Onglet = Choose(Cptr, "A", "B", "C")
Cellule = Choose(Cptr, "M5", "M6", "M7")
Chercher Onglet, Cellule
Next
.Activate
End With
End Sub
Sub Chercher(feuil, adresse)
Dim Lig As Integer, Col As Integer, Rep
With Sheets(feuil)
Lig = .Columns("C").Find(Var_lig, .Range("C4"), xlValues).Row
Col = .Rows(5).Find(Var_col, .Range("B5"), xlValues).Column
Rep = .Cells(Lig, Col)
Sheets("feuil2").Range(adresse) = Rep
End Sub
au brsoin
Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci par un clic droit sur le lien proposé dans le message de réponse
Dans l’attente
Michel
