[VBA-E]PB de precision dans le code

Bonjour a tous

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

Code:

---

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:

---

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.

Tu peux essayer ça

Code:

---

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 :D
A+

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:

---

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.