Range dans une variable

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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
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
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
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
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
240
nabilexcel2007
N
J
  • Question Question
Microsoft 365 Userform comboboxes indexés
Réponses
8
Affichages
269
jp26200
J
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
169
cathodique
cathodique
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
954
tnion
T
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
348
patricktoulon
patricktoulon
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
612
Piment
P
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
572
kiki29
kiki29
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
699
TooFatBoy
TooFatBoy
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
448
sylvanu
sylvanu
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
Lu76Fer
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
607
Lu76Fer
Lu76Fer
patricktoulon
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
3 K
Usine à gaz
Usine à gaz
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
1 K
Webperegrino
W
thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
647
thunder23
thunder23
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
222
mikeduff
M
Electron24
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
350
Electron24
Electron24
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
671
Oneida
Oneida
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
599
fanch55
fanch55
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
Retour