XL 2021 Déplacement dans Excel

[Usine à gaz]

Bonjour matinal à toutes et à tous,
Je vous souhaite une belle journée

Je n'arrive pas à trouver le bon code et je fais encore appel à nos ténors

Le contexte
Si je sélectionne la cellule "A2
au clic sur le bouton "Déplacement"
le code : Range(ActiveCell.Offset(1, 5), ActiveCell.Offset(5, 12)).Select
Me positionne sur les cellules de "F3 à M7"

J'ai besoin qu'il me positionne de "F3:M jusqu'à la dernière ligne NON vide de la colonne "A"
soit pour mon test en "F3:M28"

Auriez-vous le bon code ?
Merci à toutes et à tous,
Je joins un petit fichier test...

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ François

 

[Usine à gaz]

Bjr François

Je te remercie pour ta solution qui fonctionne et que je vais garder.

Mais c'est pas tout à fait ça lol

En fait il faut que ça parte de la cellule active donc :
Si c'est "A2" qui est active, c'est bien la plage "F3:M28" qui doit être sélectionnée,
Si c'est "B2" qui est active, c'est la plage "G3:N28" qui doit être sélectionnée,
Si c'est "A3" qui est active, c'est la plage "F4:M28" qui doit être sélectionnée,
etc... C'est selon la cellule active qui peut être n'importe laquelle...
Mais ton code me sera très utile.
Merci à toi

 

[patricktoulon]

re
bonjour lionel

 ActiveCell.Offset(1, 5).Resize(, 8).Resize(Cells(Rows.Count, "A").End(xlUp).Row - ActiveCell.Row).Select

 

[Usine à gaz]

Bonjour Patrick
C'est exactement ça.
Un grand merci à toi

 

[Usine à gaz]

Re Patrick
Ton code fonctionne super bien
Je me suis essayé sur ce code tiré du tien :
[a2].Select
ActiveCell.Offset(0, 9).Resize(Cells(Rows.Count, "A").End(xlUp).Row - ActiveCell.Row) = "rdv"

Je n'arrive pas à lui faire mettre "rdv" sur la dernière ligne NON vide de "A"
Il s'arrête à l'avant dernière;
Je cherche lol....

 

[ChTi160]

Bonjour le Fil
Le problème vient peut-être que si

Cells(Rows.Count, "A").End(xlUp).Row

est vide ?
peut etre tester ".End(xlUp).Row"sur une autre colonne Remplie partout §
Jean marie

 

[Usine à gaz]

Bonjour Jean-Marie
Merci d'être là...
Non, la colonne "A" est NON vide.
Voila le fichier joint

 

[vgendron]

hello ici
et si tu procédais par étape pour visualiser ce que tu fais

nbligne = ActiveCell.End(xlDown).Row - ActiveCell.Row
msgbox nbligne
ActiveCell.Offset(1, 5).Resize(nbligne, 7) = "tests"

 

[vgendron]

Sub LignesDessous()
    '[f2] = 1: [g2] = 1: [h2] = 2: [i2] = 3: [j2] = 4: [k2] = 5: [l2] = 6: [l2] = 7: [m2] = 8
    'Range("F3:M" & Range("A" & Rows.Count).End(xlUp).Row).Select
    [a2].Select
    [ab2] = "ok"
    [ae2] = "oui"
    [bg2] = "oups"
    [a2].Select
    'On Error Resume Next
'    ActiveCell.Offset(1, 27).Resize(, 58).Resize(Cells(Rows.Count, "A").End(xlUp).Row - ActiveCell.Row).Select
'     [a2].Select
    ActiveCell.Offset(0, 27).Resize(1, 32).Copy
    On Error Resume Next
    [a2].Select
    ActiveCell.Offset(1, 27).Resize(, 32).Resize(Cells(Rows.Count, "A").End(xlUp).Row - ActiveCell.Row).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    [a2].Select
    nbligne = ActiveCell.End(xlDown).Row - ActiveCell.Row + 1 'exemple ligne de 3 à 12 = 10 lignes = 12-3+1
    ActiveCell.Offset(0, 9).Resize(nbligne) = "rdv"


End Sub

 

[Usine à gaz]

Bjr vgendron
Effectivement : j'ai ajouté "+1"
[a2].Select
ActiveCell.Offset(0, 9).Resize(Cells(Rows.Count, "A").End(xlUp).Row + 1 - ActiveCell.Row) = "rdv"
et ça fonctionne très bien mais ça me semble anormal puisque pour les autres il n'y a pas de + 1 et ça fonctionne très bien

 

[vgendron]

à force de faire des activecell et offset dans tous les sens, tu ne sais plus d'où tu pars....

[A2].select => A2 est LA cellule active
[A2].resize(10).select ==> ca selectionne A2:A11 ==> 10 lignes DONT la ligne 2

sauf que tu toi.. tu ajouttes un offset de ligne
Activecell.offset(1,27).resize(10).select ==> ca selectionne toujours 10 lignes mais A PARTIR de la ligne 3 incluse