Comment faire plus simple

A voir également:Comment faire plus simpleLogiciel montage video simple ✓ - Forum - Montage vidéo Simple pdf - Télécharger - PDF Logiciel montage audio simple - Télécharger - Edition audio Liste simplement chainée - Conseils pratiques - Langage C Logiciel retouche photo simple - Conseils pratiques - Logiciels

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

Forum

A voir également:Comment faire plus simpleLogiciel montage video simple ✓ - Forum - Montage vidéo Simple pdf - Télécharger - PDF Logiciel montage audio simple - Télécharger - Edition audio Liste simplement chainée - Conseils pratiques - Langage C Logiciel retouche photo simple - Conseils pratiques - Logiciels

Web: www.shapebootstrap.net

1 réponse

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

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

Reply

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed