Discussion :

[GUELLILA]

Bonjour
votre support svp ,j'ai une macro que je veux exécuter sur deux feuilles différente du mémé classeur Excel mais pour chaque classeur sur des colonnes différente et tous cela sur la même macro si possible

Feui1:

Code :

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

1
2
3
4
5
6
7
8
Sub aguellil()
 
Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
   Columns("B:B").TextToColumns Destination:=Range("B1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
 
End Sub

Feuil2:

Code :

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

1
2
3
4
5
6
7
8
Sub aguellil()
 
Columns("F:F").TextToColumns Destination:=Range("F1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
   Columns("G:G").TextToColumns Destination:=Range("G1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
 
End Sub

merci d'avance

[Philippe Tulliez]

Bonjour,
Lorsque l'on crée une procédure qui doit être utilisée par des objets différents ou dont la valeur de certaines propriétés est différente, on crée une procédure avec un ou plusieurs arguments.
Dans votre cas deux arguments, la feuille et la lettre de la colonne ou le numéro ainsi la colonne suivante sera l'argument n° de colonne +1 ou mieux encore deux objets de type Range la "Source " et la "Cible"


Exemple (non testé) avec un seul argument sht

Code :

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

1
2
3
4
Sub T(sht as worksheet)
  sht.Columns("F:F").TextToColumns Destination:=Range("F1"), DataType:=xlFixedWidth, _
  FieldInfo:=Array(0, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
End Sub

Que l'on invoquera pour effectuer l'opération sur les feuilles nommées Feuil1 et Feuil4

Code :

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

1
2
3
4
Sub T0()
  T ThisWorkbook.Worksheets("Feuil1")
  T ThisWorkbook.Worksheets("Feuil4")
End Sub

[Menhir]

Une solution parmi de nombreuses autres :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Main()
    Call aguellil(Worksheets("Feui1"), "A")
    Call aguellil(Worksheets("Feui2"), "F")
End Sub
 
Sub aguellil(Feuil As Worksheet, Col As String)
   Feuil.Columns(Col).TextToColumns Destination:=Feuil.Cells(1, Col), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
   Feuil.Columns(Col).Offset(0, 1).TextToColumns Destination:=Feuil.Cells(1, Col).Offset(0, 1), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
End Sub

C'est du code tapé directement sur le forum et non testé. Tu auras donc peut-être du débugage à faire.

[GUELLILA]

Bnojour
merci a vous pour votre support

cdt