Discussion :

[JulieD33]

Bonjour le forum,

J'ai tenté de mettre en place une boucle For Each ... Next qui me permet de changer la valeur d'une de mes cellules. A l'intérieur de cette boucle je lui demande de copier le tableau de valeur et de le coller sous ce même tableau. Après vérification, la boucle fonctionne dans le sens où elle fait correctement varier la cellule en prenant les 4 valeurs demandées. En revanche, le copier/coller ne fonctionne pas très bien. Le tableau se colle sur lui-même au lieu de se mettre à la suite. Pouvez-vous me dire ce qui ne va pas dans mon code?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Copier_Clic()
Dim Lig As Long
Dim Table As Variant
 
 
Application.ScreenUpdating = False
 
For Each Table In Sheets("RDM").Range("AZ3:AZ6")
    Sheets("Interface").Range("D20") = Table
    Sheets("RDM").Range("A2:AX23").Copy
    Lig = 1 'première ligne à vérifier
    Do While Not IsEmpty(Sheets("RDM").Range("A" & Lig))
         Lig = Lig + 23
    Loop
    With Sheets("RDM").Range("A" & Lig)
          .PasteSpecial Paste:=xlPasteValues
          .PasteSpecial Paste:=xlPasteFormats
          .Application.CutCopyMode = False
    End With
 
Next Table
 
Application.ScreenUpdating = True
 
End Sub

Merci d'avance pour votre aide.

Julie

[Menhir]

For Each est fait pour scruter une collection.
Range n'est pas une collection, c'est une zone.
Pour scruter la collection des cellules contenues dans Range, il faut y ajouter Cells.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Table As Range
 
For Each Table In Sheets("RDM").Range("AZ3:AZ6").Cells

Que contient Sheets("RDM").Range("A1") ?

Juste après ton Loop, place un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print "Destination Ligne : "&Lig

Pour savoir ce que trouve ta boucle While.

Etant donné que la source et la destination sont dans la même feuille, tu pourrais faire la copy en une seule ligne.
Voir dans l'aide VBA intégrée à Excel, la syntaxe de la méthode Copy de l'objet Range.

[Didier Gonard]

Bonjour,

For Each est fait pour scruter une collection.
Range n'est pas une collection, c'est une zone.

Avec toutes mes excuses, mais je ne peux pas ne pas réagir...
Range est une collection ! et une cellule seule est une collection qui comporte un seul élément.

Donc Range ne comporte pas de "S" mais est une collection alors que Cells qui en comporte un n'est pas une collection, mais une propriété ... qui renvoie un objet Range et c'est cet objet collection renvoyé qu'on manipule au final

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub gogo()
Dim cell As Range
For Each cell In Range("B5:D10")
  cell.Value = "cf l'aide VBA"
Next cell
End Sub

D'autre part For Each est aussi destiné à parcourir les tableaux.

cordialement,

Didier

[JulieD33]

Bonjour et merci pour vos réponses,

Effectivement en ajoutant .cells cela ne change rien en revanche j'ai compris d'où venait mon erreur quand vous m'avez demandé ce qu'il y a en A1. Cette cellule n'est pas vide mais certaines cellules de mon tableau l'étaient. En rendant mes cellules non vide mon code fonctionne parfaitement mais par contre je conçois qu'il n'est peut-être pas optimisé je vais regarder plus attentivement dans l'aide pour voir si j'arrive à le condenser sinon je garderais celui là.

Merci encore pour votre aide.

Julie