Discussion :

[chefsun]

Bonjour,
j'ai un fichier excel et lorsque je clique sur un bouton cela lance un traitement d'un autre fichier excel afin d'en créée un nouveau

lors de se traitement les premieres lignes sont supprimé jusqu'a une cellule contenant une phrase "Etablist Date Numéro Montant brut Valeur TVA s/"

mais ce fichier excel venant d'autre personne, il rajoute ou supprime des espace sur cette cellule
je me suis dit que je vais lancé une procédure permettant de supprimé les espace au debut et fin de cellule mais lors du traitement des petits carré avec point d'interrogation apparraissent au début de certaine cellules et la suppression des espace ne fonctionne pas
comment faire pour supprimer ce caractere speciale

voici le debut de mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim ligne As Integer
    Dim ligne2 As Integer
    Dim compt As Integer
    Dim magasin As String
 
 
    'tant qu on est dans le corps du mail et non dans la liste des factures
    'on supprime les lignes
    ligne = 1
    While Workbooks(nom_fichier).Worksheets(1).Range("A" & ligne).Value <> "Etablist    Date   Numéro        Montant brut     Valeur    TVA s/  "
 
        Workbooks(nom_fichier).Worksheets(1).Rows("1:1").Delete
    Wend

[mercatog]

Par hasard

Code :

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

While Workbooks(nom_fichier).Worksheets(1).Range("A" & ligne).Value <> "*Etablist Date Numéro Montant brut Valeur TVA s/ *"

[chefsun]

quand je met les * la boucle tourne en rond et ne s'arrete jamais je suis obligé de fermer excel par le gestionnaire de tache

[mercatog]

Effectivement

Essaies ce code avec autre méthode et sans boucle

Code :

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

1
2
3
4
5
6
7
8
9
Dim c As Range
 
With Workbooks(nom_fichier).Worksheets(1)
    Set c = .Range("A:A").Find("Etablist Date Numéro Montant brut Valeur TVA s/", LookIn:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
        If c.Row > 1 Then .Rows(1 & ":" & c.Row - 1).Delete
        Set c = Nothing
    End If
End With

[chefsun]

cela fonctionne
mais maintenant il me genere une erreur ailleur

erreur d'execution type 13
erreur incompatibilité

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  'recopie de A vers D
    ligne = 1
    While Workbooks(nom_fichier).Worksheets(1).Range("A" & ligne).Value <> ""       
Workbooks(nom_fichier).Worksheets(1).Range("D" & ligne) = Workbooks(nom_fichier).Worksheets(1).Range("A" & ligne).Value
       magasin = Workbooks(nom_fichier).Worksheets(1).Range("B" & ligne).Value
       If (Len(magasin) > 10) Then
          magasin = Left(magasin, 10)
          Workbooks(nom_fichier).Worksheets(1).Range("B" & ligne) = magasin
       End If
       Workbooks(nom_fichier).Worksheets(1).Range("E" & ligne) = ligne & "@"
       ligne = ligne + 1
    Wend

l'erreur vient a la ligne 3147 ou la cellule contient "=-----reach"
alors que sur le fichier original il ya pas cette formule
on dirait qu'au lieu de effacé mes lignes au debut il me les a collé vers la fin
car au couts du traitement je vois que les lignes soit disant effacé se sont inserer a partir de la ligne 3100 environ

[chefsun]

personne pour me guidé ?