Macro de condition
Résolu
Philou73CH
-
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour, Bonsoir à vous,
J'ai 2 macros qui fonctionnent parfaitement bien l'une et l'autre. Je vous ai mis là, 2 jumelles qui sont nettement moins longue, mais l'idée reste. :-(( le problème aussi d'ailleurs.
J'ai un bouton dont le but est d'aller mettre les données collectées précédemment sur une feuille Intitulé FAXfactu. J'ai donc ceci :
Sub ouvfax()
' ouvfax Macro
Sheets("FAXfactu").Select
Range("A2").Select
End Sub
Mais j'aimerai qu'avant d'aller ouvrir cette feuille FAX, la macro suivante soit exécuté.
Sub Macro1()
Macro1 Macro
Sheets("Statistique REMU").Select
ActiveCell.FormulaR1C1 = "=Patient!R2C2"
Range("B3").Select
ActiveCell.FormulaR1C1 = "=REMU!R[1]C"
Range("C3").Select
ActiveCell.FormulaR1C1 = "=REMU!R[8]C[4]"
Range("C4").Select
End Sub
Mais ceci uniquement si la Cellule B25 a la mention " REMU".
En clair, j'ai besoin d'aller compléter autotmatiquement une statistique REMU uniquement les fois où c'est nécessaire, et après aller au FAXfactu.
Mais sinon, veux aller directement à FACfactu.
Je vous remercie d'avance de votre aide.
J'ai 2 macros qui fonctionnent parfaitement bien l'une et l'autre. Je vous ai mis là, 2 jumelles qui sont nettement moins longue, mais l'idée reste. :-(( le problème aussi d'ailleurs.
J'ai un bouton dont le but est d'aller mettre les données collectées précédemment sur une feuille Intitulé FAXfactu. J'ai donc ceci :
Sub ouvfax()
' ouvfax Macro
Sheets("FAXfactu").Select
Range("A2").Select
End Sub
Mais j'aimerai qu'avant d'aller ouvrir cette feuille FAX, la macro suivante soit exécuté.
Sub Macro1()
Macro1 Macro
Sheets("Statistique REMU").Select
ActiveCell.FormulaR1C1 = "=Patient!R2C2"
Range("B3").Select
ActiveCell.FormulaR1C1 = "=REMU!R[1]C"
Range("C3").Select
ActiveCell.FormulaR1C1 = "=REMU!R[8]C[4]"
Range("C4").Select
End Sub
Mais ceci uniquement si la Cellule B25 a la mention " REMU".
En clair, j'ai besoin d'aller compléter autotmatiquement une statistique REMU uniquement les fois où c'est nécessaire, et après aller au FAXfactu.
Mais sinon, veux aller directement à FACfactu.
Je vous remercie d'avance de votre aide.
1 réponse
-
Bonjour,
Comme ceci :
Sub ouvfax() ' ouvfax Macro If Range("B25").Value = " REMU" Then With Sheets("Statistique REMU") Range("??").FormulaR1C1 = "=Patient!R2C2" Range("B3").FormulaR1C1 = "=REMU!R[1]C" Range("C3").FormulaR1C1 = "=REMU!R[8]C[4]" End With End If Sheets("FAXfactu").Select Range("A2").Select End Sub
Tu n'as pas besoin de sélectionner tes cellules pour les modifier ni d'activer la feuille concerné.
