GADENSEB
XLDnaute Impliqué
Bonjour,
Je cherche à convertir 3 Formules en vba pour éviter des erreurs de saisie ou d’écrasement de formule.
A chaque fois je pars de la ligne 2 et la formule doit se recopier jusqu'a la derniére ligne remplis
Onglet "COMPTES"
Pour précision, l'insertion des données dans cet se fait via un usf.
Je verrais bien un
Là c'est la premiére fois que je tente le truc.
Quelqu'un aurait une piste ?
Bonne aprem
Seb
Je cherche à convertir 3 Formules en vba pour éviter des erreurs de saisie ou d’écrasement de formule.
A chaque fois je pars de la ligne 2 et la formule doit se recopier jusqu'a la derniére ligne remplis
Onglet "COMPTES"
Pour précision, l'insertion des données dans cet se fait via un usf.
Code:
Colonne G
=SI(F2="";"";GAUCHE($F2;CHERCHE(" - ";$F2)-1))
Colonne H
=SI(F2="";"";SI(ESTERREUR(CHERCHE(" - ";F2;CHERCHE(" - ";F2)+1));DROITE(F2;NBCAR(F2)-CHERCHE(" - ";F2)-2);DROITE(F2;NBCAR(F2)-CHERCHE(" - ";F2;CHERCHE(" - ";F2)+1)-2)))
Colonne K
=SI($B2>$S$1;"X";"")Je verrais bien un
Code:
workbook_change ()
With Sheets("COMPTE)
Dim I, j As Integer
j = .Range("A1").End(xlDown).Row
For I = 2 To j
.Cells(I, "G") = XXXXXXXXXXXXXXXXXXXXX
.Cells(I, "H") = XXXXXXXXXXXXXXXXXXXXX
.Cells(I, "K") = XXXXXXXXXXXXXXXXXXXXX
Next
End with
end subLà c'est la premiére fois que je tente le truc.
Quelqu'un aurait une piste ?
Bonne aprem
Seb
Dernière édition: