Extraire des données avec formule

Bonjour à tous,

Voici un extrait du code vba

Code:

---

1 2 3 4 5 6 7 8

Do While ActiveCell.Value <> ""   Bidule= ActiveCell.Value Sheets("Chouette").Copy After:=Sheets(1) 'Créer une nouvelle feuille à partir du modèle ActiveSheet.Name = Bidule 'nomme la nouvelle feuille avec le nom du bidule Range("AQ2").Value = Bidule ' initialise la tabmle de critère avec le nom du bidule Range("Mabase").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "AQ1:AQ2"), CopyToRange:=Range("A1:AP1"), Unique:=False 'extrait les données du service

---

Alors, cette macro créé un nouvel onglet à partir de l'onglet chouette et en copiant chaque donnée qui correspond a bidule.
Le problème est que la colonne AP il existe une formule et je voudrais copier non pas le résultat mais la formule...

Bonjour,
La méthode AdvancedFilter ne copie que les valeurs donc si tu souhaites recopier les formules il faudra utiliser une autre méthode pour effectuer l'exportation soit en copiant la formule de la première ligne de chaque colonne de la iiste source pour les recopier sur les colonnes concernées de la liste cible soit en procédant à un filtre sur place et effectuer un Copier/Coller des lignes visibles.

ps : J'avoue ne pas avoir compris l'utilisation de "bidule" ni la boucle Do while

Merci pour votre réponse je vais voir ça alors :)
Autre question ?

Code:

---

1 2	ActiveCell.FormulaR1C1 = "=IF(RC[-1]=RC[-41],"""",""Attention"")" Selection.AutoFill Destination:=Range("AP2:AP145")

---

Comment tirer cette formule jusqu'à la dernière ligne sachant que la dernier ligne n'est pas tout le temps AP145.

Bonjour,
J'ai ajouté à ma réponse "soit en procédant à un filtre sur place et effectuer un Copier/Coller des lignes visibles."

Citation:

---

Comment tirer cette formule jusqu'à la dernière ligne sachant que la dernier ligne n'est pas tout le temps AP145.

---

La propriété CurrentRegion permet de connaître le nombre de lignes (Exemple : PremièreCelluleDeLaPlageCible.CurrentRegion.Rows.count)

D'accord merci beaucoup je vais voir ça

Bonjour,
Comme le sujet m'intéressait, j'ai écrit la procédure.
Après différents tests, la seule méthode qui tienne la route est le filtre sur place avec la méthode AdvancedFilter. L'exportation posant problème avec les formules si toutes les colonnes ne sont pas exportées et l'adaptation des formules devient alors une usine à gaz.
L'exemple ci-dessous filtre sur place, copie les lignes visibles et supprime les colonnes non reprises dans la constante LabelExport (Attention que les colonnes utilisées dans les formules doivent être gardées)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub CopyByAdvancedFilter() Dim areaSource As Range, areaCriteria As Range, areaTarget As Range, c As Integer Const LabelExport As String = "Nom;Sexe;Date;Délai" ' Colonne à conserver With ThisWorkbook With .Worksheets("db") Set areaSource = .Range("A1").CurrentRegion Set areaCriteria = .Range("I1:I2") End With Set areaTarget = .Worksheets("Export").Range("A1") End With areaTarget.CurrentRegion.Clear ' Filtre sur place With areaSource .AdvancedFilter xlFilterInPlace, areaCriteria .SpecialCells(xlCellTypeVisible).Copy Destination:=areaTarget End With ' Supprime les colonnes à ne pas exporter With areaTarget.CurrentRegion For c = .Columns.Count To 1 Step -1 If InStr(LCase(LabelExport), LCase(.Cells(1, c))) = 0 Then .Columns(c).Delete Next End With areaSource.Worksheet.ShowAllData ' Efface le filtre Set areaSource = Nothing: Set areaCriteria = Nothing: Set areaTarget = Nothing End Sub

---

Bonjour Philippe,

juste en passant, la méthode Range.Copy semblerait bien tenir compte uniquement des cellules visibles,
alors la méthode SpecialCells ne serait pas nécessaire …


_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

Bonjour Marc,

Citation:

---

Bonjour Philippe,
juste en passant, la méthode Range.Copy semblerait bien tenir compte uniquement des cellules visibles,
alors la méthode SpecialCells ne serait pas nécessaire …

---

Ce que tu écris est exact, j'ai gardé une vieille et mauvaise habitude.
donc voici le bout de code corrigé

Code:

---

1 2 3 4

With areaSource .AdvancedFilter xlFilterInPlace, areaCriteria .Copy Destination:=areaTarget End With

---