Sub semaine()
Dim i As Integer
Dim j As Integer
i = 1
j = 2
Bonjour,
Mon fichier comporte plusieurs feuilles dont "Enrobage" et "Feuil1"
La feuille Enrobage à dans les colonnes :
A : semaine
B : Jour
C : chiffrage
Je souhaiterais que dans ma feuille Feuil1 apparaissent
suivant le numéros de semaine choisi (entré dans une cellule) les jours et montant.
J'ai fait cette macro mais rien ne se passe.
Set f = Sheets("Feuil1")
Set e = Sheets("Enrobage")
If e.Range("a" & i).Value = 42 Then
e.Range("b" & i).Value = f.Range("a" & j).Value
i = i + 1
j = j + 1
Else
i = i + 1
j = j + 1
End If
End Sub
Si une âme charitable veut bien m'aider
En vous remerciant.