recuperer des valeurs provenant d'une fonction

[Reeaz]

Rebonjour a tous!

Je suis sur une feuille de calcul excel et j'ai executé une première macro qui me convertit ma collonne C en nombre de jours.
J'aimerais faire une fonction qui me récupère pour chaque ligne la valeur associée c'est à dire le nombre de jours et me la mette dans la cellule juste à côté. Par exemple, pour 7 days, que 7 apparaîsse dans la cellule à côté( juste à sa gauche). Mais je voudrais créer une macro qui me le fasse automatiquement sans avoir à faire la macro à chaque fois car le tableau fait beaucoup de lignes.

Si qqun pouvait m'aider..
Merci

 

[alex]

Je pense que tu devrais laisser quinton sur le banc, il est sorti hier soir

 

[mjp]

salut c JP,

pour utiliser les colonnes il faut une fonction que j'ai créée :

'--------------------------------------
Public Function MJP_AlphaExcel(ByVal IntNumero As Integer) As String
Dim StrLettre As String
If IntNumero < 1 Then Exit Function
If Int(IntNumero / 26.5) < 1 Then
StrLettre = Chr(64 + (IntNumero - (26 * (Int(IntNumero / 26.5)))))
Else
StrLettre = Chr(64 + (Int(IntNumero / 26.5))) & Chr(64 + (IntNumero - (26 * (Int(IntNumero / 26.5)))))
End If
MJP_AlphaExcel = StrLettre
End Function
'--------------------------------------
elle transforme un numéro en suite de lettre !!!
exemple colonne 300 = KN

il reste plus qu'à executer une boucle

for NumeroCellule = NumeroCelulleDebut to NumeroCelluleFin

range(MJP_AlphaExcel(NumeroCellule) & NumeroDeLigne).value = ...(MaFormule ou une autre cellule : range("A1").value )

next

@+ JP