Discussion :

[Progeric]

Bonjour,

Dans ma cellule G2 il y a cette formule : ='Tab Article'!Z2
et pour chaque ligne de 2 à 100 la même formule incrémenté de 1 pour que les cellules de G2 à G100 soit les mêmes que celles de Z2 à Z100 de la feuille Tab Article

Mon problème, dont je ne trouve pas de solution sur internet est que je n'arrive pas à trouver dans cette plage la première et la dernier cellule supérieure à zéro

en effet que je passe par cells.find ou Set c = .Find(recherche, LookIn:=xlValues) If Not c Is Nothing Then prem = c.Address
les valeurs qu'il me trouve sont 2 et 100
Je pense que c'est parce qu'il ne regarde pas le résultat de la formule mais qu'il voit la formule donc la cellule n'est pas vide ou est supérieure à zéro

Le but est de trouver le numéro de ligne de la première et la dernière cellule dont le résultat est supérieur à zéro.
Exemple :
1
2
3 1
4
5 3
6
7
le résultat pour le numéro de ligne de la première cellule est 3 et pour la dernière est 5

Le but est de limiter le nombre de passage de ma boucle.

voici mon code sans la sortie de boucle
Maintenant s'il y a moins de faire sans boucle je suis preneur également

Merci pour votre aide

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
 
For y = 7 To 31 Step 6
' il faudrait mettre ici le code pour donner le début et la fin des valeurs de x
    For x = 2 To 100
        If Cells(x, y).Value2 = 0 Then GoTo suivant
        If Int(Cells(x, y).Value2) = Cells(x, y).Value2 Then
            Cells(x, y).Select
            With Selection
                .HorizontalAlignment = xlRight
                .IndentLevel = 3
            End With
            Selection.NumberFormat = "General"
        Else
            Cells(x, y).Select
            With Selection
                .HorizontalAlignment = xlRight
                .IndentLevel = 1
            End With
            Selection.NumberFormat = "0.00"
        End If
suivant:
    Next x
Next y

[Franc]

Salut, teste ça:

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
26
27
28
Sub test()
 
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim firstCell As Range
Dim lastCell As Range
 
Set ws = ThisWorkbook.Sheets("Feuil1") ' Remplacez Feuil1 par le nom de votre feuille
Set rng = ws.Range("G2:G100") ' Plage de cellules à vérifier
 
For Each cell In rng
    If IsNumeric(cell.Value) And cell.Value > 0 Then
        If firstCell Is Nothing Then
            Set firstCell = cell
        Else
            Set lastCell = cell
        End If
    End If
Next cell
 
If Not firstCell Is Nothing And Not lastCell Is Nothing Then ' Si des cellules numériques ont été trouvées
    MsgBox "Première cellule : " & firstCell.Row
    MsgBox "Dernière cellule : " & lastCell.Row
End If
 
 
End Sub

[Progeric]

Merci cela fonctionne