kestion tres courte : if imbriqués

kestion tres courte : if imbriqués - VB/VBA/VBS - Programmation

Marsh Posté le 22-06-2004 à 11:35:39    

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
 

Reply

Marsh Posté le 22-06-2004 à 11:35:39   

Reply

Marsh Posté le 22-06-2004 à 12:18:34    

tu peux en imbriquer 7 au maximum dans excel

Reply

Marsh Posté le 22-06-2004 à 13:30:31    

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"" )))"

Reply

Marsh Posté le 22-06-2004 à 17:48:36    

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

Reply

Marsh Posté le 23-06-2004 à 12:21:31    

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...

Reply

Marsh Posté le 23-06-2004 à 15:58:57    

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...

Reply

Marsh Posté le 23-06-2004 à 16:23:46    

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 ?
Reply

Sujets relatifs:

Leave a Replay

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