Question elementaire

Question elementaire - VB/VBA/VBS - Programmation

Marsh Posté le 18-09-2003 à 11:47:56    

Bonjour, j'ai une question qui doit etre vraiment facile a repondre pour les utilisateurs courant de VB:
 
Comment ecrire ca sur une seule ligne?
 
 
       If compteur = 5 Then
            x = "6"
            y = "AX"
            lim = "20"
            table = "Y1:AI21"
            printarea = "$AU$1:$BE$21"
        End If

 
Voila!! merci beaucoup!  :jap:

Reply

Marsh Posté le 18-09-2003 à 11:47:56   

Reply

Marsh Posté le 18-09-2003 à 12:20:53    

genius999 a écrit :

Bonjour, j'ai une question qui doit etre vraiment facile a repondre pour les utilisateurs courant de VB:
 
Comment ecrire ca sur une seule ligne?
 
 
       If compteur = 5 Then
            x = "6"
            y = "AX"
            lim = "20"
            table = "Y1:AI21"
            printarea = "$AU$1:$BE$21"
        End If

 
Voila!! merci beaucoup!  :jap:  


 

Code :
  1. if compteur = 5 then x="6":y="AX":lim="20":table="Y1:AI121": printarea="$AU$1:$BE$21"


 
aide : MSDN :
 

Note   Dans le cas de la syntaxe à une seule ligne, il est possible d'exécuter plusieurs instructions à partir d'une décision If...Then. Toutes les instructions doivent se trouver sur la même ligne et être séparées par un signe deux-points, comme dans l'instruction suivante :
 
If A > 10 Then A = A + 1 : B = B + A : C = C + B


Message édité par cvb le 18-09-2003 à 12:21:47
Reply

Marsh Posté le 18-09-2003 à 12:33:30    

c'est quoi l'intérêt? :heink:
 
ça diminue la lisibilité de ton code et ça ne change rien à la vitesse d'exécution.

Reply

Marsh Posté le 18-09-2003 à 13:57:25    

drasche a écrit :

c'est quoi l'intérêt? :heink:
 
ça diminue la lisibilité de ton code et ça ne change rien à la vitesse d'exécution.


 
Pour ce que je vais faire, ca augmante beaucoup la visibité...
 
Merci cvb

Reply

Marsh Posté le 18-09-2003 à 14:01:19    

ah oué donc tu vas en fait recopier la ligne en question plusieurs fois avec des arguments différents.
 
Et une petite fonction, ça ne te passerait pas par la tête?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed