Discussion :

[ggalpin]

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

[hazraael]

Salut,

Tu peux essayer avec un truc de ce style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ggalpin]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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