Comment faire plus simple

Mixou04 -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Comment puis-je faire plus simple? 

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


Merci d'avance pour votre aide

1 réponse

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,
    Une facon de faire:
    Remplacez le ? par e accentue 

    '
Sub Imprimer_1()
' Imprimer_1 Macro
'
    VF6 = Worksheets("Gamme op?ratoire").Range("F6")
    With Worksheets("Commandes")
        For n = 6 To 9
            x = .Cells(n, 1)
            If .Cells(n, 1) = VF6 Then
                .Cells(n, 25) = "Imprim?"
                Exit For
            End If
        Next n
    End With
End Sub
    0