Problème autofill

[OFFSET]

Bonjour à tous

J'ai un problème avec la fonction Autofill, et je vais essayer d'être le plus clair possible

ci-dessous mon code:

Range("A1").Select
Selection.End(xlToRight).Select
Selection.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = "=TODAY()"
Selection.Offset(1, 0).Select


ActiveCell.FormulaR1C1 = "=IF(R2C8<>"""",IF(R2C9=""NON"",""0"",RC[-3]-RC[-9]),"""")"

Selection.AutoFill Destination:=

Alors ce code me permet à chaque utilisation de la macro de documenter ma première colonne vide.
Sur la ligne 1 j'ai ma date du jour,
mais ensuite à partir de la 2ème ligne je dois appliquer une autre formule, que je souhaite faire glisser jusqu'a la fin (ex:Selection.End(xlToDown).Select.

Le problème et que lorsque je renseigne l'autofill avec une range du type range("j2:j200"), elle sera encore utilisée pour la prochaine utilisation de ma macro (CAD que se sera toujours ma colonne J qui sera concernée).

J'ai donc essayé de cette façon:

Selection.AutoFill Destination:= selection.End(xlDown)

mais sa ne marche pas. Est-ce que quelqu'un aurait une idée?

Merci d'avance pour votre aide, je reste à votre disposition pour plus d'infos.

 

[Pierrot93]

Re : Problème autofill

Bonjour offset

regarde le code ci-dessous, à adapter à ton classeur, suppose que la colonne c permette de déterminer la dernière ligne à traiter, sans fichier et sans plus de détails, difficile de t'en dire plus :

ActiveCell.AutoFill Destination:=Range(ActiveCell.Address & ":D" & Range("C65536").End(xlUp).Row)

bon après midi
@+

 

[OFFSET]

Re : Problème autofill

Bonjour Pierrot,

Désolé mais je n'ai pas la possibilité de t'envoyer un fichier assez léger.
Même avec ta solution le problème persiste, le résultat et le que si le code était celui-ci:

Range("A1").Select
Selection.End(xlToRight).Select
Selection.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = "=TODAY()"
Selection.Offset(1, 0).Select

ActiveCell.FormulaR1C1 = "=IF(R2C3=""NON"",""0"",RC[-3]-RC[-2])"


Selection.AutoFill Destination:=Range("D2😀100")


Lorsque j'éxécute ma macro pour la colonne D sa fonctionne, en revanche pour la E sa ne fonctionne pas car ma la fonction n'est pas recopier sur le reste de ma colonne E, elle se trouve uniquement dans ma cellule E2.

 

[Pierrot93]

Re : Problème autofill

Re

oui, le problème est qu'il faut déterminer la plage, et pour ce faire trouver la dernière ligne, donc trouver un critère permettant de le faire....

 

[OFFSET]

Re : Problème autofill

Oui j'en conviens, mais c'est justement ce que je ne sais pas faire...

 

[Pierrot93]

Re : Problème autofill

Re,

regarde ce code, te donnera la dernière ligne de ta feuille utilisée :

Dim x As Long
x = Cells.Find("*", , xlValues, , 1, 2, 0).Row

sinon fais un petit fichier, 10 lignes maxi représentant bien le problème...

@+

 

[OFFSET]

Re : Problème autofill

Bon après plusieurs tentatives infructueuses je rends les armes, voilà mon fichier Pierrot. La macro marche la première fois mais la deuxième fois.

Merci d'avance pour ton aide.

 

[pierrejean]

Re : Problème autofill

bonsoir OFFSET

Salut Pierrot
toujours heureux de te croiser

Un essai

 

[OFFSET]

Re : Problème autofill

Merci beaucoup Pierre-Jean, sa semble fonctionner correctement.
Est-ce que je peux te de demander stp de m'expliquer ton code ainsi que ta fonction, car j'avoue être un peu dépassé...

 

[pierrejean]

Re : Problème autofill

Re

J'ai commenté la macro et la fonction du mieux que que j'ai pu
J'espere que tu seras convaincu que cela fait plus que sembler marcher

 

[OFFSET]

Re : Problème autofill

Merci beaucoup Pierre-Jean,
Effectivement je rectifie la macro marche du feu de dieu !!!! (Je ne voulais pas m'avancer trop vite étant donné que VBA est assez récent pour moi).