Simplifier un code

Version imprimable

Simplifier un code

Bonjour à tous,
C'est ma première visite, je vais essayer d'être clair et précis.
J'ai un document de production dont j'ai automatisé le remplissage avec le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Range("B11").Select ActiveCell.FormulaR1C1 = "=VlookUp('Fiche surveillance'!R11C1,'Données'!R7C6:R87C24,2,False)" If IsError(Range("B11").Value) Then ActiveCell.Value = "" Else: ActiveCell.Value = "=VlookUp('Fiche surveillance'!R11C1,'Données'!R7C6:R87C24,2,False)" End If Range("B13").Select ActiveCell.FormulaR1C1 = "=VlookUp('Fiche surveillance'!R13C1,'Données'!R7C6:R87C24,2,False)" If IsError(Range("B13").Value) Then ActiveCell.Value = "" Else: ActiveCell.Value = "=VlookUp('Fiche surveillance'!R13C1,'Données'!R7C6:R87C24,2,False)" End If Range("B15").Select ActiveCell.FormulaR1C1 = "=VlookUp('Fiche surveillance'!R15C1,'Données'!R7C6:R87C24,2,False)" If IsError(Range("B15").Value) Then ActiveCell.Value = "" Else: ActiveCell.Value = "=VlookUp('Fiche surveillance'!R15C1,'Données'!R7C6:R87C24,2,False)" End If
Je me dis qu’il doit être possible de créer une boucle qui permet d’incrémenter la cellule à remplir de 2 à partir de la cellule B11 jusqu’à la cellule B174 et la valeur recherchée de 2 à partir de la valeur 'Fiche surveillance'!R11C1 jusqu’à la valeur Fiche surveillance'!R174C1 ce qui me permettrait de simplifier l’écriture et le risque d’erreur.
Malgré toutes mes recherches je n'y arrive pas, pouvez-vous m'aider.
Merci

Salut,

Tu peux essayer avec un truc de ce style

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Function AutoFillUp(ByVal aColumnNumber as string)
  Range("B" + aColumnNumber).Select
  ActiveCell.FormulaR1C1 = "=VlookUp('Fiche surveillance'!R" + aColumnNumber + "C1,'Données'!R7C6:R87C24,2,False)"
  If IsError(Range("B" + aColumnNumber).Value) Then
    ActiveCell.Value = ""
  Else: ActiveCell.Value = "=VlookUp('Fiche surveillance'!R" + aColumnNumber + "C1,'Données'!R7C6:R87C24,2,False)"
  End If
End Function
 
AutoFillUp("11")
AutoFillUp("13")
AutoFillUp("15")

Code:

1
2
3
4
5
6
7
8
9
10
Sub Test()
Dim i As Long
 
For i = 11 To 174 Step 2
    With Range("B" & i)
        .FormulaR1C1 = "=VlookUp('Fiche surveillance'!R" & i & "C1,'Données'!R7C6:R87C24,2,False)"
        If IsError(.Value) Then .Value = ""
    End With
Next i
End Sub

Ca marche mais

Citation:
Envoyé par mercatog
Code:

1 2 3 4 5 6 7 8 9 10 Sub Test() Dim i As Long For i = 11 To 174 Step 2 With Range("B" & i) .FormulaR1C1 = "=VlookUp('Fiche surveillance'!R" & i & "C1,'Données'!R7C6:R87C24,2,False)" If IsError(.Value) Then .Value = "" End With Next i End Sub
Ce code fonctionne à merveille. Juste un petit problème, le bouton de commande doit être dans la feuille à remplir mais dans mon application le bouton de commande est dans une autre feuille (Reception). Je suppose que je dois déclarer la feuille à modifier mais je n'arrive pas à la déclarer. Comment m'y prendre.
GG

Code:

1
2
3
4
5
6
For i = 11 To 174 Step 2
    With Worksheets("NomDeTaFeuille").Range("B" & i)
        .FormulaR1C1 = "=VlookUp('Fiche surveillance'!R" & i & "C1,'Données'!R7C6:R87C24,2,False)"
        If IsError(.Value) Then .Value = ""
    End With
Next i