XL 2013 Macro boucle

T

thebenoit59

XLDnaute Accro

• 5 Avril 2016

• #2

Re : Macro boucle

Que souhaites-tu faire exactement ?

 

Vote positif 0 Vote négatif

A

AntoineM

XLDnaute Junior

• 5 Avril 2016

• #3

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 :

VB:

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

 

Vote positif 0 Vote négatif

D

dilank

XLDnaute Junior

• 5 Avril 2016

• #4

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.

 

Vote positif 0 Vote négatif

D

dilank

XLDnaute Junior

• 5 Avril 2016

• #5

Re : Macro boucle

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

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

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 5 Avril 2016

• #6

Re : Macro boucle

Tu peux essayer le code suivant :

Code:

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

 

Vote positif 0 Vote négatif

D

dilank

XLDnaute Junior

• 5 Avril 2016

• #7

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

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 5 Avril 2016

• #8

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.

 

Vote positif 0 Vote négatif

D

dilank

XLDnaute Junior

• 5 Avril 2016

• #9

Re : Macro boucle

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

 

Vote positif 0 Vote négatif

D

dilank

XLDnaute Junior

• 5 Avril 2016

• #10

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.

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 5 Avril 2016

• #11

Re : Macro boucle

Code:

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.

 

Vote positif 0 Vote négatif

D

dilank

XLDnaute Junior

• 5 Avril 2016

• #12

Re : Macro boucle

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

 

Vote positif 0 Vote négatif