Formule à appliquer sur une colonne
Résolu/Fermé
ti_mouton
Messages postés
143
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
5 septembre 2020
-
21 juil. 2015 à 09:17
ti_mouton Messages postés 143 Date d'inscription vendredi 29 mai 2015 Statut Membre Dernière intervention 5 septembre 2020 - 22 juil. 2015 à 10:44
ti_mouton Messages postés 143 Date d'inscription vendredi 29 mai 2015 Statut Membre Dernière intervention 5 septembre 2020 - 22 juil. 2015 à 10:44
A voir également:
- Formule à appliquer sur une colonne
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Formule de politesse mail anglais - Guide
- Clémence souhaite faire calculer automatiquement les prix de 30 produits dans trois devises. elle a déjà saisi une formule de calcul pour le tarif du premier produit dans la première devise. corrigez sa formule afin que recopiée vers le bas puis vers la droite, elle remplisse correctement tout le tableau. - Forum Excel
1 réponse
Frenchie83
Messages postés
2239
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
28 janvier 2023
335
22 juil. 2015 à 04:36
22 juil. 2015 à 04:36
Bonjour
il manque la lettre de la colonne de fin "K7:K" & DerLig
.Range("K7" & DerLig).FormulaR1C1 = Range("K2").FormulaR1C1
De plus vous recherchez la dernière ligne du tableau (DerLig) de la feuille 2 construit à partir du filtre élaboré, avant même d'avoir construit le tableau, cette ligne doit se trouver après la construction du tableau.
Cdlt
il manque la lettre de la colonne de fin "K7:K" & DerLig
.Range("K7" & DerLig).FormulaR1C1 = Range("K2").FormulaR1C1
De plus vous recherchez la dernière ligne du tableau (DerLig) de la feuille 2 construit à partir du filtre élaboré, avant même d'avoir construit le tableau, cette ligne doit se trouver après la construction du tableau.
Sub FiltreAvance()
Dim DL As Integer
Dim DerLig As Integer
DL = Sheets(1).Cells(Application.Rows.Count, 4).End(xlUp).Row
With Sheets(1)
.Select
.Range(Cells(4, 1), Cells(DL, 9)).Select
End With
Selection.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets(2).[B1:B2], CopyToRange:=Sheets(2).[B6], Unique:=False
DerLig = Sheets(2).Cells(Application.Rows.Count, 2).End(xlUp).Row
Sheets(2).Select
Range("K7:K" & DerLig).FormulaR1C1 = Range("K2").FormulaR1C1
End Sub
Cdlt
22 juil. 2015 à 10:44