Appliquer une formule sur une ligne

[antoine_]

Bonjour,

Admettons qu'à partir de B2 je veuille appliquer une formule suivant la longueur de cellules non vides de ma ligne 4, comment écrire la fonction autofill?

Autant sur une colonne j'ai compris:
Selection.AutoFill Destination:=Range("EU2:EU" & Range("M65536").End(xlUp).Row), Type:=xlFillDefault

Mais pour une ligne,je vois pas comment remplacer EU...EU2 devient B2,M65536 devient IV4,xlup devient xltoright et row devient column...Mais EU????

Merci!

ps:désolé pour le doublon mais je n'ai pas trouvé la fonction supprimmer dans l'éditeur de message...

 

[ChTi160]

Re : Appliquer une formule sur une ligne

Salut antoine
peut être une solution à adapter

Sub test()
With Worksheets("Feuil1")
Set SourceRange = .Range("B2") 'ex il y a A en B2
Set fillRange = .Range(.Cells(2, 2), .Cells(2, .Cells(4, 1).End(xlToRight).Column)) 'on détermine par rapport à la ligne 4 la derniere colonne non vide en partant de la colonne 255 on obtient la plage de recopie ex Range("B2:M2") si la derniere colonne non vide de la ligne 4 est la 13
End with
SourceRange.AutoFill Destination:=fillRange 'on recopie et on Obtient A,B,C etc
End Sub

bonne journée

 

[antoine_]

Re : Appliquer une formule sur une ligne

Merci mais ca bug...

Autofill ne peut etre utilisé que pour les colonnes?

 

[antoine_]

Re : Appliquer une formule sur une ligne

Ah non c'est bon ca marche. 🙄

Merci 1000 fois.


N'empeche que meme si le probleme est résolu je me demande bien si on peut utiliser autofill sur une ligne...

 

[ChTi160]

Re : Appliquer une formule sur une ligne

😛 arff là je pense que tu rigoles lol 😀

N'empeche que meme si le probleme est résolu je me demande bien si on peut utiliser autofill sur une ligne...

car elle fait quoi ma macro ?????? lol lorsqu'elle fait un autofill sur la plage fillRange
qui représente pour exemple la plage B2:M2 qui pourrait être B1:IV1 donc une ligne entiere 😕

Set fillRange = .Range(.Cells(2, 2), .Cells(2, .Cells(4, 1).End(xlToRight).Column)) 'on détermine par rapport à la ligne 4 la derniere colonne non vide en partant de la colonne 255 on obtient la plage de recopie ex Range("B2:M2") si la derniere colonne non vide de la ligne 4 est la 13

bonne fin de Journée 😛

 

[antoine_]

Re : Appliquer une formule sur une ligne

J'entendais une macro de la forme:

Selection.AutoFill Destination:=Range("EU2:EU" & Range("M65536").End(xlUp).Row), Type:=xlFillDefault

Mais c'est le EU qui pose problème, j'avais envie de mettre 2 mais ca marchait pas...

 

[ChTi160]

Re : Appliquer une formule sur une ligne

Salut Antoine
bonjour le Forum

la je ne comprends plus lol

J'entendais une macro de la forme:

Selection.AutoFill Destination:=Range("EU2:EU" & Range("M65536").End(xlUp).Row), Type:=xlFillDefault

Mais c'est le EU qui pose problème, j'avais envie de mettre 2 mais ca marchait pas...

le EU te gene biensur,à moins que tu ne connaisse la derniere colonne de ta ligne de recopie (tu aurais par exemple
Selection.AutoFill Destination:= Range("EU2:IV2") ,Type:=xlFillDefault)
c'est pourquoi j'ai utilisé cette methode pour définir la derniere colonne de la ligne.
Si tu mettais un fichier exemple de ce que tu veux on pourra suremnt avancer
merci d'avance
Bonne journée

 

[antoine_]

Re : Appliquer une formule sur une ligne

Bonjour,

Non non ché polpeine eudchercher, ta trouvé chtruc dja.

Merchi core min gars

ps:c'est pas du sms mais du chti