coordonnées cell active dans plageRésolu

Question

Bonjour,
je cherche &#224; d&#233;terminer les coordonn&#233;es d'une cellule dans une plage type UsedRange. (coordonn&#233;es type "8"&#232;me cellule de la plage plut&#244;t que l'adresse "B6" par ex).
avec : ActiveSheet.UsedRange.Count
j'obtiens le nombre de cell de la plage, mais ensuite je bloque. J'ai tent&#233; "ActiveCell", mais tout ce que je peux d&#233;terminer c'est le nb de cell actives dans la plages, pas les coordonn&#233;es 

Merci d'avance si vous me donnez un petit coup de main !

valtrase · Accepted Answer

Re,
Si ce n'est que &#231;a voil&#224; le code

Sub position()
Dim compte As Integer
compte = 1
For Each cell In ActiveSheet.UsedRange
    If cell <> ActiveCell Then
        compte = compte + 1
    Else
       'cell = ActiveCell
   Exit For
    End If
Next
MsgBox compte & " &#232;me cellule"
End Sub

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Salut,
Pas trop compris ta question mais ceci fera peut-&#234;tre l'affaire

Dim MyAdress
MyAdress = Range("UsedRange").Cells(3, 4).Address

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

biscottte · Answer

Merci de l'aide! Je n'avais pas pens&#233; au tableau dynamique pour un truc aussi simple... Je pensais qu'une seule ligne de code suffisait. La r&#233;ponse n'est pas ce qui r&#233;pond exactement &#224; mon pb mais au moins j'ai une piste.

--> le probl&#232;me &#233;tant: dans une plage de dimensions inconnues, comment afficher la position de la cellule active dans celle-ci? (sans utiliser address qui retournerait des rows et columns, mais en comptant le nombre de cellules non actives jusqu'&#224; la cellule active). Je pense que je vais continuer avec MsbBox.ActiveSheet.UsedRange.Count mais il va falloir que je fasse le distingo cells non actives et cells actives.

Biscottte (qui se d&#233;brouille bien en d&#233;clinaisons latines mais qui a plus de mal en VBA...)

biscottte · Answer

Pour la question, voici o&#249; j'en suis rendue: 

Sub position()
Dim compte As Integer
compte = 0
For Each cell In ActiveSheet.UsedRange
    If cell <> ActiveCell Then
        compte = compte + 1
    Else: cell = ActiveCell
    End If
Next
MsgBox compte & "&#232;me cellule"
End Sub

... simplement, je ne sais pas dire au programme d'arr&#234;ter de compter d&#232;s qu'il a trouv&#233; la cellule active (un "exit for" donne = 0 cellule... le programme arr&#234;te tout simplement de tourner)

valtrase · Answer

Re,
Si ce n'est que &#231;a voil&#224; le code bonne prog

Sub position()
Dim compte As Integer
compte = 1
For Each cell In ActiveSheet.UsedRange
    If cell <> ActiveCell Then
        compte = compte + 1
    Else
       '~~  cell = ActiveCell
      Exit For
    End If
Next
MsgBox compte & "&#232;me cellule"
End Sub

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

biscottte · Answer

merci jean-paul de toutes tes r&#233;ponses!
pour le compte oui j'avais vu ... mais sinon &#231;&#224; ne fonctionne pas: l'exit for ne joue pas son r&#244;le et le prog s'arr&#234;te &#224; la premi&#232;re boucle. J'ai essay&#233; avec loop until, et l&#224; c'est le contraire la boucle va jusqu'au bout! 
Sub position4()
Dim compte As Integer
compte = 1
For Each cell In ActiveSheet.UsedRange
Do
compte = compte + 1
Loop Until cell = ActiveCell
Next
MsgBox compte & "&#232;me cellule"
End Sub

... bon, pas grave, j'ai quand m&#234;me avanc&#233; par rapport &#224; ce midi...

biscottte · Answer

pb r&#233;gl&#233;! ... probl&#232;me qui ne concernait pas le programme... que j'avais trouv&#233; depuis plusieurs heures

valtrase · Answer

Re, Oui en effet If cell <> ActiveCell Then Compare la valeur de la cellule en cours et de la cellule active si deux cellule ont la même valeur tu sort de la boucle et ce n'est pas le but recherché, donc il faut présiser que l'on compare l'adresse de la cellule. Dans ton code tu fais beaucoup d'itération pour rien c'est redondant donc en fait faut écrire ceci et là ça devrait fonctionner. Sub position() Dim compte As Integer compte = 1 For Each cell In ActiveSheet.UsedRange If cell.Address <> ActiveCell.Address Then compte = compte + 1 Else 'cell = ActiveCell Exit For End If Next MsgBox compte & " ème cellule" End Sub Cordialement, Jean-Paul ______________________________________________________________________ Le Savoir n'a de valeur que s'il est partagé

Coordonnées cell active dans plage

8 réponses

Discussions similaires