VBA:Copier formule dans col. AK jusqu'à dernière cell de A
Résolu
BILLING
Messages postés
166
Statut
Membre
-
BILLING Messages postés 166 Statut Membre -
BILLING Messages postés 166 Statut Membre -
Bonjour,
J'ai cette petite macro qui ne fonctionne pas. Je crois être tout près de mon but mais je n'y arrive pas.
Je veux qu'une formule que j'ai créée se copie automatiquement dans les cellules de la colonne AK tant qu'il y a des données dans les cellules de la colonne A.
Voici mon fichier échantillon: https://www.cjoint.com/c/FCbpmPGLOzE
Merci
J'ai cette petite macro qui ne fonctionne pas. Je crois être tout près de mon but mais je n'y arrive pas.
Je veux qu'une formule que j'ai créée se copie automatiquement dans les cellules de la colonne AK tant qu'il y a des données dans les cellules de la colonne A.
Sub S1CargoTonnes()
'
'
Dim Derlig As Integer
With ActiveSheet
Derlig = .Columns("A").Find("*", , , , , xlPrevious).Row
With Range("AK2")
.FormulaLocal = "=SI(OU($L2='DRDGE';$L2='WKBGE');" - ";SI(NON(ESTERREUR(RECHERCHEV(DROITE($L2;2);'Matrice S1'!$A$19:$B$30;2;FAUX)));RECHERCHEV(DROITE($L2;2);'Matrice S1'!$A$19:$B$30;2;FAUX);" - "))"
.AutoFill Destination:=.Range("A2:A" & Derlig)
End With
End With
End Sub
Voici mon fichier échantillon: https://www.cjoint.com/c/FCbpmPGLOzE
Merci
A voir également:
- VBA:Copier formule dans col. AK jusqu'à dernière cell de A
- Excel compter cellule couleur sans vba - Guide
- Dépassement de capacité vba ✓ - Forum Excel
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Vba range avec variable ✓ - Forum VB / VBA
1 réponse
Bonjour,
A+
Sub S1CargoTonnes()
Dim Derlig As Integer
With ActiveSheet
Derlig = .Columns("A").Find("*", , , , , xlPrevious).Row
With .Range("AK2")
.FormulaLocal = "=SI(OU($L2=""DRDGE"";$L2=""WKBGE"");"" - "";SI(NON(ESTERREUR(RECHERCHEV(DROITE($L2;2);'Matrice S1'!$A$19:$B$30;2;FAUX)));RECHERCHEV(DROITE($L2;2);'Matrice S1'!$A$19:$B$30;2;FAUX);"" - ""))"
.AutoFill Destination:=.Resize(Derlig - 1)
End With
End With
End Sub
A+
Ça fonctionne parfaitement.
eLise
Peux-tu m'aider avec cette macro? Elle prend trop de temps et je crois qu'en ajoutant le fameux
Derlig = .Columns("A").Find("*", , , , , xlPrevious).Rowça raccourcirait le temps d'exécution.J'ai tenté de l'insérer dans le code suivant:
Mais honnêtement je ne sais pas où exactement je dois l'insérer.
Peux-tu m'aider?
Merci
eLise,