fonctions ne fonctionne pas une fois ensembles

zoidberg

XLDnaute Nouveau
Salut à tous, je fais une nouvelle fois appel à vos connaissances. j'ai un fichier avec une feuille de données sur laquelle je dois faire deux choses :

1- Insérer deux formules sur deux colonnes
2- Trier les lignes selon les résultats des formules.

Mais avant tout ça je dois coller les données d'un autre fichier. Celui ci changeant de date tous les jours je choisis de faire un coller après sélection. Donc dans les fait on ouvre le fichier quotidien, copie toutes les données et on retourne dans le fichier de la macro ou, à son exécution elle colle toutes les données dans le tableau et exécute le reste des opérations.

J'ai deux problèmes : Le premier c'est que au collage j'ai une erreur 1004 "la méthode paste de la classe worksheet a échoué" , même lancée individuellement cette petite macro de collage échoue alors que j'ai déjà utilisé la même dans un autre classeur avec succès...

Ensuite la partie de suppression des lignes fonctionne parfaitement quand elle est lancée seule mais elle ne supprime que la première ligne quand elle est lancée avec le reste.

En espérant avoir été clair, mon fichier contiens des données sensibles donc je l'enverrai modifié si nécessaire.

Je vous met le code toutefois.

D'avance merci !!


VB:
    Sheets("Calcul TPD données").Select
    Range("A1").Select
    ActiveSheet.Paste
   
    Range("J1,J:J").Select
    Selection.FormulaR1C1 = "=RIGHT(RC[-9],LEN(RC[-9])-2)"
    Range("K1,K:K").Select
    Selection.FormulaR1C1 = "=LEFT(RC[-1],LEN(RC[-1])-1)"
   
    Dim c As Range, derlig As Long, plage As Range
derlig = Range("K" & Rows.Count).End(xlUp).Row
For Each c In Range("K1:K" & derlig).Cells
  Select Case UCase(c.Text)
    Case "A", "B", "T", "U", "Z"
    Case Else
      If plage Is Nothing Then
        Set plage = c
      Else
        Set plage = Application.Union(plage, c)
      End If
   End Select
Next
If Not plage Is Nothing Then plage.EntireRow.Delete

End Sub
 

zoidberg

XLDnaute Nouveau
Bonjour Jean Marie.

Je fais donc parvenir mes deux fichier. Le fichier qui contien la macro "Calcul TPD" et les données brut à utiliser pour le copier coller.

Merci.
 

Pièces jointes

  • Indicateurs Org - version modifiée.xlsm
    117.8 KB · Affichages: 21
  • Données Brut.xlsx
    13.3 KB · Affichages: 20

Discussions similaires