Bonsoir,
je voudrais pouvoir coller une valeur dans une cellule si elle est vide ou contient la valeur "abs". Voici le code que j'utilise :
Mais cela ne fonctionne pas. La copie se fait uniquement dans une cellule vide. Il n'y a aucune prise en compte de la condition "abs".
Merci pour l'aide que vous pourrez m'apporter.
Cordialement
je voudrais pouvoir coller une valeur dans une cellule si elle est vide ou contient la valeur "abs". Voici le code que j'utilise :
Code:
Set cell_source_1er = Range("e7")
Set cell_source_der = cell_source_1er.End(xlDown)
Set cell_cible_deb = Range("k7")
Set cell_cible_fin = Range("q7")
Range(cell_source_1er, cell_source_der).Copy
If IsEmpty(cell_cible_deb) Or cell_cible_deb.Value = "abs" Then
Range(cell_cible_deb).PasteSpecial xlPasteValues
Else
cell_cible_fin.End(xlToLeft).Offset(0, 1).PasteSpecial xlPasteValues
End If
Mais cela ne fonctionne pas. La copie se fait uniquement dans une cellule vide. Il n'y a aucune prise en compte de la condition "abs".
Merci pour l'aide que vous pourrez m'apporter.
Cordialement