Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1484 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  kestion tres courte : if imbriqués

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

kestion tres courte : if imbriqués

n°772487
marcmaumon​t
Posté le 22-06-2004 à 11:35:39  profilanswer
 

salut tlm!
 
Je voulais simplement savoir si il etait possible de faire plusieurs IF imbriqués dans une macro excel...
 
Passke chez moi, cela ne semble pas trop trop fonctionner!
 
Merci
 

mood
Publicité
Posté le 22-06-2004 à 11:35:39  profilanswer
 

n°772560
acorna
Posté le 22-06-2004 à 12:18:34  profilanswer
 

tu peux en imbriquer 7 au maximum dans excel

n°772628
pumpkin031​2
Posté le 22-06-2004 à 13:30:31  profilanswer
 

l'imbrication doit se faire ainsi :

Code :
  1. =SI(A1=1;"A";SI(A1=2;"B";SI(A1=3;"C";"Autre valeur" )))


 
ou en visual basic :

Code :
  1. ActiveCell.FormulaR1C1 = _
  2.         "=IF(RC[-1]=1,""A"",IF(RC[-1]=2,""B"",IF(RC[-1]=3,""C"",""Autre valeur"" )))"

n°773024
prog1001
Posté le 22-06-2004 à 17:48:36  profilanswer
 

Ex :
 

Code :
  1. MaVar = inputbox("blabla..." )
  3. If Mavar = "Toto" then
  4. msgbox "blablaToto"
  5. ElseIf Mavar = "Tata" then
  6. msgbox "blablatata"
  7. ElseIf Mavar = "Tutu" then
  8. msgbox "blablatutu"
  9. (...)
  10. Else
  11. msgbox "C pas un membre de la famille a toto"
  12. endif


 
ou mieux que les If imbriqué : Case
 

Code :
  1. MaVar = inputbox("blabla..." )
  2. Select Case MaVar
  3.     Case Toto
  4.     msgbox "blablaToto"
  6.     Case Tata
  7.     msgbox "blablatata"
  9.     Case Tutu
  10.     msgbox "blablatutu"
  12.     (...)
  13.     Case else
  14.     msgbox "C pas un membre de la famille a toto"
  15. End select


 
bon j'espère que ça t'aidera

n°774141
marcmaumon​t
Posté le 23-06-2004 à 12:21:31  profilanswer
 

salut, merci de vos reponse !
dsl je vais faire le bourrin un peu, mais je comprends pas:
 

Code :
  1. Sub Invoice()
  2. Dim i As Integer
  3. Dim k As Integer
  5. Dim rngCurrentCell As Range
  6. Dim rngNextCell As Range
  7. i = 1
  8. k = 2
  10.     Set rngCurrentCell = Worksheets("vik_1086797835" ).Range("A2" )
  11.    
  12.    
  13.     Do
  14.    
  15.     i = i + 1
  16.    
  17.    
  18.         Set rngNextCell = rngCurrentCell.Offset(1, 0)
  19.         If rngNextCell.Value = rngCurrentCell.Value Then
  20.         MsgBox k
  21.                 If Worksheets("vik_1086797835" ).Range("H" & i).Value = "1" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  22.        
  23.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  24.        
  25.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("F" & k)
  26.                
  27.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "2" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  28.        
  29.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  30.        
  31.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("G" & k)
  32.                
  33.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "3" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  34.        
  35.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  36.        
  37.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("H" & k)
  38.                
  39.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "4" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  40.        
  41.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  42.        
  43.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("I" & k)
  44.                
  45.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "5" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  46.        
  47.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  48.        
  49.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("J" & k)
  50.                
  51.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "6" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  52.        
  53.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  54.        
  55.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("K" & k)
  56.                
  57.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "7" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  58.        
  59.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  60.        
  61.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("L" & k)
  62.                
  63.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "8" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  64.        
  65.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  66.        
  67.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("M" & k)
  68.                
  69.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "9" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  70.        
  71.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  72.        
  73.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("N" & k)
  74.                
  75.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "10" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  76.        
  77.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  78.        
  79.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("O" & k)
  80.                
  81.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "11" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  82.        
  83.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  84.        
  85.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("P" & k)
  86.                
  87.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "12" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  88.        
  89.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  90.                        
  91.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("Q" & k)
  92.                
  93.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "1" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  94.        
  95.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  96.        
  97.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("R" & k)
  98.                
  99.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "2" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  100.        
  101.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  102.        
  103.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("S" & k)
  104.                
  105.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "3" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  106.        
  107.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  108.        
  109.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("T" & k)
  110.                
  111.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "4" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  112.        
  113.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  114.        
  115.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("U" & k)
  116.                
  117.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "5" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  118.        
  119.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  120.        
  121.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("V" & k)
  122.                
  123.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "6" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  124.        
  125.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  126.        
  127.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("W" & k)
  128.                
  129.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "7" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  130.        
  131.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  132.        
  133.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("X" & k)
  134.                
  135.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "8" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  136.        
  137.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  138.        
  139.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("Y" & k)
  140.                
  141.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "9" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  142.        
  143.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  144.        
  145.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("Z" & k)
  146.                
  147.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "10" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  148.        
  149.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  150.        
  151.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("AA" & k)
  152.                
  153.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "11" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  154.        
  155.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  156.        
  157.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("AB" & k)
  158.                
  159.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "12" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  160.        
  161.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  162.        
  163.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("AC" & k)
  164.        
  165.                 Set rngCurrentCell = rngNextCell
  166.                 End If
  167.                
  168.                
  169.    
  170.    
  171.     ElseIf rngNextCell.Value <> rngCurrentCell.Value Then
  172.     k = k + 1
  173.     MsgBox k
  174.    
  175.    
  176.                 If Worksheets("vik_1086797835" ).Range("H" & i).Value = "1" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  177.        
  178.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  179.        
  180.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("F" & k)
  181.                
  182.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "2" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  183.        
  184.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  185.        
  186.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("G" & k)
  187.                
  188.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "3" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  189.        
  190.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  191.        
  192.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("H" & k)
  193.                
  194.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "4" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  195.        
  196.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  197.        
  198.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("I" & k)
  199.                
  200.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "5" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  201.        
  202.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  203.        
  204.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("J" & k)
  205.                
  206.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "6" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  207.        
  208.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  209.        
  210.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("K" & k)
  211.                
  212.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "7" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  213.        
  214.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  215.        
  216.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("L" & k)
  217.                
  218.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "8" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  219.        
  220.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  221.        
  222.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("M" & k)
  223.                
  224.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "9" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  225.        
  226.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  227.        
  228.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("N" & k)
  229.                
  230.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "10" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  231.        
  232.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  233.        
  234.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("O" & k)
  235.                
  236.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "11" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  237.        
  238.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  239.        
  240.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("P" & k)
  241.                
  242.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "12" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2003" Then
  243.        
  244.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  245.        
  246.                
  247.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("Q" & k)
  248.                
  249.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "1" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  250.        
  251.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  252.        
  253.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("R" & k)
  254.                
  255.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "2" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  256.        
  257.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  258.        
  259.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("S" & k)
  260.                
  261.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "3" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  262.        
  263.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  264.        
  265.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("T" & k)
  266.                
  267.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "4" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  268.        
  269.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  270.        
  271.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("U" & k)
  272.                
  273.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "5" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  274.        
  275.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  276.        
  277.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("V" & k)
  278.                
  279.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "6" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  280.        
  281.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  282.        
  283.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("W" & k)
  284.                
  285.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "7" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  286.        
  287.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  288.        
  289.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("X" & k)
  290.                
  291.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "8" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  292.        
  293.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  294.        
  295.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("Y" & k)
  296.                
  297.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "9" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  298.        
  299.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  300.        
  301.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("Z" & k)
  302.                
  303.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "10" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  304.        
  305.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  306.        
  307.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("AA" & k)
  308.                
  309.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "11" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  310.        
  311.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  312.        
  313.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("AB" & k)
  314.                
  315.                 ElseIf Worksheets("vik_1086797835" ).Range("H" & i).Value = "12" And Worksheets("vik_1086797835" ).Range("J" & i).Value = "2004" Then
  316.        
  317.                 Worksheets("vik_1086797835" ).Range("K" & i).Copy
  318.        
  319.                 ActiveSheet.Paste Destination:=Worksheets("Final" ).Range("AC" & k)
  320.        
  321.                 Set rngCurrentCell = rngNextCell
  322.                 End If
  323.                
  324.                
  325.     End If
  326.     Loop Until i = 20
  327.    
  328. End Sub


 
 
 
g l'impression qu'il n'arrive pas a rentrer dans la 2e grosses partie, ce qui fait ke mon k ne s'increment pas...
C peut etre un pb d'ecriture...
mais je comprends plus la...

n°774470
marcmaumon​t
Posté le 23-06-2004 à 15:58:57  profilanswer
 

bon le pb d'avant est reglé...
Cependant, g une nvelle question (je vais peut etre finir par vous saouler)
 
Comment fait-on pour ajouter une ligne (row)?

Code :
  1. Set rngCurrentCell = Worksheets("Final" ).Range("B4" )
  2.     Do While Not IsEmpty(rngCurrentCell)
  3.         Set rngNextCell = rngCurrentCell.Offset(1, 0)
  4.         If rngNextCell.Value = rngCurrentCell.Value Then
  5.             rngCurrentCell.addRow
  6.         End If
  7.         Set rngCurrentCell = rngNextCell
  8.     Loop


 
Mais le addRow ne marche pas et je trouve pas d'equivalent...

n°774513
JihemAir
Je sais pas
Posté le 23-06-2004 à 16:23:46  profilanswer
 

Méthode Insert de l'objet "Row":
Worksheets("Feuil1" ).Rows(4).Insert
insère une ligne sous la ligne 4
(tiré brut de la doc. Excel 97).  


---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  kestion tres courte : if imbriqués

 

Sujets relatifs
[C] euh.... Probleme sur un truc pas tres dur (1er post + lisible)Evenement MouseMouve pas tres clair
[Oracle] Requête très lente. Que faire ?[Algo] Logiciel pour taper ses algo très proprement
Aide pour un petit programme très simple !pb avec les fichiers, mais tres urgent
[PHP] tri de tableaux imbriquésHELP !!!!! Creer un report avec VB TRES URGENT
[PHP] interrogation IMPA très lente?prob très simple - include en php
Plus de sujets relatifs à : kestion tres courte : if imbriqués

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.210 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR