XL 2019 ActiveCell.Address

[gg13]

Bonjour,
J'ai utilisé plusieurs fois cette fonction ActiveCell.Address.
Mais je ne comprends pas pourquoi cette fois Cell_end reste vide (Nothing)
alors que la Cell_dep fonctionne.

Dim Cell_dep, Cell_end As Range
Dim nlig As Integer

Cells(Rows.Count, "Q").End(xlUp).Offset.Select
Cell_dep = ActiveCell.Address
Selection.Offset(nlig, 0).Select
Cell_end = ActiveCell.Address

Si vous avez une idée merci d'avance

GG13

 

[dysorthographie]

Bonjour,
Aucune idée !

Cells(Rows.Count, "Q").End(xlUp).Offset(50,10).Select
Dim Cell_end as string 'Range???

 

[gg13]

J'ai déjà testé
Cells(Rows.Count, "Q").End(xlUp).Offset(50,10).Select

mais il faut que 50 et 10 soit des variables et non des chiffres mais ça ne marche pas
ou alors je l'écrit mal.
GG13

 

[dysorthographie]

Sub test()
Dim Cell_dep As String, Cell_end As String, nlig As Integer
nlig = 10
With Cells(Rows.Count, "Q").End(xlUp)
    Cell_dep = .Address
   Cell_dep = .Offset(nlig, 0).Address
End With
End Sub

 

[gg13]

Dysorthographie,
Cette solution marche très bien pour affecter les adresses mais quand je veux sélectionner la plage par :

Range("Cell_dep:Cell_end").Select
Selection.Copy

la méthode range ne marche pas.

GG13



GG13

 

[dysorthographie]

Range(Cell_dep & ":" & Cell_end).Select

perso je préfaire ça mais c'est mon choix!

Range(Cell_dep & ":" & Cell_end).Copy

pas de select, selection et autre activate!

 

[gg13]

Merci
Super, je cherche depuis ce matin à résoudre ce problème.
Difficile de savoir comment écrire ces fonctions !!!!

GG13

 

[gg13]

Cette fois c'est ActiveSheet.Paste qui ne passe pas

With Cells(Rows.Count, "Q").End(xlUp)
Cell_dep = .Address
Cell_end = .Offset(nlig, 0).Address
End With
Range(Cell_dep & ":" & Cell_end).Select
Selection.Copy
Application.CutCopyMode = False
Cells(Rows.Count, "P").End(xlUp).Offset(1).Select
ActiveSheet.Paste

GG13

 

[gg13]

désolé j'ai ajouté
Application.CutCopyMode = False
cet une erreur et maintenant ça fonctionne.
GG13

 

[dysorthographie]

Selection.Copy
'Application.CutCopyMode = False
Cells(Rows.Count, "P").End(xlUp).Offset(1).Select
ActiveSheet.Paste

suggestion

Sub test()
Dim nlig As Integer
nlig = 10
With Cells(Rows.Count, "Q").End(xlUp)
    Range(.Address & ":" & .Offset(nlig, 0).Address).Copy Cells(Rows.Count, "P").End(xlUp).Offset(1)
End With
End Sub

 

[gg13]

Merci cette solution est pour moi trop compliquée.
Je préfère utiliser la précedente que je comprends mieux.
Si dans quelques temps je dois reprendre ce programme je préfère être sûr de le comprendre.
GG13

 

[patricktoulon]

bonsoir
robert tu a donné ceci

Sub test()
Dim nlig As Integer
nlig = 10
With Cells(Rows.Count, "Q").End(xlUp)
    Range(.Address & ":" & .Offset(nlig, 0).Address).Copy Cells(Rows.Count, "P").End(xlUp).Offset(1)
End With
End Sub

moi j'ai un soucis avec votre truc là
pour moi le xlup donne la dernière
alors a mon avis copier la dernière étendu a 10 lignes plus bas ne fait que copier des lignes vides sauf la dernière ligne utilisée

sinon entre nous

Sub test()
Dim nlig As Integer
nlig = 10
With Cells(Rows.Count, "Q").End(xlUp)
    .Resize(nlig).Copy  Cells(Rows.Count, "P").End(xlUp).Offset(1)
End With
End Sub

 

[dysorthographie]

Bonjour Patrick,
Oui j'avais remarqué, c'est un peut pour ça que j'avais dit que je n'avais pas d'idée.

Je ne comprenais pas pourquoi cette usine à gaz pour copier que la dernière celle d'une colonne !

Puis j'ai retranscrit son code pour qu'il comprenne et j'ai oublier de lui dire cette vérité que tu mentionnes !

 

[gg13]

Bonjour Patrick
En fait je ne copie pas que la dernière cellule mais une cellule ou une plage en positif ou négatif.
J'ai adapté la solution à mon cas et ça correspond bien pour mon prog.
Le xlup sert à positionner le curseur sur la cellule de départ qui est variable.
Merci à tous.
GG13

 

[patricktoulon]

re

Le xlup sert à positionner le curseur sur la cellule de départ qui est variable.

ben oui sans aucun doute que ça peut être variable
mais le xlup c'est la dernière ligne utilisée donc en dessous il n'y a rien
donc ton resize 10 copie cette dernière ligne + les 9 suivantes qui sont vides
et ça c'est chez tout le monde pareil
si chez toi ça ne donne pas ça il nous manque des épisode là