Microsoft 365 VBA Probleme avec Autofill

Staple1600

XLDnaute Barbatruc

• 30 Janvier 2020

• #2

Bonsoir le fil, le forum, trekkeur50

Tu veux recopier tout (format, formules) ?
Ou simplement les formules?

 

Vote positif 0 Vote négatif

T

trekkeur50

XLDnaute Junior

• 30 Janvier 2020

• #3

Staple1600 à dit:

Bonsoir le fil, le forum, trekkeur50

Tu veux recopier tout (format, formules) ?
Ou simplement les formules?

Cliquez pour agrandir...

Bonsoir Staple1600
je voudrais recopier tout

 

Vote positif 0 Vote négatif

T

trekkeur50

XLDnaute Junior

• 30 Janvier 2020

• #4

Ce sont juste des valeurs que j'ai a recopier.Et le format m'importe peu

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Janvier 2020

• #5

Re

Dans ta colonne C, il y a des valeurs ou des formules ?
Regardes cet exemple (à tester sur une feuille vierge)

VB:

Sub testA()
[C1:C4] = "=ROW()": [E1:E20] = 1
Derlig = Cells(Rows.Count, "E").End(xlUp).Row
formul = Cells(Rows.Count, "C").End(xlUp).Formula
Cells(Rows.Count, "C").End(xlUp).Offset(1).Resize(Derlig).Formula = formul
End Sub

Je recopie les formules sans passer par Autofill

 

Vote positif 0 Vote négatif

T

trekkeur50

XLDnaute Junior

• 30 Janvier 2020

• #6

On s'approche de la solution.
Le probleme qu'il reste c'est que cela copie la cellule C sur trop de lignes.
C'est la raison pour laquelle j'avais essayé autofill car j'ai la colonne E qui est adjacente.Je souhaite stopper la copie sur la derniere ligne de la colonne adjacente.
Dans la colonne c, ce sont des valeurs.

 

Vote positif 0 Vote négatif

T

trekkeur50

XLDnaute Junior

• 30 Janvier 2020

• #7

J'ajoute un fichier pour etre plus comprehensible

 

Pièces jointes

• Essai autofill.xlsx

  12.3 KB · Affichages: 2

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Janvier 2020

• #8

Re

C'est plus mieux comme ceci?

VB:

Sub testB()
[C1:C4] = "=ROW()": [E1:E20] = 1
Derlig = Cells(Rows.Count, "E").End(xlUp).Row
formul = Cells(Rows.Count, "C").End(xlUp).Formula
Range(Cells(Rows.Count, "C").End(3)(2), Cells(Derlig, "C")) = formul
End Sub

PS: C'est juste une macro illustrative
A toi de faire les adaptations idoines.

 

Vote positif 0 Vote négatif

T

trekkeur50

XLDnaute Junior

• 30 Janvier 2020

• #9

CA MARCHEEEEEEEEEEEEEEEEEEEEEE
Un grand grand merci
Je pars me coucher heureux

 

Vote positif 0 Vote négatif