Range dans une variable

M

MinosA'Tuin

XLDnaute Nouveau
Bonjour à tous,

J'ai un problème sur une macro que j'essaye de construire.
Quelques mots sur le contexte : j'ai un fichier où depuis une saisie dans un tableau, permet à l'utilisateur de générer plusieurs documents, qui sont ensuite archivé sur un serveur et/ou imprimé.

Dans ce tableau l'utilisateur peut reprendre plusieurs demandes pour un même client, la macro doit donc permettre de générer les documents pour chaque demande, la seule différence entre chaque demandes étant la colonne : c pour la 1ere demande, d pour la 2e...

j'ai donc utiliser une boucle avec un for, qui en fonction de i fait ressortir la bonne sélection de cellules mais je n'arrive à rien. j'ai l'impression que la variable ne s'alimente pas...
VB: 
Sub ImpressionV2()

Dim max_boucles As Integer
Dim souscription As Range

Application.ScreenUpdating = False

max_boucles = Range("C15")

For i = 1 To 5
    If i > max_boucles Then
        Exit For
    End If
    
        If i = 1 Then
            Set souscription = Range("C17:C25")
            Else
                If i = 2 Then
                Set souscription = Range("D17:D25")
                Else
                    If i = 3 Then
                    Set souscription = Range("E17:E25")

                    Else
                        If i = 4 Then
                        Set souscription = Range("F17:F25")
                        Else
                        Set souscription = Range("G17:G25")
                        End If
                    End If
                End If
          End If
         
         
            Worksheets("Sommaire").Select

            soucription.select
Selection.copy


            Sheets("Souscription").Select
            Range("B2").Select
            Selection.PasteSpecial Paste:=xlPasteValues

            If Worksheets("Souscription").Range("B5") < 60000 And Worksheets("Sommaire").Range("E13") = "Non" Then

            Worksheets("doc").PrintOut
            Worksheets("docclient").PrintOut

            Else

            Worksheets("docclient").PrintOut
            Worksheets("docboite").PrintOut
            Worksheets("docboite2").PrintOut

            End If

            Unload souscription
           
    
    Next

Worksheets("Sommaire").Activate

Application.ScreenUpdating = True

End Sub

Des idées d'où vient mon erreur?

D'avance merci pour votre aide, sur mon code ou vers un sujet qui répondrai à ma problématique.

Minos
 
Trier par date Trier par votes
fanfan38

fanfan38

XLDnaute Barbatruc
Bonjour et bienvenue
Un fichier est toujours apprécié...
Plutôt qu'un if i=...
je mettrai plutôt un select case i
case=1
Set souscription = Range("C17:C25")
case=2
Set souscription =
etc...
case else
Set souscription =
end select

Je pense que ton erreur vient de là:
Sheets("Souscription").Select
selection.copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues

A+ François
 
Vote positif 0 Vote négatif
M

MinosA'Tuin

XLDnaute Nouveau
Bonjour François et merci pour votre réponse :),

Pour le fichier j'ai bien conscience que c'est plus facile avec que sans, mais il s'agit d'un fichier pro qui demanderai beaucoup de temps pour l'anonymiser, mais si cela devient indispensable je ferais le nécessaire.

je connaissais pas case et son utilisation.

je viens de tester et j'ai maintenant une nouvelle erreur : Erreur de compilation Next sans For, alors que For est bien présent?

je remets mon code mis à jour.
VB: 
Sub HubmailV3()
Dim max_boucles As Integer
Dim souscription As Range



Application.ScreenUpdating = False





   
max_boucles = Range("C15")

    For i = 1 To 5
    If i > max_boucles Then
        Exit For
    End If
    
    Select Case i
    Case Is = 1
    Set souscription = Range("C17:C25")
    Case Is = 2
    Set souscription = Range("D17:D25")
    Case Is = 3
    Set souscription = Range("E17:E25")
    Case Is = 4
    Set souscription = Range("F17:F25")
    Case Is = 5
    Set souscription = Range("G17:G25")
         
            Worksheets("Sommaire").Select

            soucription.Select
            Selection.Copy


            Sheets("Souscription").Select
            Range("B2").Select
            Selection.PasteSpecial Paste:=xlPasteValues

            If Worksheets("Souscription").Range("B5") < 60000 And Worksheets("Sommaire").Range("E13") = "Non" Then

            Worksheets("doc1").PrintOut
            Worksheets("doc2").PrintOut

            Else

            Worksheets("doc3").PrintOut
            Worksheets("doc4").PrintOut
            Worksheets("doc5").PrintOut

            End If

            Unload souscription
           
    
    Next



Worksheets("Sommaire").Activate

Application.ScreenUpdating = True

End Sub
Minos
 
Vote positif 0 Vote négatif
M

MinosA'Tuin

XLDnaute Nouveau
J'ai rajouté le end select et modifié la macro pour que dans le select case soit sélectionné le range qui m'intéresse plutôt que stocker la valeur dans une variable qui soit ensuite sélectionné.

cela fonctionne.

merci pour votre aide et bonne journée.

ci dessous le code corrigé si cela peut servir à d'autres :
VB: 
Sub ()

Dim max_boucles As Integer

Application.ScreenUpdating = False
   
max_boucles = Range("C15")

    For i = 1 To 5
    If i > max_boucles Then
        Exit For
    End If
    
    Worksheets("Sommaire").Select
    
    Select Case i
    Case Is = 1
    Range("C17:C25").Select
    Case Is = 2
    Range("D17:D25").Select
    Case Is = 3
    Range("E17:E25").Select
    Case Is = 4
    Range("F17:F25").Select
    Case Is = 5
    Range("G17:G25").Select
    End Select

    Selection.Copy

    Sheets("Souscription").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues

        If Worksheets("Souscription").Range("B5") < 60000 And Worksheets("Sommaire").Range("E13") = "Non" Then
   
        Worksheets("doc1").PrintOut
        Worksheets("doc2").PrintOut
   
        Else
   
        Worksheets("doc3").PrintOut
        Worksheets("doc4").PrintOut
        Worksheets("doc5").PrintOut
   
        End If
   
        Worksheets("Sommaire").Select
    
    Next


Worksheets("Sommaire").Activate

Application.ScreenUpdating = True

End Sub
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum

@MinosA'Tuin
Pas sur d'avoir tout compris ;)
Mais écrit ainsi, est-ce que le résultat est le même ?
VB: 
Sub test()
Dim max_boucles As Integer
Application.ScreenUpdating = False
max_boucles = Range("C15")
For i = 1 To 5
  If i > max_boucles Then
  Exit For
  End If
  Range("C17:C25").Offset(, i - 1).Copy
  Sheets("Souscription").Range("B2").PasteSpecial xlPasteValues
  If Worksheets("Souscription").Range("B5") < 60000 And Worksheets("Sommaire").Range("E13") = "Non" Then
  Worksheets("doc1").PrintOut
  Worksheets("doc2").PrintOut
  Else
  Worksheets("doc3").PrintOut
  Worksheets("doc4").PrintOut
  Worksheets("doc5").PrintOut
  End If
Next
End Sub
 
Vote positif 0 Vote négatif

Discussions similaires

C
  • Question
Microsoft 365 erreur d'execussion 6 - depassement de capacite
Réponses
2
Affichages
135
CARO13
C
P
  • Question
Microsoft 365 Priorité d'affichage lien hypertexte
Réponses
0
Affichages
152
PeteToulon
P
J
  • Question
Microsoft 365 Ajouter une colonne
Réponses
0
Affichages
365
Juliopapadopulos
J
Jojo973
  • Question
Microsoft 365 Trouver et attribuer une plage de cellule en fonction de la cellule active
Réponses
6
Affichages
344
Jojo973
Jojo973
Nicolas JACQUIN
  • Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
837
Nicolas JACQUIN
Nicolas JACQUIN
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
290
job75
job75
U
  • Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
278
Phil69970
Phil69970
Amigo
  • Question
XL 2019 Détecter les valeurs suivant les tableaux sélectionnés et, si elles sont non-existantes, les copier
2 3
Réponses
33
Affichages
881
Amigo
Amigo
Cédric06400
  • Résolu(e)
Microsoft 365 Déplacement Shape
Réponses
2
Affichages
148
Cédric06400
Cédric06400
P
  • Résolu(e)
Microsoft 365 Private Sub Worksheet_Change(ByVal Target As Range)
Réponses
8
Affichages
593
pat66
P

Membres actuellement en ligne

4 membres et 58 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 450
Messages
2 109 731
Membres
110 553
dernier inscrit
loic55