Mon "For each Cell" s'arrete...

[Capsule]

Bonjour,
J'ai un problème de boucle "For each Cell in Plage" qui ne me prend que les cellules de la 1ere colonne...et pas les autres...
Dans ma Plage, la colonne 2 est vide, mais la 3 est pleine.

Voici le code :

Sub CRHEBDO()

Dim r As Integer
Dim c As Integer
Dim i As Integer
Dim d As Integer
Dim s As Integer
Dim Cell As Range
Dim Plage As Range


Set Plage = ActiveSheet.UsedRange.Rows("2:" & ActiveSheet.UsedRange.Rows.Count)
 
 For Each Cell In Plage
    If Not IsEmpty(Cell) Then
            r = Cell.Row
            c = Cell.Column
            s = ActiveSheet.Name
            d = Cells(1, c + 1).Value
            
            'collage de la données
            i = Sheets("GLOBAL").UsedRange.Rows.Count + 1
            Sheets("GLOBAL").Range("A" & i).Value = s
            Sheets("GLOBAL").Range("B" & i).Value = d
            Sheets("GLOBAL").Range("C" & i).Value = Cell.Value
            
          End If
  Next Cell
  
End Sub

merci

 

[Paritec]

Re : Mon "For each Cell" s'arrete...

Bonsoir Capsule,
Tu pourrais nous expliquer a quoi sert cette ligne STP ?
a+
papou

Set Plage = ActiveSheet.UsedRange.Rows("2:" & ActiveSheet.UsedRange.Rows.Count)

 

[Capsule]

Re : Mon "For each Cell" s'arrete...

elle sert a exclure la ligne d'entêtes de mon tableau

 

[Compte Supprimé 979]

Re : Mon "For each Cell" s'arrete...

Salut Capsule,

Si je peux me permettre ... que ton code semble compliqué (utilisation de variables objet)
pour copier / coller des valeurs

Mais nous ne connaissons pas les tenants / aboutissants

A+

 

[Capsule]

Re : Mon "For each Cell" s'arrete...

pas de réponses ?

 

[Pierrot93]

Re : Mon "For each Cell" s'arrete...

Bonjour,

pas de réponses ?

tu en as déjà eut, non... regarde peut être ceci...

Option Explicit
Sub test()
Dim c As Range, p As Range
Set p = Sheets("Feuil1").UsedRange
For Each c In p.Offset(1).Resize(p.Rows.Count - 1)
    'ton code
Next c
End Sub

bonne journée
@+

 

[Capsule]

Re : Mon "For each Cell" s'arrete...

OK ça fonctionne !

je post mon code ici :

Option Explicit
Sub CRHEBDO()

Dim r As Integer
Dim c As Integer
Dim i As Integer
Dim d As Integer
Dim s As Integer
Dim Cell As Range
Dim Plage As Range


Set Plage = ActiveSheet.UsedRange
 
 For Each Cell In Plage.Offset(1).Resize(Plage.Rows.Count - 1)
    If Not IsEmpty(Cell) Then
            c = Cell.Column
            s = ActiveSheet.Name
            d = Cells(1, c + 1).Value
            
            'collage de la donnée
            i = Sheets("GLOBAL").UsedRange.Rows.Count + 1
            Sheets("GLOBAL").Range("A" & i).Value = s
            Sheets("GLOBAL").Range("B" & i).Value = d
            Sheets("GLOBAL").Range("C" & i).Value = Cell.Value
            
          End If
  Next Cell
  
End Sub

Pour mon info, qu'est-ce qui n'alait pas dans mon code. Je ne saisi pas la différence entre :

Set Plage = ActiveSheet.UsedRange
 
 For Each Cell In Plage.Offset(1).Resize(Plage.Rows.Count - 1)

et

Set Plage = ActiveSheet.UsedRange.Rows("2:" & ActiveSheet.UsedRange.Rows.Count)
 
 For Each Cell In Plage

Merci

 

[Dranreb]

Re : Mon "For each Cell" s'arrete...

Bonjour.
Il serait indiqué de toute façon de déclarer r, c et i As Long.
À défaut d'être la bonne, peut être hélas, ça ferait au moins une cause de plantage possible en moins ultérieurement.
Cordialement.

 

[Capsule]

Re : Mon "For each Cell" s'arrete...

Long ? pourquoi, ce sont des numéros de colonne et de ligne.

 

[Dranreb]

Re : Mon "For each Cell" s'arrete...

Surtout parce que les numéros de lignes peuvent dépasser 32767.

 

[Capsule]

Re : Mon "For each Cell" s'arrete...

Ah, je ne savais pas qu'on était limité en "Integer", merci de l'info
A+