Discussion :

[chito79000]

Bonjour à tous,

Voici un extrait du code vba

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Philippe Tulliez]

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

[chito79000]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Philippe Tulliez]

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

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)

[chito79000]

D'accord merci beaucoup je vais voir ça

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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