RESOLU VBA- Formules jusqu’à derniere cellule

Florian53 · 19 Juillet 2017

Bonjour,

Je souhaite inscrire en vba une formule sur la ligne 4 en fonction de la derniere cellule de la ligne 1 :

VB:

dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Range("U4:" & "cells(4,dercol" )_
.FormulaR1C1 = "=IF(RC[-1]="""","""",IF(ISNA(VLOOKUP(RC20,Tableau,MATCH(Feuil1!R1C,IrisSct,0)+2,FALSE)),""0"",IF(VLOOKUP(RC20,Tableau,MATCH(Feuil1!R1C,IrisSct,0)+2,FALSE)=""-"",0,VLOOKUP(RC20,Tableau,MATCH(Feuil1!R1C,IrisSct,0)+2,FALSE))))"

J'ai essayé d'écrire ce code mais il y a une erreur pouvez vous m'aider svp?

Merci à vous

mutzik · 19 Juillet 2017

bonjour
Range("U4:" & "cells(4,dercol" ) : il faut enlever les guillemets
Range("U4:" & cells(4,dercol).address)

Florian53 · 19 Juillet 2017

Merci,

J'ai une erreur lors de l’exécution sur la ligne de la déclaration de dercol:

VB:

Sub Macro30()
'Recherche valeur U4 ==> U?_
Dim dercol As Range
dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Range("U4:" & Cells(944, dercol).Address).FormulaR1C1 = "=IF(RC[-1]="""","""",IF(ISNA(VLOOKUP(RC20,Tableau,MATCH(Feuil1!R1C,IrisSct,0)+2,FALSE)),""0"",IF(VLOOKUP(RC20,Tableau,MATCH(Feuil1!R1C,IrisSct,0)+2,FALSE)=""-"",0,VLOOKUP(RC20,Tableau,MATCH(Feuil1!R1C,IrisSct,0)+2,FALSE))))"
End Sub

Je voudrais que la formule s'applique de la ligne 4 à 944 de la colonne "U" jusqu'à la dernière colonne

mutzik · 19 Juillet 2017

re,

dercol = Cells(1, Columns.Count).End(xlToLeft).Column

Florian53 · 19 Juillet 2017

J'ai toujours la même erreur et sur la même ligne :

VB:

Sub Macro30()
'Recherche valeur U4 ==> U?_
Dim dercol As Range
dercol = Cells(1, Columns.Count).End(xlToLeft).Column
Range("U4:" & Cells(944, dercol).Address).FormulaR1C1 = "=IF(RC[-1]="""","""",IF(ISNA(VLOOKUP(RC20,Tableau,MATCH(Feuil1!R1C,IrisSct,0)+2,FALSE)),""0"",IF(VLOOKUP(RC20,Tableau,MATCH(Feuil1!R1C,IrisSct,0)+2,FALSE)=""-"",0,VLOOKUP(RC20,Tableau,MATCH(Feuil1!R1C,IrisSct,0)+2,FALSE))))"
End Sub

zebanx · 19 Juillet 2017

Bonjour,

J'ai souvent des erreurs aussi avec dercol = Cells(1, Columns.Count).End(xlToLeft).Column
(hier soir encore)

Je préfère utiliser pour la dernière ligne / dernière colonne les données suivants :

Sub Ajoute0()
...
Dim derligne As Integer
Dim dercol As Integer

derligne = Range("A" & Rows.Count).End(xlUp).Row
dercol = Range("IV1").End(xlToLeft).Column 'en partant de la ligne 1 dans ce cas

For i = 5 To derligne
For j = 1 To dercol
....
Next j
Next i
...
End Sub

Florian53 · 19 Juillet 2017

Je viens de trouver, mauvaise déclaration de dercol

VB:

Dim dercol As Integer

Merci à toi et bonne journée

zebanx · 19 Juillet 2017

Ok -)
Indique peut-être que c'est résolu dans le titre stp.
Ce sont souvent des fils qu'on vient regarder (dernière ligne, dernière colonne).

Florian53 · 19 Juillet 2017

Super merci à toi Zebanx .

Les 2 solutions fonctionnent

RESOLU VBA- Formules jusqu’à derniere cellule

Florian53

XLDnaute Impliqué

mutzik

XLDnaute Barbatruc

Florian53

XLDnaute Impliqué

mutzik

XLDnaute Barbatruc

Florian53

XLDnaute Impliqué

zebanx

XLDnaute Accro

Florian53

XLDnaute Impliqué

zebanx

XLDnaute Accro

Florian53

XLDnaute Impliqué

Discussions similaires