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 : Sélectionner tout - Visualiser dans une fenêtre à part
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