position cellule

[faroka]

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]

Re : position cellule

Bonjour,

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

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

bonne journée
@+

 

[Gourou AWK]

Re : position cellule

Une des solutions

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]

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