Déplacement contenu d'une cellule

Bonjour,

Au risque de poser une question de niveau maternelle (mon niveau)

Je souhaite pouvoir cliquer dans une colonne sur une cellule et lancer une macro.

Celle-ci copiera le contenu de cette cellule.

Fera un déplacement d'une cellule vers la gauche et remontera la colonne jusqu'à ce qu'elle trouve la cellule contenant "RéfG"

Elle se déplacera alors d'une colonne vers la droite et collera le contenu transporté.

Voici le code que j'ai réussi à faire.

mais à priori encore loin du compte,

Sub RéfG()
'
' RéfG Macro
' Permet de copier le contenu d'une cellule, de se décaler d'une cellule vers la droite, remonter la colonne
' jusqu'à ce qu'il trouve une cellule contenant "RéfG". Là il se décale d'une case vers la droite et fait son coller.
'

    Selection.Copy
    ActiveCell.Offset(0, -1).Select

    Dim c As Integer
    Do
    c = c + 1
    ActiveCell.Offset(-c, 0).Select
    Loop While ActiveCell <> ("RéfG")

    ActiveCell.Offset(0, -1).Select
    ActiveSheet.Paste
End Sub

Avec tous mes remerciements,

Alpha

Bonjour

Un essai

Dans les explications tu indiques que l'on se déplace d'abord vers la gauche, mais dans la macro tu notes que l'on se déplace d'abord vers la droite

Une chance sur 2

Sub RéfG()
Dim NbLigne As Long

  While ActiveCell.Offset(-NbLigne, -1) <> "RéfG"
    NbLigne = NbLigne + 1
  Wend
  ActiveCell.Offset(-NbLigne) = ActiveCell
End Sub

Mmmm.

Ça l'air bien.

Effectivement mélange de pinceaux.

Je dois m'absenter un moment.

A mon retour je vais tester cela !!

Merci beaucoup

+

Alpha

Banzaï

Cela marche impeccablement, c'est super.

Et je progresse dans la construction de ma petite appli.

Bon désolé pour le délai, il a fallu du temps avant que je puisse m'y remettre.

Un seul mot, "merci".

Alpha