Simplifier un code VBA
Résolu/Fermé
Mixou04
Messages postés
11
Date d'inscription
vendredi 15 novembre 2019
Statut
Membre
Dernière intervention
16 novembre 2019
-
15 nov. 2019 à 09:29
Mixou04 Messages postés 11 Date d'inscription vendredi 15 novembre 2019 Statut Membre Dernière intervention 16 novembre 2019 - 15 nov. 2019 à 15:06
Mixou04 Messages postés 11 Date d'inscription vendredi 15 novembre 2019 Statut Membre Dernière intervention 16 novembre 2019 - 15 nov. 2019 à 15:06
A voir également:
- Simplifier un code VBA
- Code asci - Guide
- Code puk bloqué - Guide
- Code telephone oublié - Guide
- Code activation windows 10 - Guide
- Comment créer un qr code - Guide
3 réponses
Reivax962
Messages postés
3672
Date d'inscription
jeudi 16 juin 2005
Statut
Membre
Dernière intervention
11 février 2021
1 011
15 nov. 2019 à 10:02
15 nov. 2019 à 10:02
Bonjour,
Y a-t-il une bonne raison(*) à vouloir le faire avec une macro ? Ce que tu veux peut se faire assez simplement avec une formule directement placée dans les cellules Y6:Y505 :
Xavier
(*) Parmi les bonnes raisons, entre autre : vouloir s'entraîner, ou vouloir que le "imprimé" reste là même si on change la valeur de feuil2!F6...
Y a-t-il une bonne raison(*) à vouloir le faire avec une macro ? Ce que tu veux peut se faire assez simplement avec une formule directement placée dans les cellules Y6:Y505 :
=SI(Feuil2!$F$6=A6;"Imprimé";"")
Xavier
(*) Parmi les bonnes raisons, entre autre : vouloir s'entraîner, ou vouloir que le "imprimé" reste là même si on change la valeur de feuil2!F6...
yg_be
Messages postés
23235
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
30 septembre 2024
Ambassadeur
1 538
15 nov. 2019 à 10:15
15 nov. 2019 à 10:15
bonjour, peux-tu partager ton code, en utilisant les balises de code?
Mixou04
Messages postés
11
Date d'inscription
vendredi 15 novembre 2019
Statut
Membre
Dernière intervention
16 novembre 2019
15 nov. 2019 à 11:42
15 nov. 2019 à 11:42
Voilà mon code
Sub Imprimer_1() ' ' Imprimer_1 Macro ' If Worksheets("Gamme op?ratoire").Range("F6") = Worksheets("Commandes").Range("A6") Then Worksheets("Commandes").Select Range("Y6").Select ActiveCell.FormulaR1C1 = "Imprim?" Sheets("Gamme op?ratoire").Select ElseIf Worksheets("Gamme op?ratoire").Range("F6") = Worksheets("Commandes").Range("A7") Then Worksheets("Commandes").Select Range("Y7").Select ActiveCell.FormulaR1C1 = "Imprim?" Sheets("Gamme op?ratoire").Select ElseIf Worksheets("Gamme op?ratoire").Range("F6") = Worksheets("Commandes").Range("A8") Then Worksheets("Commandes").Select Range("Y8").Select ActiveCell.FormulaR1C1 = "Imprim?" Sheets("Gamme op?ratoire").Select ElseIf Worksheets("Gamme op?ratoire").Range("F6") = Worksheets("Commandes").Range("A9") Then Worksheets("Commandes").Select Range("Y9").Select ActiveCell.FormulaR1C1 = "Imprim?" Sheets("Gamme op?ratoire").Select End If End Sub
yg_be
Messages postés
23235
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
30 septembre 2024
1 538
>
Mixou04
Messages postés
11
Date d'inscription
vendredi 15 novembre 2019
Statut
Membre
Dernière intervention
16 novembre 2019
Modifié le 15 nov. 2019 à 12:45
Modifié le 15 nov. 2019 à 12:45
suggestion:
Sub Imprimer_1() ' ' Imprimer_1 Macro ' Dim ligne As Long, f6 As String f6 = Worksheets("Gamme op?ratoire").[f6] For ligne = 6 To 9 If f6 = Worksheets("Commandes").Cells(ligne, "A") Then Worksheets("Commandes").Cells(ligne, "Y") = "Imprim?" Exit For End If Next ligne End Sub
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
15 nov. 2019 à 14:22
15 nov. 2019 à 14:22
Salut yg_be,
Sorry de t'avoir oublie t'a leur
Sorry de t'avoir oublie t'a leur
Mixou04
Messages postés
11
Date d'inscription
vendredi 15 novembre 2019
Statut
Membre
Dernière intervention
16 novembre 2019
15 nov. 2019 à 15:06
15 nov. 2019 à 15:06
Super merci pour ton aide ça marche à merveille :)
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
15 nov. 2019 à 13:31
15 nov. 2019 à 13:31
Re bonjour Mixou04 ,
Vous avez déjà demande ici et je vous ai repondu. Probleme de mémoire???
https://forums.commentcamarche.net/forum/affich-36314345-comment-faire-plus-simple#p36314475
Vous avez déjà demande ici et je vous ai repondu. Probleme de mémoire???
https://forums.commentcamarche.net/forum/affich-36314345-comment-faire-plus-simple#p36314475
15 nov. 2019 à 10:25
Merci pour ta réponse. Mon problème est que le texte imprimé doit rester afficher. J’ai créer un bouton sur ma feuille2 qui imprime la page. Afin de savoir quelle page j’ai déjà imprimé le texte « imprimé » dans la feuille1 doit rester!