XL 2013 Macro boucle

[dilank]

Bonjour,

j'ai un problème avec ma macro. voir en PJ. Attention car elle ne s'arrete pas, j'ai dû oublier quelque chose mais je ne vois pas...

Merci pour votre aide.

 

[thebenoit59]

Re : Macro boucle

Que souhaites-tu faire exactement ?

 

[AntoineM]

Re : Macro boucle

Bonjour dilank, le forum,

En attendant que des personnes plus compétentes que moi te répondent (je suis un novice), voici une question que je me pose en regardant ton code :

Sub test()
Dim I As Integer
With Feuil2
  For I = 3 To .Range("AD" & Rows.Count).End(xlUp).Row
    If .Range("AE" & I) = "" Then
      .Range("J3") = .Range("AE" & J)
     Sheets("FEUILLE").PrintPreview
    End If
  Next I
End With
End Sub

Tu mets : Range("J3") = .Range("AE" & J)

Mais à quoi correspond "J" ?
Car tu de définit pas la variable et tu ne dis pas à quoi elle correspond.

Bien à toi,

AntoineM

 

[dilank]

Re : Macro boucle

je souhaite que la macro imprime chaque feuille (ici 1 à 13) et quand AE ou AD n'a plus de chiffre que cela s'arrete.
Mais bien sûr il n'y a jamais le même nombre de feuille à imprimer. Les colonnes AD ou AE peuvent aller jusqu'à 300 par exemple et donc la macro imprime les 300 feuilles et s'arrête.

 

[dilank]

Re : Macro boucle

ah mince je me suis trompé dans le fichier à vous fournir

c'est bien : Range("J3") = .Range("AE" & I)

 

[thebenoit59]

Re : Macro boucle

Tu peux essayer le code suivant :

Sub impression()
Dim d As Object
Dim c As Variant
Dim a As Range

Set d = CreateObject("scripting.dictionary")
Set a = Range("ae1:ae" & [ae65000].End(xlUp).Row)
    
    For Each c In a
        If c <> "" Then d(c.Value) = c.Offset(, 1).Value
    Next c
    
    For Each c In d.keys
        [b13].Value = d(c)
            ActiveSheet.PrintPreview
    Next c
End Sub

 

[dilank]

Re : Macro boucle

hum je ne comprends pas trop ta macro ... je voulais faire par rapport a la liste en J3 du coup en changeant b13 par j3 cela intègre les donnée en AF à la place de AE.. et avec ton code je ne vois pas où je peux décaler...

 

[thebenoit59]

Re : Macro boucle

Je ne comprends pas vraiment ce que tu souhaites faire.
Avec le code proposé tu peux imprimer toutes les feuilles avec en B13 la valeur de AF.

 

[dilank]

Re : Macro boucle

ok c'est bon j'ai trouvé.. .je mets comme ceci
If c <> "" Then d(c.Value) = c.Offset(, 0).Value

 

[dilank]

Re : Macro boucle

Dim d As Object
Dim c As Variant
Dim a As Range

Set d = CreateObject("scripting.dictionary")
Set a = Range("ae1:ae" & [ae65000].End(xlUp).Row)

For Each c In a
If c <> "" Then d(c.Value) = c.Offset(, 0).Value
Next c

For Each c In d.keys
[j3].Value = d(c)
ActiveSheet.PrintPreview
Next c
End Sub


j'ai mis comme ceci, c'est avec un chiffre 1,2 ,3 etc... donc en J3 que ma feuille change et avec mes formules etc...
c'est bon thebenoit59.
Merci beaucoup de ton aide.

 

[thebenoit59]

Re : Macro boucle

Dim d As Object
Dim c As Variant
Dim a As Range

Set d = CreateObject("scripting.dictionary")
Set a = Range("ae1:ae" & [ae65000].End(xlUp).Row)

For Each c In a
If c <> "" Then d(c.Value) = ""
Next c

For Each c In d.keys
[j3].Value = c
ActiveSheet.PrintPreview
Next c
End Sub

Ca sera plus propre.

 

[dilank]

Re : Macro boucle

yes ;-)
tu m'as sauvé, j'allais arracher mes cheveux lol
merci.