Execel VBA : faire n boucles avec les macros

Résolu

hoquei44 Messages postés 16788 Date d'inscription Statut Membre Dernière intervention -
hoquei44 Messages postés 16788 Date d'inscription Statut Membre Dernière intervention - 17 juin 2017 à 08:28

Bonjour,

Je recherche la syntaxe qui me permettrai de simplifier le code suivant :

Sub itération()
'
' itération Macro
'
    Range("A8").Select
    ActiveCell.FormulaR1C1 = "I-001"
    Range("I8").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Range("I10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Range("A8").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "I-002"
    Range("I8").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Range("I11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Range("A8").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "I-003"
    Range("I8").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Range("I12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
End Sub

L'opération est, comme vous le constater, toujours la même.

Je recherche la syntaxe qui me permettrait d'utiliser la macro un nombre n fois (correspondant à un nombre de ligne déterminé par la case K1 avec une formule du type nb.val() ).

Dans le code, les seules différences sont :
- ActiveCell.FormulaR1C1 = "I-001" qui doit atteindre "I-n". Si les deux zéros posent problèmes, il est possible de les supprimer ;
- En parallèle que le dernier range("I10").Select s'incrémente de 1 à chaque tour commençant à la ligne "I10" jusqu'à atteindre la ligne "I(10+n-1)".

Je vous remercie d'avance pour l'aide que vous pourrez m'apporter.

Bonne journée

Afficher la suite

A voir également:

Execel VBA : faire n boucles avec les macros
Excel compter cellule couleur sans vba - Guide
Comment faire pôur que les cases execel soit visible en deroulant la page ? - Guide
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Mkdir vba ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

Bonjour

Je ne vois pas trop où tu veux en venir, mais essaies ceci

Const n = 10

Sub OK()
Dim k As Long, adfin As String
With ActiveSheet
  For k = 1 To n
    .Range("A8").Value = "I-" & Format(k, "000")
    adfin = .Cells(8, Columns.Count).End(xlToLeft).Address
    .Range("I8:" & adfin).Copy .Range("I" & 9 + k)
  Next k
End With
End Sub

Cdlmnt

hoquei44 Messages postés 16788 Date d'inscription Statut Membre Dernière intervention

Merci,

Je ne vois pas trop où tu veux en venir

Ca veut dire que je me suis mal exprimé.

Je cherche un moyen d'éviter les répétitions dans mon code. Le but est que je n'ai plus à rajouter un bloc supplémentaire à chaque fois que je rajoute une ligne.

Sub itération()
'
' itération Macro
'

'
    Range("A8").Select
    ActiveCell.FormulaR1C1 = "Objet-001"
    Range("I8").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Range("I10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Range("A8").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Objet-002"
    Range("I8").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Range("I11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Range("A8").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Objet-003"
    Range("I8").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Range("I12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Range("A8").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Objet-004"
    Range("I8").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Range("I13").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Range("A8").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Objet-005"
    Range("I8").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Range("I14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


End Sub

Le résultat attendu serait plutôt du type (même si je sais que je vais écrire ne veut rien dire) :

Sub itération()
'
' itération Macro
'

' La cellule K1 détermine le nombre de boucle
     Range("K1").Select 
     Const n = ActiveCell.FormulaR1C1

' Déclaration de variables 
     Dim k As Long

' Début de la boucle
For k = 1 To n

    Range("A8").Select
    ActiveCell.FormulaR1C1 = "Objet-" & Format(k, "000")
    Range("I8").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
' Je ne pense pas que l'on puisse mettre une variable directement dans un range :
    Range("I" & k + 9).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Next k
' Fin de la boucle

End Sub

Bonne journée

Réponse 2 / 3

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

Et ce n'est pas ce que fait le code proposé plus haut, mis à part la constante n qui devrait être déclarée comme variable et affectée du contenu de K1 lors de l'exécution ?
voir procedure OK
http://www.cjoint.com/c/GFqpalW64za

Cdlmnt

hoquei44 Messages postés 16788 Date d'inscription Statut Membre Dernière intervention

Je viens de voir le fichier. Je vais essayer de le tester car cela ressemble à ce que j'attends.

Merci ccm81

hoquei44 Messages postés 16788 Date d'inscription Statut Membre Dernière intervention > hoquei44 Messages postés 16788 Date d'inscription Statut Membre Dernière intervention

J'ai eu du mal à comprendre pourquoi cela ne marchait pas.

J'avais déjà une macro nommée OK dans mon classeur. Et c'est donc l'autre macro qui s'actionnait quand j'essayais de la lancer.
hum, hum, bon

Il y aurait juste un point qui ne fonctionne pas bien. Et je pense que cela expliquerait le fait que vous n'avez pas saisie l'intérêt de ce que je voulais faire.
Vous avez dû vous dire qu'il suffisait de faire un copier-coller puis de dérouler pour obtenir le résultat, mais :

Les cellules copiées ne doivent pas être collées directement mais un collées via "option collage / valeurs (v) - 123 ".
En effet j'ai mis des formules de calcul dans les cases copiés qui sont modifiées à chaque changement de la case A8.

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Je ne sais pas comment intégrer l'équivalent de cette portion dans votre code.

CB

Réponse 3 / 3

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

Sub OK()
Dim k As Long, adfin As String, n As Long
With ActiveSheet
  n = .Range("K1").Value
  For k = 1 To n
    .Range("A8").Value = "I-" & Format(k, "000")
    adfin = .Cells(8, Columns.Count).End(xlToLeft).Address
    .Range("I8:" & adfin).Copy
    .Range("I" & 9 + k).PasteSpecial Paste:=xlPasteValues
  Next k
End With
End Sub

Cdlmnt

hoquei44 Messages postés 16788 Date d'inscription Statut Membre Dernière intervention

Merci ! c'est bon pour moi

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires