VBA:Copier formule dans col. AK jusqu'à dernière cell de A

Résolu

BILLING Messages postés 162 Date d'inscription Statut Membre Dernière intervention -
BILLING Messages postés 162 Date d'inscription Statut Membre Dernière intervention - 2 mars 2016 à 21:29

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.

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

Afficher la suite

A voir également:

VBA:Copier formule dans col. AK jusqu'à dernière cell de A
Excel compter cellule couleur sans vba - Guide
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Mkdir vba ✓ - Forum VB / VBA
Dépassement de capacité vba ✓ - Forum Excel

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention 526

Bonjour,

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+

BILLING Messages postés 162 Date d'inscription Statut Membre Dernière intervention 48

Merci Gyrus,

Ça fonctionne parfaitement.

eLise

BILLING Messages postés 162 Date d'inscription Statut Membre Dernière intervention 48

Bonjour Gyrus,

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:

Sub LeMois()
DateEntry = 19 ' 1 egal colonne S
   For L = 2 To Cells(Rows.Count, DateEntry).End(xlUp).Row
      Range("AJ" & L).NumberFormat = "@"
      Range("AJ" & L).Value = Left(Cells(L, DateEntry), 4) & "-" & Mid(Cells(L, DateEntry), 5, 2) & "-" & Right(Cells(L, DateEntry), 2)
      Range("AK" & L).Value = Application.Proper(Format(DateSerial(Left(Cells(L, DateEntry), 4), Mid(Cells(L, DateEntry), 5, 2), Right(Cells(L, DateEntry), 2)), "mmmm"))
   Next
End Sub

Mais honnêtement je ne sais pas où exactement je dois l'insérer.

Peux-tu m'aider?

Merci

eLise,

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires