VBA offset

Bonjour

J'ai un soucis de code VBA mais je ne vois pas pourquoi

Sub épis()
Range("D51:D61").ClearContents
If Range("B51:B61").Value Like "*épis*" Then
cell.Offset(rowOffset:=0, columnOffset:=2).Value = "Par bocal"
End If
End Sub

Je veux lorsque le mot "épis" apparaît dans les cellules B51 à B61, que ça me mette dans la cellule d'à côté (décalage de 2 colonnes) le terme "Par bocal"

Clem

Bonjour,

Cell n'est défini nulle part et ne correspond donc à rien ici.

Aussi, pour que ton code soit pertinent, il faut faire la recherche cellule par cellule et non pas comme tu l'as fait, sur une plage :

If Range("B51:B61").Value Like "*épis*" Then

Au final, voilà un code potentiel :

Sub épis()
Range("D51:D61").ClearContents
For Each Cell In Range("B51:B61")
   If Cell.Value Like "*épis*" Then cell.Offset(0, 2).Value = "Par bocal"
Next Cell
End Sub

Hum ça paraît tellement évident pourtant ...

Merci bien !

Clem