Discussion :

[sosophie]

Bonjour

Dans un tableur excel j'ai

Code :

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

1
2
3
 
 AN    01 000001 000002 01/01/06 NOUVEAU1.500.000,00   1.500.000,00  C   
TOTAL COMPTE : 1010000  CAPITAL 1.500.000,00   1.500.000,00  C

Le découpage n'est pas uniforme je ne peux pas utiliser l'outils convertir sur l'ensemble de ma feuille

Dans une boucle je pensais repérer les lignes commençant par AN et appliquer mon formatage puis repérer celle commançant par Total en appliquant un formatage différent.

Problème je n'arrive pas à rester dans la cellule en cours voilà le code

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
26
27
28
29
 
Sub Cherche()
 
  Dim Plage   As Range
  Dim Cellule As Range
  Dim Posit   As Long
  Dim NBLig
 
NBLig = 5
 
  On Error Resume Next
  Set Plage = Sheets("GRAND LIVREm").Range(Cells(1, 1), Cells(NBLig, 1))
  For Each Cellule In Plage
 
        Posit = Application.WorksheetFunction.Find("AN", Cellule.Value)
        If Posit = 2 Then
 
        MsgBox (Cellule.Address(RowAbsolute:=False)) // Affiche $Ax
 
    Selection.TextToColumns Destination:=Cellule.Address(RowAbsolute:=False), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(9, 1), Array(16, 1), Array(23, 1), _
        Array(32, 1), Array(65, 1), Array(99, 1), Array(113, 1)), TrailingMinusNumbers:=True
 
        Posit = 0
        End If
 
  Next
 
End Sub

Merci pour votre aide.

[Invité]

Bonsoir Sosophie,

Si j'ai bien compris vous avez des cellules commençants par "AN" et d'autres par "TOTAL COMPTE".
Les cellules "AN" ont toutes le même nombre de champs séparés par des espaces (sauf semble t'il le champ "NOUVEAUavec un montant accolé).
Les cellules "TOTAL COMPTE" ont toutes le même nombre de champs séparés par des espaces mais ce nombre est différent des lignes "AN".

Vous voulez copier ces champs dans des cellules différentes et adjacentes ?

J'ai bien compris ?

Si oui, cela me paraît faisable, mais il faudrait montrer un exemple de ce que vous voulez obtenir avec simplement deux cellules "AN" et deux "TOTAL COMPTE".

Amicalement.

[dadavyvy]

Code :

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

1
2
3
    Selection.TextToColumns Destination:=Cellule.Address(RowAbsolute:=False), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(9, 1), Array(16, 1), Array(23, 1), _
        Array(32, 1), Array(65, 1), Array(99, 1), Array(113, 1)), TrailingMinusNumbers:=True

Bonjour, ton probleme se situe dans la Selection, comme tu ne selectionnes rien, il s'agit de la cellule active... Il faut en general eviter d'utiliser Selection.
Ensuite la Destination doit etre un Range et non pas un String, or Cellule.Address ne donne pas une cellule mais une chaine de caractere :

Code :

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

1
2
3
Cellule.TextToColumns Destination:=Cellule, DataType:=xlFixedWidth, _
     FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(9, 1), Array(16, 1), Array(23, 1), _
     Array(32, 1), Array(65, 1), Array(99, 1), Array(113, 1)), TrailingMinusNumbers:=True

Voila, normalement ca devrait fonctionner...

Encore une chose, tu peux egalement remplacer :

Code :

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

1
2
Posit = Application.WorksheetFunction.Find("AN", Cellule.Value)
        If Posit = 2 Then

par :

Code :

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

If Cellule.Value Like " AN*" Then

[sosophie]

Ok ça marche super!