Bonjour Le forum !!
J'auraisbesoin d'un peu d'aide car je suis bloque sur mon VBA.
J' m'explique:
J'ai ecris des lignes de code pour aller lire certaines cellules et en fonction du resultat, je vais ecrire dans d'autres feuille. Toute cette partie fonctionne tres bien. Cependant, il faut que je fasse la meme chose pour d'autres colonnes et au lieu de faire des copie/collers pour chaque colonnes, j'ai transforme ce code en sous programme que j'appel quand j'en ai besoin...
Voici le bout de code:
Dim SerialCMX As String
Dim SerialINX As String
Dim SerialOUTX As String
SerialCMX = "SerialCMA"
SerialINX = "SerialINA"
SerialOUTX = "SerialOUTA"
ComPortSettings (Pour info, ComPortSettings est le nom de mon sous
Mon sous programme commence ainsi:
Sub ComPortSettings(SerialCMX As String)
'Parity'''''''''''''''''''''''''''''''''''''
Dim ParityA As Integer
Sheets("Data").Select
Range("A1").Select
Do Until ActiveCell.Value = SerialCMX 'ici normalement SerialCMX = "SerialCMA"
ActiveCell.Offset(1, 0).Select
...
Pour expliquer ce que c'est cense faire; Dans mon programme principal, j'affecte a la Variable:
SerialCMX, la valeur "SerialCMA" (plus tards je viendrais mettre "SerialCMB"...)
SerialINX = "SerialINA"
SerialOUTX = "SerialOUTA"
et j'appel mon sous programme...
En ecrivant:
Sub ComPortSettings(SerialCMX As String)
Mon sous programme fonction tres bien mais que pour SerialCMX. Pour SerialINX et SerialOUTX pas du tout...
Si j'ecris:
Sub ComPortSettings(SerialCMX As String, SerialINX As String, SerialOUTX As String)
Ca ne marche pas...
Si dans mon programme principal, j'ecris:
ComPortSettings (SerialCMX, SerialINX, SerialOUTX)
Ca ne marche pas non plus...
Voila, j'espere que quelqu'un pourra m'aider
Bonne journee sinon...
J'auraisbesoin d'un peu d'aide car je suis bloque sur mon VBA.
J' m'explique:
J'ai ecris des lignes de code pour aller lire certaines cellules et en fonction du resultat, je vais ecrire dans d'autres feuille. Toute cette partie fonctionne tres bien. Cependant, il faut que je fasse la meme chose pour d'autres colonnes et au lieu de faire des copie/collers pour chaque colonnes, j'ai transforme ce code en sous programme que j'appel quand j'en ai besoin...
Voici le bout de code:
Dim SerialCMX As String
Dim SerialINX As String
Dim SerialOUTX As String
SerialCMX = "SerialCMA"
SerialINX = "SerialINA"
SerialOUTX = "SerialOUTA"
ComPortSettings (Pour info, ComPortSettings est le nom de mon sous
programme.)Mon sous programme commence ainsi:
Sub ComPortSettings(SerialCMX As String)
'Parity'''''''''''''''''''''''''''''''''''''
Dim ParityA As Integer
Sheets("Data").Select
Range("A1").Select
Do Until ActiveCell.Value = SerialCMX 'ici normalement SerialCMX = "SerialCMA"
ActiveCell.Offset(1, 0).Select
...
Pour expliquer ce que c'est cense faire; Dans mon programme principal, j'affecte a la Variable:
SerialCMX, la valeur "SerialCMA" (plus tards je viendrais mettre "SerialCMB"...)
SerialINX = "SerialINA"
SerialOUTX = "SerialOUTA"
et j'appel mon sous programme...
En ecrivant:
Sub ComPortSettings(SerialCMX As String)
Mon sous programme fonction tres bien mais que pour SerialCMX. Pour SerialINX et SerialOUTX pas du tout...
Si j'ecris:
Sub ComPortSettings(SerialCMX As String, SerialINX As String, SerialOUTX As String)
Ca ne marche pas...
Si dans mon programme principal, j'ecris:
ComPortSettings (SerialCMX, SerialINX, SerialOUTX)
Ca ne marche pas non plus...
Voila, j'espere que quelqu'un pourra m'aider
Bonne journee sinon...