Comment faire plus simple
Mixou04
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Comment puis-je faire plus simple?
Merci d'avance pour votre aide
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
A voir également:
- Comment faire plus simple
- 14 simple - Guide
- Simple pdf - Télécharger - PDF
- Simple ocr - Télécharger - Bureautique
- Simple file locker - Télécharger - Sécurité
- Simple comic - Télécharger - Vie quotidienne
1 réponse
Bonjour,
Une facon de faire:
Remplacez le ? par e accentue
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
