Excel, savoir si une cellule est sélectionné

Fermé
sofmartel Messages postés 300 Date d'inscription vendredi 19 octobre 2007 Statut Membre Dernière intervention 7 avril 2022 - 21 sept. 2012 à 13:33
sofmartel Messages postés 300 Date d'inscription vendredi 19 octobre 2007 Statut Membre Dernière intervention 7 avril 2022 - 24 sept. 2012 à 13:37
Bonjour,

J'ai un tableau qui se rempli tout seul et je voudrais trouver la formule qui me dit
"Tant que tu n'arrive pas à la case T29 :tu rempli mon tableau."

Je n'arrive donc pas à trouver la formule qui me permet de savoir si je suis arrivé à la cellule T29

Merci de votre aide

A voir également:

2 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 21/09/2012 à 13:47
Bonjour,

ActiveCell.Address = "$T$29"

te renvoie un booléen : True si tu es en T29 sinon False

Michel
0
If ActiveCell = Cells(29, 20) then
""
end if
-2
sofmartel Messages postés 300 Date d'inscription vendredi 19 octobre 2007 Statut Membre Dernière intervention 7 avril 2022 2
23 sept. 2012 à 14:10
super merci et savez vous comment trouver la dernière cellules vide d'une ligne?
0
Je suis pas sur de comprendre ta question.. Sois plus claire..
Pour tester si une cellule est null le code c'est..
If Sheets("Feuille1").Cells(Ligne, Colonne) = vbNullString Then
0
sofmartel Messages postés 300 Date d'inscription vendredi 19 octobre 2007 Statut Membre Dernière intervention 7 avril 2022 2
24 sept. 2012 à 11:58
j'ai une ligne avec par exemple
A1 :123 B1:23 C1:(vide) D1 :234
Je souhaite que mon curseur se positionne en C1 car cette case est la première cellule VIDE de ma ligne.
0
'Pour la colonne A jusqu'a la ligne 4 voici le code
Dim i as Integer
For i=1 to 4
if .Range("A" & i).Value ="" then
.Range("A" & i).Select
End if
Next

Tu peut utiliser aussi .Range(Cells(i,j)) et fair un boucle avec les i & j
0
'je connait pas ta plage mais ca ca régle ton probléme avec la bonne plage..
'Ici le tableau est de 10 ligne 5 colonne
Cell As CellFormat
For each Cell in .Range(Cells(1,1),Cells(10,5))
If cell.Value = "" then
Cell.Select
next
0