S SALAH XLDnaute Occasionnel 6 Août 2020 #1 Bonjour le forum Pourriez-vous m'aider à écrire un code qui interpréterait la formule Je vous joins un petit fichier pour une meilleure compréhension Pièces jointes formule-vba2.xlsm 28.9 KB · Affichages: 22
Bonjour le forum Pourriez-vous m'aider à écrire un code qui interpréterait la formule Je vous joins un petit fichier pour une meilleure compréhension
fanfan38 XLDnaute Barbatruc 7 Août 2020 #2 Bonjour La Zone combinée était associée à la cellule F2 de la feuille BD je l'ai donc associée à la cellule E2 ensuite la macro associée à la Zone combinée fait le calcul est renvoie la valeur en A1 sur la feuille RECAP A+ François Pièces jointes formule-vba2.xlsm 30.5 KB · Affichages: 8 Vote positif 0 Vote négatif
Bonjour La Zone combinée était associée à la cellule F2 de la feuille BD je l'ai donc associée à la cellule E2 ensuite la macro associée à la Zone combinée fait le calcul est renvoie la valeur en A1 sur la feuille RECAP A+ François
job75 XLDnaute Barbatruc 7 Août 2020 #3 Bonjour SALAH, fanfan38, le forum, Pourquoi du VBA ??? En général on cache la cellule liée derrière la zone de liste combinée, ici en RECAP!E3. Formule très simple en A1 =INDEX(BD!I3:I5;E3) Bonne journée. Pièces jointes formule(1).xlsx 23.5 KB · Affichages: 4 Vote positif 0 Vote négatif
Bonjour SALAH, fanfan38, le forum, Pourquoi du VBA ??? En général on cache la cellule liée derrière la zone de liste combinée, ici en RECAP!E3. Formule très simple en A1 =INDEX(BD!I3:I5;E3) Bonne journée.
job75 XLDnaute Barbatruc 7 Août 2020 #4 Maintenant si l'on veut absolument du VBA plus besoin de cellule liée. On affectera cette macro à la zone de liste combinée (contrôle de formulaire) : VB: Sub Change_Liste() [A1] = Sheets("BD").Cells(2 + ActiveSheet.Shapes("Zone combinée 3").OLEFormat.Object.Value, 9) End Sub Pièces jointes formule VBA(1).xlsm 29.6 KB · Affichages: 6 Vote positif 0 Vote négatif
Maintenant si l'on veut absolument du VBA plus besoin de cellule liée. On affectera cette macro à la zone de liste combinée (contrôle de formulaire) : VB: Sub Change_Liste() [A1] = Sheets("BD").Cells(2 + ActiveSheet.Shapes("Zone combinée 3").OLEFormat.Object.Value, 9) End Sub
S SALAH XLDnaute Occasionnel 7 Août 2020 #5 Bonjour le forum Bonjour fanfan38, job75 Je vous remercie infiniment les deux versions marchent très bien je ne connaissais pas la zone combinée, je vais méditer. Merci infiniment pour toute votre aide Vote positif 0 Vote négatif
Bonjour le forum Bonjour fanfan38, job75 Je vous remercie infiniment les deux versions marchent très bien je ne connaissais pas la zone combinée, je vais méditer. Merci infiniment pour toute votre aide