Range("F" & Lig).FormulaLocal = "=CONCATENER(AI" & Lig & ";AJ" & Lig & ";AK" & Lig & ")"
Range("F" & Lig)= Range("AI" & Lig) & "V. " & Range("AJ" & Lig) & "h " & Range("AK" & Lig)
Range("F" & Lig).FormulaLocal = "=CONCATENER("Batterie "&AI" &"V. "& Lig & ";AJ" &"Ah "& Lig & ";AK" & Lig & ")"
Sub Batterie_()
Dim Lig&
Lig = ActiveCell.Row
Range("F" & Lig).FormulaLocal = "=(RECHERCHEV(C" & Lig & ";'Prix'!A1:C5;2;0))-F" & Lig + 1 & ""
Range("D" & Lig).FormulaLocal = "Prix de la référence"
Range("F" & Lig + 1).FormulaLocal = "=(RECHERCHEV(C" & Lig & ";'Prix'!A1:C5;3;0))"
Range("D" & Lig + 1).FormulaLocal = "Cette valeur doit se déduire du prix de la ligne du dessus (et reste affichée)"
Range("D" & Lig) = Range("H" & Lig) & "V. " & Range("I" & Lig) & "h " & Range("J" & Lig)
End Sub
Sub Batterie_()
Dim Lig&
Lig = ActiveCell.Row
Range("U" & Lig).FormulaLocal = "=(RECHERCHEV(C" & Lig & ";'Batteries Plomb'!A9:P509;12;0))-U" & Lig + 1 & ""
Range("U" & Lig + 1).FormulaLocal = "=RECHERCHEV(C" & Lig & ";'Batteries Plomb'!A9:P509;11;0)"
Range("F" & Lig + 1).FormulaLocal = "Majoration plomb(déja déduite)"
' Tension
Range("AI" & Lig).FormulaLocal = "=RECHERCHEV(C" & Lig & ";'Batteries Plomb'!A9:P509;2;0)"
' Capacité
Range("AJ" & Lig).FormulaLocal = "=RECHERCHEV(C" & Lig & ";'Batteries Plomb'!A9:P509;5;0)"
' Type
Range("AK" & Lig).FormulaLocal = "=RECHERCHEV(C" & Lig & ";'Batteries Plomb'!A9:P509;4;0)"
' Texte ligne batterie
Range("F" & Lig) = Range("AI" & Lig) & "V. " & Range("AJ" & Lig) & "Ah " & Range("AK" & Lig)
End Sub
Faux, tu as aussi des cellules fusionnées (ce qui n'était pas le cas dans le fichier du post #5)J'ai juste remplacer les nom des colonnes
' Tension
Range("AI" & Lig).FormulaLocal = "=RECHERCHEV(C" & Lig & ";'Batteries Plomb'!A9:P509;2;0)"
' Capacité
Range("AJ" & Lig).FormulaLocal = "=RECHERCHEV(C" & Lig & ";'Batteries Plomb'!A9:P509;5;0)"
' Type
Range("AK" & Lig).FormulaLocal = "=RECHERCHEV(C" & Lig & ";'Batteries Plomb'!A9:P509;4;0)"
' Texte ligne batterie
Range("F" & Lig) = Range("AI" & Lig) & "V " & Range("AJ" & Lig) & "Ah " & Range("AK" & Lig)
Range("AI" & Ligo) = Erreur 2042
Range("AJ" & Ligo) = Erreur 2042
Range("AK" & Ligo) = Erreur 2042