Discussion :

[L'Albatros]

Bonjour,

Je coince sur un détail de la boucle de type For Each:
Comment fait-on pour allouer à Range une plage "dynamique" ?
Dans mon cas le nombre de colonnes est fixe, le nombre de lignes est variable...

Code :

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

1
2
3
4
5
6
7
8
'Dim Plage As Range, Cellule As Range
 
    Set Plage = ActiveSheet.Range("D1:F10")  'Selection.CurrentRegion.Select End(xlDown).End(xlToRight)...j'ai essayé tout l'arsenal
    For Each Cellule In Plage
        If Cellule Is Nothing Or (Cellule.Value = "") Then
            Cellule.Value = "0"
        End If
    Next Cellule

Merci d'avance de votre aide

[wilfried_42]

salut

en regardant tes lignes, il semblerait que certaines cellule soient vides, donc en allant vers le bas ca ne peut pas fonctionner, il faut remonter

Code :

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

Range("A65536").end(xlup)

[L'Albatros]

Je viens d'essayer:

Code :

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

1
2
3
4
5
6
7
8
9
'Dim Plage As Range, Cellule As Range
 
    Set Plage = ActiveSheet.Range("D65536").End(xlUp)
 
    For Each Cellule In Plage
        If Cellule Is Nothing Or (Cellule.Value = "") Then
            Cellule.Value = "0"
        End If
    Next Cellule

Mes cellules de la colonne D restent vides...

Pour info, j'avais coder ceci qui fonctionnait très bien mais qui n'est pas du tout optimisé:

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
'For Compteur_boucle = 1 To Range("A2").End(xlDown).Row
    If Range("F" & Compteur_boucle) = "" Then
        Range("F" & Compteur_boucle) = "Cellule Vide"
    End If
    If Range("G" & Compteur_boucle) = "" Then
        Range("G" & Compteur_boucle) = "Cellule Vide"
    End If
    If Range("J" & Compteur_boucle) = "" Then
        Range("J" & Compteur_boucle) = "Cellule Vide"
    End If
    If Range("K" & Compteur_boucle) = "" Then
        Range("K" & Compteur_boucle) = "Cellule Vide"
    End If
    If Range("L" & Compteur_boucle) = "" Then
        Range("L" & Compteur_boucle) = "Cellule Vide"
    End If
 
Next Compteur_boucle

En plus de faire ramer la bécane, c'est vraiment sale comme code.

[wilfried_42]

re:

regarde ta ligne, elle ne fait référence qu'à une seule cellule

Code :

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

Set Plage = ActiveSheet.Range("D65536").End(xlUp)

il faut définir une plage :

Code :

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

set plage = range("D1:D" & range("d65536").end(xlup).row)

[L'Albatros]

Ok. Adapté, cela nous donne ceci:

Code :

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

1
2
3
4
5
6
7
8
9
    Set Plage = ActiveSheet.Range("D1:AC" & Range("d65536").End(xlUp).Row)
 
    For Each Cellule In Plage
        If Cellule Is Nothing Or (Cellule.Value = "") Then
            Cellule.Value = "0"
            Else
            'on saute à la cellule suivante
        End If
    Next Cellule

Ca fonctionne, mais je voudrais savoir si l'on peut optimiser l'algo:
En effet je travaille sur un tableau de 5000 lignes et 25 colonnes...

Y aurait-il un moyen pour diminuer le temps de calcul ?

merci d'avance

[mercatog]

Adapte le nom de la feuille

Code :

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

Worksheets("Feuil1").UsedRange.Replace "", 0

[nchal]

il suffit d'utiliser la méthode UsedRange.

Code :

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

1
2
3
4
5
6
7
Set Plage = ActiveSheet.UsedRange  
    For Each Cellule In Plage
        If Cellule Is Nothing Or (Cellule.Value = "") Then
            Cellule.Value = "0"
        End If
    Next Cellule

Après, je te laisse te documenter sur la méthode UsedRange.

edit: j'ai une heure de retard sur mercatog

[casefayere]

Bonsoir,
je préfère de beaucoup, la méthode à mercatog, on se passe de boucle
en la modifiant un peu

Code :

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

1
2
3
4
With ActiveSheet
  Set PLAGE = .Range("D1:AC" & Range("D" & .Rows.Count).End(xlUp).Row)
  PLAGE.Replace "", 0
End With

[L'Albatros]

Merci à tous !