position cellule

faroka · 23 Novembre 2010

Bonjour à vous

comment puis je procéder pour sélectionner une position de cellule trouvée par

Sub Premierecellulevide()
Range("b7").Select
While IsEmpty(ActiveCell) = False
ActiveCell.Offset(1, 0).Activate
Wend
End Sub

et la placer a la suite de range ci- dessous
Range("C6:H11").Select

ou dans une variable pour que mes prochaines macros se repositionnent automatiquement sur cette cellule

cordialement à vous

Pierrot93 · 23 Novembre 2010

Re : position cellule

Bonjour,

pas tout compris, mais regarde peut être ceci si cela peut t'aider :

Code:

Dim c As Range, p As Range
Set c = ActiveCell
Set p = Union(c, Range("C6:H11"))
p.Select

bonne journée
@+

Gourou AWK · 23 Novembre 2010

Re : position cellule

Une des solutions

Code:

Public Sub TestRechercheCelluleLibre()

Dim Mycell As Excel.Range


Set Mycell = ActiveSheet.Range("B7")                ' Positionnement sur cellule interessante

If (IsEmpty(Mycell.Offset(1, 0))) Then              ' Celle du dessous est vide
    Set Mycell = Mycell.Offset(1, 0)                ' ==> c'est donc celle la
Else
    Set Mycell = Mycell.End(xlDown).Offset(1, 0)    ' C'est celle qui suit la séquence de cellules non vides
End If

Mycell.Select
End Sub

Bon courage

faroka · 24 Novembre 2010

Re : position cellule

ok les gars , cela me va.j'ai réussi à intégrer la macro de Gourou dans la mienne.

Je me lance donc dans la grande aventure du VBA , pour l'instant en rampant ......
A+ et merci encore

position cellule

faroka

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Gourou AWK

XLDnaute Nouveau

faroka

XLDnaute Nouveau

Discussions similaires