Sélectionner la dernière cellule non-vide d'une colonne

[aziz]

Bonjour a tous
je n'arrive pas à finaliser ma macro 4 afin de
Sélectionner ma dernière cellule non vide, puis décaler et coller les données dans les cellules vide
d'une colonne et ceci a partir de A11.

NB: a savoir que j'ai réussie avec les marco1, 2, 3 et ceci avec la cellule active.

Mon objectif n'est pas la cellule active (erreur de positionnement de celle-ci), c'est d'avoir comme point de départ toujours la colonne A à partir de A11.

Merci à tous pour aide.

 

[jpb388]

Re : Sélectionner la dernière cellule non-vide d'une colonne

Bonjour à tous

Sélectionner ma dernière cellule non vide

  Range("A" & rows.count).end(xlup)

puis décaler

 activecell.Offset(0, 1).Select

les deux en même temp

Range("A" & Rows.Count).End(xlUp).Offset(0, 1)= ??

 

[Paf]

Re : Sélectionner la dernière cellule non-vide d'une colonne

Bonjour à tous

avec les explications, le code de la macro 4 et les feuilles de données, voila ce que j'ai compris:

Sub Macro4()
 '** determination de la ligne disponible suivant A11
 With Sheets("Liste").Range("A11").CurrentRegion
    DerLig = .Row + .Rows.Count
 End With
 '** copier
 Sheets("Element Bas").Range("B4:G4,L4:M4").Copy
 '** coller
 Sheets("Liste").Range("A" & DerLig).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
 Application.CutCopyMode = False  'évite le cadre de selection
  
 Sheets("Element Bas").Range("B4").Select
 
End Sub

A+

 

[aziz]

Re : Sélectionner la dernière cellule non-vide d'une colonne

Bonsoir à tous j'ai finalement réussi avec cette ligne :

Columns("A:A").Find("*", [A96], , , , xlPrevious).Select
ActiveCell.Offset(1, 0).Select

Merci à tous pour votre aide.
Bonne soirée

 

[Paf]

Re : Sélectionner la dernière cellule non-vide d'une colonne

Re,

ce dernier code fonctionne pour le deuxième tableau intitulé 2- ACCESSOIRES, mais pas pour le premier intitulé 1- MOBILIER pour lequel, a priori, était la demande initiale.

Ou alors je n'avais rien compris.

Bonne suite