Discussion :

[sorbetframboise]

Bonjour,

J'ai un code qui ne fonctionne pas et je ne vois pas d'où vient le problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
Set ActiveRow = ActiveCell.EntireRow
 
Range("A5").Select
 
Selection.End(xlDown).Select
    ActiveRow.Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 
    ActiveCell.FormulaR1C1 = "=R[-1]C+1"

La formule se met à la ligne qui est sélectionnée avant que j'appuie sur la macro au lieu de se mettre sur la dernière ligne avec une valeur.
D'ailleurs comment placer le curseur sur la ligne possédant la première valeur vide et pas la dernière non vide ? Correspond à non-vide +1

[Philippe Tulliez]

Bonjour,
Où avez-vous trouvé ce code ?

J'ai un code qui ne fonctionne pas et je ne vois pas d'où vient le problème

C'est très simple, de votre première ligne Set activerow = ActiveCell.EntireRow

Regardez ce que vous avez comme instruction en ligne 7 et vous comprendrez

[sorbetframboise]

Merci pour m'avoir éclairé le Set ActiveRow était mal placé je l'ai placé juste après le xldown et c'est parfait.

C'est un code que j'avais écris il y à longtemps.

par contre comment sélectionner la ligne juste en dessous ?

[Philippe Tulliez]

Bonjour,

par contre comment sélectionner la ligne juste en dessous ?

Il est parfaitement inutile en VBA d'utiliser les méthodes Select et Activate et l'objet Selection donc dans quel but souhaitez vous sélectionner la ligne du dessous ?

Voici 3 exemples partant de la cellule A5 de la feuille active (il est préférable de préciser la parentalité d'un objet pour éviter tout problème)
Les exemples ne peuvent fonctionner qu'à la condition qu'il y ait au minimum deux lignes à partir de A5

Exemple 1 : Copie de la dernière ligne vers la ligne suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub T()
  With Range("A5").End(xlDown).EntireRow
  .Copy Destination:=.Offset(1)
  End With
End Sub

Exemple 2 : Insertion d'une ligne au-dessus de la dernière

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub T()
  With Range("A5").End(xlDown).EntireRow
  .Insert
  End With
End Sub

Exemple 3 ; Sélection de la ligne sui suit la dernière (ce que je ne préconise pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub T()
  With Range("A5").End(xlDown).EntireRow
  .Offset(1).Resize(ColumnSize:=1).Select
  End With
End Sub

Je ne peux que vous conseiller de passer aux tableaux structurés bien plus simple à gérer.

• Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)
• Excel: Les tables de données en VBA

[sorbetframboise]

C'est parfait merci pour votre aide et vos multiples solutions