Ajout de formule automatique dans cellule

[Florian53]

Bonjour je souhaiterais avoir une formule dans chaque cellule d'une colonne a partir de la ligne 3 et je voudrais aussi que la formule incrémente de 1 à chaque fois la ligne :

Mon code actuellement ne fonctionne pas l'avant dernière ligne est en surbrillance jaune et met une erreur je ne sais pas pourquoi, je ne comprend pas. Pouvez m'expliquer d'ou vient le problème ?

Voici le code:

Sub formule()
Dim nbLigne As Integer, nbColonne As String

nbLigne = Cells.SpecialCells(xlCellTypeLastCell).Row
nbColonne = Range("J3").End(xlToLeft).Column
Range("J3:" & nbColonne & nbLigne).Formula = "=DATEDIF(H3;I3;""d"")"
End Sub

Cordialement

 

[Pierrot93]

Re : Ajout de formule automatique dans cellule

Bonjour,

essaye peut être ceci :

Range("J3:" & Cells( nbLigne ,nbColonne) ).Formula = "=DATEDIF(H3;I3;""d"")"

bon après midi
@+

 

[Florian53]

Re : Ajout de formule automatique dans cellule

Bonjour et merci de ton aide

J'ai effectué la modif et c'est toujours pareil la même ligne en erreur je te transmets le fichier si tu veux voir si il n'y a pas autre chose qui bloque.

Cordialement

 

[Pierrot93]

Re : Ajout de formule automatique dans cellule

Re,

aucune donnée dans ta feuille, modifie peut être ainsi :

Range("J3:" & Cells(nbLigne, nbColonne).Address).Formula

 

[Florian53]

Re : Ajout de formule automatique dans cellule

C'est un fichier qui a pour but d'extraire des données d'un autre classeur excel c'est pour ça que la feuil1 est vierge.

J'ai essayé avec ta new solution mais ce n'ai pas mieux sa fonctionne toi, quand tu fais la modif ?

 

[Pierrot93]

Re : Ajout de formule automatique dans cellule

Re,

J'ai essayé avec ta new solution mais ce n'ai pas mieux sa fonctionne toi, quand tu fais la modif ?

oui, mais pour poser la formule il faut des données de départ..... ne serait ce que pour déterminer la plage... sur une feuille vide, pas facile...

 

[Florian53]

Re : Ajout de formule automatique dans cellule

Normalement quand tu lance la macro " Formule" même si la feuil est vide tu devrais en "J3" avoir la formule.

Moi dés que j’exécute la macro j'ai une erreur normalement sa devrait fonctionner dans le classeur vide

 

[Pierrot93]

Re : Ajout de formule automatique dans cellule

Re,

bah si la feuille est vide... la dernière celule sera A1 non ??

 

[ERIC S]

Re : Ajout de formule automatique dans cellule

Bonjour

effectivement on manque un peu d'info

penser aussi à utiliser les données sous forme de tableau, ce qui permet le remplissage automatique des formules quand on allonge le tableau

 

[Florian53]

Re : Ajout de formule automatique dans cellule

Je te remets le fichier avec des valeurs

 

[ERIC S]

Re : Ajout de formule automatique dans cellule

Re

si je peux dire une bêtise, si c'est pour raisonner en jour, pourquoi datedif

Sub formule()
Dim nbLigne As Integer, nbColonne As Integer, i As Integer

nbLigne = Cells.SpecialCells(xlCellTypeLastCell).Row
nbColonne = Range("J3").End(xlToLeft).Column
For i = 2 To nbLigne
Range("J" & i).Formula = "=(I" & i & "-h" & i & ")"
Next
End Sub

 

[Florian53]

Re : Ajout de formule automatique dans cellule

Salut Eric S je viens d'essayer ta formule et ça fonctionne parfaitement merci .

Je voudrais savoir aussi si c'est possible de rechercher la plus petite valeur d'une plage qui ne prendrait pas en compte des cellules vides et ni des cellules à 0 ?

Cordialement

 

[ERIC S]

Re : Ajout de formule automatique dans cellule

Bonjour

par formule matricielle (écrire formule puis "ctrl shift entree") =MIN(SI($A$1:$J$1>0;$A$1:$J$1))
après le ctrl shift entree cela donne {=MIN(SI($A$1:$J$1>0;$A$1:$J$1))}

ou en vba (adressage relatif
Range("D1").FormulaArray = "=MIN(IF(RC[-3]:R[9]C[-3]>0,RC[-3]:R[9]C[-3]))"
et absolu
Range("D2").FormulaArray = "=MIN(IF(R1C1:R1C10>0,R1C1:R1C10))"