Problème sur un test de valeur de cellule

Bonjour,

Dans une macro assez complexe, je souhaites faire un test sur la valeur de la cellule mais visiblement cela ne marche pas. Si un crack peu m'aider car la je ne vois plus ! voici ce que je veux faire :
Dans mon fichier excel, j'ai deux colonnes. Je veux tester qu'il y ai deux valeurs par jour et si ce n'est pas le cas, d'insérer une ligne blanche (exemple insérer une ligne vide entre le 03 et le 04 avril)
Jour Heure de Logon
02-avr-07 07:04:39
02-avr-07 07:32:23
03-avr-07 07:53:11
04-avr-07 07:51:37


Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

j = 2 While Not Cells(j, 2) = ""   Select Case Cells(j, 2).Value Case Is = Cells(j + 1, 2).Value j = j + 2 Case Is <> Cells(j + 1, 2).Value Rows(j + 2 & ":" & j + 2).Select Selection.Insert Shift:=xlDown End Select j = j + 1   Wend

---

Merci de votre aide

Bonjour

Quand tu es dans le cas de l'égalité tu te déplaces de 2 cellules en dessous OK pour avoir une date suivante, par contre aprés ton select tu te redéplaces d'une cellule, en fait tu t'es déplacé de 3.

Quand tu n'as pas d'égalité, tu inséres une cellule, mais celle-ci tu dois l'insérer à j+1 et non j+2. Et ensuite j+1 avant le select.

A mon avis cela devrait aller mieux, je n'ai pas testé

Starec

merci pour ta réponse. Je dois vraiment avoir un problème en ce moment car j'ai essayé ce que tu m'as suggéré mais cela ne marche pas. On dirait qu'il ne reconnait pas la première condition (égalité) et il passe automatiquement à l'inégalité. As-tu un idée du pourquoi ça marche pôoooooo !

Re

C'est normale, car dans ton champ tu as l'heure, hors l'heure change à chaque fois, donc tu n'as jamais l'égalité essaye

Code:

---

1 2 3

Select Case format(Cells(j, 2).Value,"dd/mm/yyyy") Case format(Cells(j + 1, 2).Value,"dd/mm/yyyy")

---

et le même principe pour l'autre case.

Je n'ai pas testé.

Starec

Oups ! j'ai trouvé mon erreur (de débutant ! ). C'est bêtement en te lisant que j'ai trouvé. En fait, je me suis trompé de colonne (Select Case Cells(j, 3).Value). En modifiant, ça marche mieux:fessee:
En tout cas :merci: pour ton aide