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
Partager