Discussion :

[toushusss]

Bonjour à tous.

Je cherche un moyen de récuperer la valeur d'une cellule pour l'attribuer à une autre de la manière qui suit.

J'ai un tableau avec mes 12 mois. Dans la colonne C je saisie via une textbox le dernier relevé d'energie d'une facture.
Celui de janvier viens en C4. Si j'ai une facture en février , la valeur de B5 = C4 et ma saise du relevé viens en C5 ( comme ça je peux calculer la difference (C5 - B5) du mois, ici février)
Or selon le poste que je traite je n'ai pas des factures tout les mois et des fois la prochaine est 2 ou 3 mois aprés.

Comment récuperer la dernière valeur saisie de la colonne C pour la mettre dans la colonne B du mois ou il y a une facture.

Exemple Janvier Saisie C4

Avril Saisie C7 et doit récuperer C4 en B7

J'avais pensé a un code avec des if ( si cellule précédente vide alors voir cellule d'avant et ainsi de suite jusqu'à en trouver une avec une valeur) Mais je pense que c'est long surtout pour le mois de Décembre car cela ferait 11 conditions.......)
Merci par avance

[Daniel.C]

Bonjour,

La première du code suivant te donne la dernière cellule remplie de la colonne C; la seconde t'indique seulement que le relevé du mois doit être positionné après :

Code :

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

1
2
Set c = [C:C].Find("*", , , , xlByRows, xlPrevious)
[C7] = Me.TextBox1.Text

Tu copies ensuite la valeur de c en colonne B.

[toushusss]

Merci DANIEL
Super ça marche comme je le souhaitai.
Juste pour ma culture VBA, pourquoi les 4 "," dans le code ?

[Daniel.C]

La méthode "Find" possède un tas de paramètres qu'il est d'ailleurs un peu dangereux de ne pas renseigner; soit tu mets des virgules, ainsi, xlbyrows est le 5e paramètre de la commande, ou tu indiques le nom du paramètre :

Code :

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

Set c = [C:C].Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious)