XL 2021 Déplacement dans Excel

fanfan38

XLDnaute Barbatruc

• 25 Juillet 2023

• #2

Bonjour
Ci joint ma solution

A+ François

 

Pièces jointes

• deplct test.xlsm

  20.9 KB · Affichages: 2

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 25 Juillet 2023

• #3

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Juillet 2023

• #4

re
bonjour lionel

VB:

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

 

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

• 25 Juillet 2023

• #5

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 25 Juillet 2023

• #6

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....

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 25 Juillet 2023

• #7

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

VB:

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

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 25 Juillet 2023

• #8

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

 

Pièces jointes

• deplct test.xlsm

  22.3 KB · Affichages: 2

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 25 Juillet 2023

• #9

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"

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 25 Juillet 2023

• #10

VB:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 25 Juillet 2023

• #11

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 25 Juillet 2023

• #12

à 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

 

Vote positif 0 Vote négatif