comparaison de cellule excel

Version imprimable

Bonjour tous le monde (oups désolé :roll: )
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:

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

27/11/2006, 13h17
Invité

Juste comme ça, on dis déjà :salut:

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

Tu peux le faire comme ça :

Code:

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à ;)

27/11/2006, 16h55
noir_desir

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

Code:

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

Citation:

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:

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

alors que valcel est vide et debut à 0 il rentre dans la boucle :(
29/11/2006, 09h14
noir_desir

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

traite le cas ou la cellule est vide :
Code:

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

29/11/2006, 10h56
noir_desir

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