Trouver la 1ere cellule non-vide a partir de la cellule selectionnee

Salut tout le monde,

tout est pratiquement dans le titre ... Je fais une macro ou je cherche des termes d'une feuille excel, une fois que je trouve ce terme j'active la cellule contenant le terme et je souhaiterais recuperer la donnee correspondante a ce terme qui se trouve juste quelques cellule a cote .. ( vers la droite )

Je suis un peu en difficulte pour parcourir les cellules jusqu'a la premiere cellule non-vide ..... et ce vers la droite

Voila ce que j'ai fait, et ce qui ne marche pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Sub TestExcel() Dim TabData(5)   TabData(1) = "Husky Project": TabData(2) = "Customer Name": Dim Localise   Dim Compteur As Integer   For Compteur = 1 To 2 TabData(Compteur) = Cells.Find(What:=TabData(Compteur), LookAt:=xlPart) Cells.Find(What:=TabData(Compteur), LookAt:=xlPart).Activate Rows(ActiveCell.Row).Select ' ici c'est un debut mais j ai toute la ligne et pas juste la partie qui m interesserais MsgBox (TabData(Compteur))   For Each Cell In ActiveRow ' ici je pense que l instruction ActiveRow ne fonctionne pas If Cell <> 0 Then G = Cell.Value Exit For Else End If Next       Next   End Sub

---

Si quelqu'un a une petite astuce .. Merci d'avance :) :)

Bonjour,
Pour avoir le numero de la dernière colonne non vide (ici en partant de A1)

Code:

---

DernCol = Range("A1").End(xlToRight).Column

---

Citation:

---

Envoyé par halaster08

Bonjour,
Pour avoir le numero de la dernière colonne non vide (ici en partant de A1)

Code:

---

DernCol = Range("A1").End(xlToRight).Column

---

---

cela fonctionne avec la premiere ? si oui que faut il modifier ?

edit: en fait ce code simule le ctrl + flèche droite.
Donc il te donne la dernière cellule non vide avant le premier vide.
Par exemple si tu as "1" "1" "_" "1" sur ta ligne il te donne la valeur 2 puis que le premier vide est en 3eme colonne.

edit2: en fait je crois que j'ai mal lu ton problème (désolé c'est le matin ...)
Cependant il me semble que c'est quand même correct, essaye ce code sur un exemple simple pour être sur
exemple2 (qui correspond mieux a ton problème):
"1" "_" "_" "_" "1" te donne comme valeur 5 (le _ représentant du vide)

Citation:

---

Envoyé par halaster08

edit: en fait ce code simule le ctrl + flèche droite.
Donc il te donne la dernière cellule non vide avant le premier vide.
Par exemple si tu as "1" "1" "_" "1" sur ta ligne il te donne la valeur 2 puis que le premier vide est en 3eme colonne.

edit2: en fait je crois que j'ai mal lu ton problème (désolé c'est le matin ...)
Cependant il me semble que c'est quand même correct, essaye ce code sur un exemple simple pour être sur
exemple2 (qui correspond mieux a ton problème):
"1" "_" "_" "_" "1" te donne comme valeur 5 (le _ représentant du vide)

---

J'ai un petit peu adapter la ligne que tu m'as passé et ca fonctionne niquel, je le poste au cas ou quelqu'un d'autre en aurait besoin ! Merci bcp a toi en tout cas

Pour recapituler, le code cherche un terme, a partir de ce terme il cherche la premiere cellule non vide sur la meme ligne ( ce qui correspond a la premiere colonne non vide ) vers la droite, et recupere le contenu de cette cellule non vide . Je pense que mon code n'est pas optimise au mieux mais il fonctionne !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub TestExcel() Dim TabData(5)   TabData(1) = "Husky Project": TabData(2) = "Customer Name": Dim Localise   Dim Compteur As Integer Dim TestRange   For Compteur = 1 To 2 TabData(Compteur) = Cells.Find(What:=TabData(Compteur), LookAt:=xlPart) TestRange = Cells.Find(What:=TabData(Compteur), LookAt:=xlPart).Address Derncol = Range(TestRange).End(xlToRight).Address MsgBox (TestRange) MsgBox (Derncol) Range(Derncol).Activate Trsf = ActiveCell MsgBox (Trsf) End Sub

---

A + :D :resolu: