Crée une boucle sur VBA

Résolu

Cailloux50 Messages postés 88 Statut Membre -
fabien25000 Messages postés 697 Statut Membre - 23 oct. 2018 à 13:55

Bonjour,

je voudrais crée un boucle pour ce code puisque que je vais avoir 12 If sinon ou je rajoute pour chaque :
"+GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",1,""Années"",2018)"

La macros:

Sub Macro1()
'
' Macro1 Macro
'
If Range("B59") = 1 Then
   
        Range("B60").Select
        ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",1,""Années"",2018)"
        
    End If
If Range("B59") = 2 Then
   
        Range("B60").Select
        ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",1,""Années"",2018)+GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",<bold>2</bold>,""Années"",2018)"
    End If
End Sub

Nombre en gras augmente de 1 a chaque boucle

Merci d'avance

Afficher la suite

2 réponses

Réponse 1 / 2
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320

Bonjour
plutôt que d'utiliser 12 IF, utilise SELECT CASE et tu reportes le nombre dans ton deuxième get pivot au besoin en créant une variable pour le nombre.
style

Tu as des explications sur le select case dans l'aide en ligne de VBA
0
1. Cailloux50 Messages postés 88 Statut Membre
  
  Bonjour,
  merci du petit conseil déjà je gagne quelques lignes.
  
  Mais le souci c'est que si le chiffre est 12 j'ai donc 12 fois ce code : GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",1,""Années"",2018
  
  Avec le numéro en gras qui va de 1 à 12 et ça je ne sais pas faire..
  
  Par exemple ça donnerait ça :
  
  "=GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",1,""Années"",2018+GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",2,""Années"",2018+GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",3,""Années"",2018+GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",4,""Années"",2018+GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",5,""Années"",2018+GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",6,""Années"",2018+GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",7,""Années"",2018+GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",8,""Années"",2018+GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",9,""Années"",2018+GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",10,""Années"",2018+GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",11,""Années"",2018+GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",12,""Années"",2018)"
  
  0
2. fabien25000 Messages postés 697 Statut Membre 59 > Cailloux50 Messages postés 88 Statut Membre
  
  Bonjour à vous 2,
  tu pourrais boucler sur un for :
  Dim tmpFormule as string if Range("B59").value> 1 then tmpFormule = "=GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",1,""Années"",2018 For i = 2 to Range("B59").value tmpFormule = tmpFormule & "+GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date""," & i & ",""Années"",2018" If i = Range("B59").value then tmpFormule =tmpFormule & ")" Next i else tmpFormule = "=GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",1,""Années"",2018)" end if Range("B60").FormulaR1C1 =tmpFormule
  
  je n'ai pas testé mais logiquement ca doit être bon
  
  0
3. Cailloux50 Messages postés 88 Statut Membre > fabien25000 Messages postés 697 Statut Membre
  
  Merci beaucoup,
  
  J'ai un tout petit peu modifier le code,
  
  Sub Macro2()
  
  Dim tmpFormule As String
  
  If Range("B59").Value > 1 Then
  tmpFormule = "=GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",3,""Années"",2018"
  For i = 4 To Range("B59").Value
  
  tmpFormule = tmpFormule & "+GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date""," & i & ",""Années"",2018"
  If i = Range("B59").Value Then tmpFormule = tmpFormule & ")"
  Next i
  Else
  tmpFormule = "=GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",3,""Années"",2018)"
  End If
  Range("B60").FormulaR1C1 = tmpFormule
  End Sub
  
  Mais juste apres le end if ça mets une erreur 1004
  
  0
4. fabien25000 Messages postés 697 Statut Membre 59
  
  Sub Macro2() Dim tmpFormule As String If Range("B59").Value > 1 Then tmpFormule = "=GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",3,""Années"",2018)" For i = 4 To Range("B59").Value tmpFormule = tmpFormule & "+GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date""," & i & ",""Années"",2018)" ' If i = Range("B59").Value Then tmpFormule = tmpFormule & ")" Next i Else tmpFormule = "=GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",3,""Années"",2018)" End If Range("B60").FormulaR1C1 = tmpFormule End Sub
  
  il manquait une parenthèse désolé
  
  0
5. Cailloux50 Messages postés 88 Statut Membre
  
  tjrs pareil je comprend pas parce que tous parait bon..
  
  0
Réponse 2 / 2
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320
essaies:
```
xxx=range("B9").value
 
+GETPIVOTDATA(""Production plant"",R44C1,""Production plant"",""1101"",""Production Date"",XXX,""Années"",2018)"
    End If
End Sub
```
Quand tu lances ta macro , tu fais ton getpivot uniquement pour la valeur de B9 ou cette valeur passe de 1 à 12 automatiquement ?

mais fais voir ton code en entier ou, mieux, le classeur et explique ce que tu voudrais faire
0

Crée une boucle sur VBA

2 réponses

Discussions similaires

Newsletters