Discussion :

[HABILER]

Bonjour la Communauté,

Je cherche à faire des calculs dans plusieurs plages de données d'un sheet.
Les plages de données où le calcule s'effectue commencent toutes par "Ech_"
Pour le moment je cale sur le code suivant mais ne sais pas comment comment parcourir les plages et effectuer le clacul.

Quelqu'un pourrait-il m'aider

Merci d'avance

Habiler

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
Sub Essais()
 
    Dim ws As Worksheet
    Dim c As Range
    Dim Rng As Range
    Set ws = ActiveWorkbook.Sheets("BaremesIndexed")
    ws.Select
    Set Rng = Range("Ech_22a")
 
   For Each c In Rng
 
    If Application.WorksheetFunction.IsNumber(c.Value) Then c.Value = 9
  Next c
 
End Sub

[mattgui]

Salut !

Tout dépend si l'incrémentation de tes "Ech_" est logique ou non.

Exemple, avec de l'incrément en +1 :

Code :

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

1
2
3
4
5
6
7
8
9
 
 
X = ... 'nombre de plages
 
for i = 1 to X
    Set Rng = Range("Ech_" & i & "a")
 
' Ton code de calculs ...
Next

A+

Matt

[HABILER]

Bonjour,

Malheureusement là est le problème.

"Ech_" est suivi d'un nombre à 2 chiffres (10 à 29) et de max deux lettres.;

Merci d'avance

Habiler

[anasecu]

Bonjour,

Malheureusement là est le problème."Ech_" est suivi d'un nombre à 2 chiffres (10 à 29) et de max deux lettres.;

Dans ce cas il faut utiliser les noms de plage comme ceci par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub test()
Dim ech As Names
Dim nms As Name
Dim c As Range
Dim Rng As Range
    For Each nms In ThisWorkbook.Names
        If Left(nms.Name, 3) = "ech" Then
            Set Rng = Range(nms.RefersTo)
             For Each c In Rng
                If Application.WorksheetFunction.IsNumber(c.Value) Then c.Value = 9
            Next c
        End If
    Next nms
End Sub