BoucleVBA Résolu

Question

Bonjour,

J'ai utilisé l'enregistreur de macro pour répéter cette action ci-dessous mais ca marche pas et je vois pas pourquoi.
 1ère étape: je veux faire un copier coller
2ème: j'ai utilisé Edition spéciale pour rajouter un à chaque fois

j'ai le message d'erreur suivant :
Erreur de compilation:
Référence de variable de controle incorrect^dans Next
 

Sub TimeSeries()

For i = 4 To 1202 Step 2

    For j = 20 To 619 Step 1

    Range("A2:B3").Select
    Selection.Copy
    Range("Ai").Select
    ActiveSheet.Paste
   
    Range("Ai:Bi+1").Select
    Selection.Replace What:="j", Replacement:="j+1", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
   Next i
   
Next j
    
End Sub


je l'ai fais la première fois avec l'enregistreur de macro on a:


Sub Macro2()
  Range("A2:B3").Select
    Selection.Copy
    Range("A4").Select
    ActiveSheet.Paste
    
    
    Selection.Replace What:="20", Replacement:="21", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Et ensuite je voulais faire une boucle pour j variant de 20 à 619 et i de 4 à 1202
mais je ne vois pas mon erreur

Merci d'avance pour votre aide


Configuration: Windows XP / Internet Explorer 7.0

ccm81 · Answer

bonsoir,
a première vu tes boucles sont mal controlées, la boucle i est declaree en 1°,  donc,  next j doit etre avant next i
il y a peut etre d'autres errreurs
bonne suite

Iama · Answer

Bonsoir cindy001

ccm81 aq réglé ton 1er probléme.

Le suivant je pense que Range("Ai") ne va pas être compris,
si c'est le cas essaie cela : 

b = "A" & i
Range(B).Select

Iama

cindy001 · Answer

Merci pour vos rapides réponses.

J'ai pase xcel chez moi sur mon pc.

Jpourrai essayer ca demain à la fac.

En tout cas merci beaucoup de me lire.

ccm81 · Answer

re

Iama a réglé le 2° pb, tu as bien sûr la même chose avec 

Range("Ai:Bi+1").Select 

qui doit etre remplacé par 

Range("A" & i & ":B" & (i+1)).Select 

Quelques précisions
La reference à une cellule "A3" par exemple est du type texte (chaine de caracteres) or lorsque tu écris "Ai" , i est vu comme une chaine (la lettre i ) et non une valeur numérique (le numéro i de la ligne) . 
Il faut donc 
1. transformer la valeur de la variable entière i en chaine
2. concaténer le résultat à la chaine "A" 
Ce qui va donner au niveau du code "A" & i (quand i = 3, ça fera "A3")
RQ. L'étape 1 est inutile en VBA, quand VBA rencontre & i, il "comprend" que i doit etre transformé en chaine.

RQ. Même opération pour la construction d'une plage "variable"

Une question
Je ne vois pas très bien où tu veux en venir avec cette partie de code

Range("Ai:Bi+1").Select 
Selection.Replace What:="j", Replacement:="j+1", LookAt:=xlPart, _ 
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
ReplaceFormat:=False 

bonne suite

cindy001 · Answer

Tu as raison lermite 222 c peut etre plus simple avec le fichier:

http://www.cijoint.fr/cjlink.php?file=cj201101/cijZPkHBw9.xls

Donc voila c cette opération que je veux répéter en A2:B4 on utilise les lignes 20 des autres feuilles et je veux faire une boucle pour aller jusqu'à 619
donc faire un copier coller (non pas en bvaleur car je veux garder les formules) de A2:B4  2 lignes plus bas à chaque fois 
j'avou que c'est du charabia comme ca mais avec le fichier  cplus facile à comprendre
avec "A"&i à la place de Ai ca ne marche pas non plus on me met errur de syntaxe c'est peut etre plus facile avec cells jvais essayer

ccm81 · Answer

re  

si, "A" & i fonctionne  
pour que tu y voies plus clair, j'ai séparé le code en deux parties  
- la partie recopie qui fonctionne bien (tu mettras à jour les valeurs de imax et jmax)  
- la partie qui s'occupe de la modification des cellules, mais là, je ne comprends toujours pas ce que tu veux faire.  

il faudrait que tu me dises ce que tu attends exactement (valeur? formule? laquelle)dans chaque cellule de la plage  A4:B5 (après recopie) 

Sub TimeSeries()  
'  
' Macro1 Macro  
' Macro enregistrée le 03/01/2011 par IXIS  
'  
Const imax = 22  
Const jmax = 40  

For i = 4 To imax Step 2  
    Range("A2:B3").Select  
    Selection.Copy  
    Range("A" & i).Select  
    ActiveSheet.Paste  
Next i  

For i = 4 To imax Step 2  
  For j = 20 To jmax Step 1  
    Range("A" & i & ":B" & i + 1).Select  
    Selection.Replace What:="j", Replacement:="j+1", LookAt:=xlPart, _  
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _  
    ReplaceFormat:=False  
  Next j  
Next i  

End Sub

RQ. ne vaudrait il pas mieux placer un bouton dans la feuille pour executer ta macro? 

bon courage

ccm81 · Answer

re
ça murit !!!
si j'ai compris, tu veux simplement recopier les trois formules de la plage A2:B3 et changer dans ces formules la référence à la ligne 20 par 21, puis 22 etc..
pourquoi ne pas faire plus simple
voila une macro qui devrait (peut etre) convenir

Private Sub CommandButton2_Click()
Const imax = 22
Dim lig As Long
Dim f1 As String, f2 As String, f3 As String

lig = 21
For i = 4 To imax Step 2
  f1 = "=product('Coef Mul Titre Large Ret1m'!$DC$" & lig & ":$FJ$" & lig & ")-1"
  f2 = "=Feuil1!$DB$" & lig
  f3 = "=product('Coef Mul Titre Large Ret1m'!$AU$" & lig & ":$DC$" & lig & ")-1"
  Range("A" & i).Formula = f1
  Range("B" & i).Formula = f2
  Range("A" & (i + 1)).Formula = f3
  lig = lig + 1
Next i

End Sub

cindy001 · Answer

dans la cellule A2 on a cette formule(dans le fichier que j'ai mis sur cijoint.fr, adresse ci-dessus):=+PRODUIT('Coef Mul Titre Large Ret1m'!$DC$20:$FJ$20)-1
dans la cellule B2:=Feuil1!$DB$20
dans A3:=+PRODUIT('Coef Mul Titre Large Ret1m'!$AU$20:$DC$20)-1
et dans B3:=Feuil1!$AT$20

dans A4 je veux:=+PRODUIT('Coef Mul Titre Large Ret1m'!$DC$21:$FJ$21)-1 donc exactement la meme formule que dans A2 avec 21 au lieu de 20
dans B4 je veux:=Feuil1!$DB$21 idem que B2 avec 21 au lieu de 20
dans A5 je veux:=+PRODUIT('Coef Mul Titre Large Ret1m'!$AU$21:$DC$21)-1 idem que A3 avec 21 au lieu de 20
dans la formule
et dans B5:=Feuil1!$AT$21 idem que B3 avec 21 à la place de 20

puis je veux faire pareil avec 22 (dans les formules) au lieu de 20 dans A6 B6 A7 B7 et ainsi de suite jusqu'à 619(c'est ca le j que j'ai dans ma macro, 619 car dans Feuill1 on a nos chifrres de la ligne 20 à 619, et c'est ces chiffres qu'on utilise dans les formules.) au lieu de 20 dans les formules

cindy001 · Answer

Cette macro fait exactement ce que je voulais.

Merci beaucoup, c gentil dmavoir aider.

BoucleVBA

9 réponses

Newsletters