Discussion :

[nolive915]

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 :

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

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

[Invité]

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

[nolive915]

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 !

[Invité]

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 :

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

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

[nolive915]

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
En tout cas pour ton aide