copie ligne et changement de texte en VBA

[Meosus]

Bonjour,

Je vient vers vous car je bloque,

J'ai un tableau dont je souhaiterai à l'aide du code (que je vous met la la fin du post) copier la première ligne du tableau, puis coller après la dernière ligne rempli dans ce tableau.
Après avoir copier la ligne elle remplace le texte (ici le mots "TYPE") par le nom du "repère" (nom donner a la feuille crée précédemment). Dans le code, il est dit que le nom de la feuille créer est représenter par le mots Repere dans le code.

Voici la partie du code:

lastrow = Range("A65536").End(xlUp).Row
    Cells(lastrow + 1, 1).Select
    Selection.End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Replace What:="TYPE", Replacement:=Repere, LookAt:=xlPart" _
        , SearchOrder:=xlByRows, MatchCase:=False
    Range("A18:V18").Select
    Selection.EntireRow.Hidden = True
    Range("A19:V40").Select
    Selection.Sort Key1:=Range("A19"), Order1:=xlAscending, Header:=xlYes, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A1").Select

Une erreur m'est donne lors de la ligne:
- Selection.End(xlDown).Offset(1, 0).Select

Merci d'avance à qui me répondra.

 

[Gurgeh]

Re : copie ligne et changement de texte en VBA

Salut Meosus,

Effectivement, avec cette instruction, tu demandes à Excel d'aller plus bas que la plus basse ligne du tableau, donc ça risque de ne pas marcher...

Qu'essaie tu de faire exactement avec cette instruction ? Tu veux sélectionner la première cellule en dessous du tableau, ou la première ligne ?

Gurgeh

 

[Meosus]

Re : copie ligne et changement de texte en VBA

Salut Gurgeh,

J'essaye de demander à excel de sélectionner la ligne après la dernière remplie afin d'y copié la première ligne du tableau.

Meosus

 

[Gurgeh]

Re : copie ligne et changement de texte en VBA

Dans ce cas, je te conseille de remplacer les instructions

Cells(lastrow + 1, 1).Select
    Selection.End(xlDown).Offset(1, 0).Select

Par

Rows(lastrow + 1).select

Gurgeh

 

[Meosus]

Re : copie ligne et changement de texte en VBA

Merci Gurgeh,

Cela marche nikel!

je te remercie

Bonne fin de soiree

meosus