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