Discussion :

[bipbip.acme]

Bonjour,
je me tourne vers vous pour résoudre ce problème que je n'arrive pas à résoudre...
je voudrais pouvoir sélectionner uniquement une cellule non vide dans une plage donnée (d3:d41), puis la coller dans une autre cellule en fonction de la valeur de la première cellule...

ex:

dans la cellule d4 (toutes les autres cellules de la plage (d3:d41) sont vides), la valeur est de 4.
je voudrait sélectionner uniquement d4 (dans la plage d3:d41) puis coller la valeur 4 dans la cellule h4 (colonne d + 4).
le tout sous forme de macro.

merci d'avance pour votre aide. Je tourne en rond depuis un petit moment sans trouver le truc...
stéphane

[keygen08]

Bonjour,
Un moyen parmi tant d'autres.

Code :

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

1
2
3
4
5
Sub blablz()
For Each cell In Range("d3:d41")
If cell <> "" Then cell.Offset(0, cell.value) = cell.Value
Next cell
End Sub

[bipbip.acme]

c'est exactement ce que je recherchais. Un très grand merci pour cette aide si rapide.

stephane