Macro de condition
Résolu
Philou73CH
-
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14946 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.
A voir également:
- Macro de condition
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Excel cellule couleur si condition texte - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
1 réponse
Bonjour,
Comme ceci :
Tu n'as pas besoin de sélectionner tes cellules pour les modifier ni d'activer la feuille concerné.
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é.