Comment faire plus simple Fermé

Question

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

f894009 · Answer

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

Comment faire plus simple

1 réponse

Discussions similaires

Newsletters