Discussion :

[noir_desir]

Bonjour tous le monde (oups désolé )
Je voudrai comparer le contenant d'une cellule excel pour la mettre dans un IF
Je ne connais pas trop la façon de programmer au niveau des conditions (j'ai mis ce que je voudrai poru les if sans etre certain que qu se soit la bonne façon de faire d'ou le "contenu d'une cellule avec un nombre" )

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
Public debut As Integer 'permet de savoir ou commence le tableau des indicateurs
Public fin As Integer 'permet de savoir ou se fini le tableau des indicateurs
Public compteur As Integer 'permet de compter le nombre d'indicateur
 
'puis dans mon programme  
Public Sub AfficheTete()
compteur=1
debut = 0
fin 0
do 'boucle qui permet de déilimiter mon tableau 
 
if feuill1.Cells(compteur,21) = "contenu d'une cellule avec un nombre" & debut=0
debut =compteur
end if 
if  feuill1.cells(compteur,21) = empty & debut <>0
fin = compteur
end if 
compteur= compteur+1
 
while fin =0

[Invité]

Juste comme ça, on dis déjà

Et puis tu n'explique pas ou le problème dans ton code !?

[Invité]

Tu peux le faire comme ç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
Option Explicit
Public debut As Integer 'permet de savoir ou commence le tableau des indicateurs
Public fin As Integer 'permet de savoir ou se fini le tableau des indicateurs
Public compteur As Integer 'permet de compter le nombre d'indicateur
 
'puis dans mon programme
Public Sub AfficheTete()
Dim ValCel
compteur = 1
debut = 0
fin = 0
Do 'boucle qui permet de déilimiter mon tableau
 
' Sheets("NomFeuille")
ValCel = Sheets("feuil1").Cells(compteur, 1)
' Test si la valeur de la cellule peut-être numérique
If IsNumeric(ValCel) = True And debut = 0 Then
  debut = compteur
End If
' Test si la cellule est vide
If Len(ValCel) = 0 And debut <> 0 Then
  fin = compteur
End If
compteur = compteur + 1
Loop Until fin <> 0
End Sub

Voilà

[noir_desir]

Merci beaucoup, je vais essayer cela se soir.
J'ai un petit soucis quand le programme arrive sur

Code :

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

ValCel = Sheets("feuil1").Cells(compteur, 7)

Il me renvoie une erreur d'execution 9 : l'indice n'appartient pas à la sélection

J'ai remplacé sheets("feuil1") par feuil1 ca l'air de marché par contre quand j'arrive sur la condition :

Code :

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

If IsNumeric(ValCel) = True And debut = 0 Then

alors que valcel est vide et debut à 0 il rentre dans la boucle

[noir_desir]

JE vois pas trop ou se situe le problème, j'ai quelque essai mais je susi toujours bloqué sur cette ... boucle

[SfJ5Rpw8]

traite le cas ou la cellule est vide :

Code :

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

1
2
 
If Not IsEmpty(valCel) And IsNumeric(valCel) And debut = 0 Then....

[noir_desir]

C'est parfait ca marche
Merci beaucoup à tous le monde