Discussion :

[zoumzoum59]

Bonjour a tous

J'ai un petit problème avec le code suivant:

Code :

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

1
2
3
4
5
6
 
Dim Plage As Range, Cell As Range
Set Plage = Range("E4:E64")
For Each Cell In Plage
If Cell.Value <> Empty Then Call click_Bouton
Next Cell

Quan dj'utilise ce code dans la configuration suivante tout va bien car il y a un espace entre les données comme présenté dans l'image saisie1.jpg.

http://www.developpez.net/forums/att...1&d=1167945109


Mais quand j'utilise le code sans qu'il y ai d'espace entre les données comme dans l'image ci dessous ça ne fonctionne plus

http://www.developpez.net/forums/att...1&d=1167945109


Je sais que dans mon code:

Code :

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

1
2
 
If Cell.Value <> Empty Then

J'utilise les cases vide pous délimiter mes données mais je ne vois pas comment faire pour utiler ce code en utilisant la difference de valeur entre les cellules ( difference entre les cellules "Brigitte" et les cellules "Hervé") en sachant que ces deux valeurs sont des variables qui change continuellement.

J'espere avoir été clair.

sinon n'esité pas.

Merci d'avance.

[ouskel'n'or]

Tu peux essayer ça

Code :

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

1
2
3
4
5
For Each Cell In Plage
    Ligne = Cell.row
    Colonne = Cell.column
    If Cell.Value <> Cells(Ligne-1,Colonne).value Then Call click_Bouton
Next Cell

A+

A la place de Cell, utilise Cel ou ce que tu veux, Cell étant un mot clé, ça "risque" de poser problème épi de ne pas utiliser les mots clés, est une bonne habitude
A+

[zoumzoum59]

Merci ouskel'n'or

Ton code était le bon.
j'ai juste rajouté pour ne pas prendre en compte le passage entre la dernière cellulle pleine et la cellule vide qui vient derrière le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
For Each Cel In Plage
    Ligne = Cel.Row
    Colonne = Cel.Column
    If Cel.Value <> Cells(Ligne - 1, Colonne).Value And Cel.Value <> Empty Then
    CelAL = Ligne
    CelAC = Colonne
    Call click_Bouton
    End If
Next Cel

encore merci de ton aide.