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.